suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix test

Browse Source
This commit is contained in:
AlexKnauth 2015-08-20 20:17:24 -04:00
parent f7cb175ee8
commit 36b3260de4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
unstable/lens/mapper.rkt
View File

@ -49,6 +49,7 @@
'#(a c e)) '#(a c e))
(check-equal? (lens-set (vector-mapper-lens first-lens) '#((a b) (c d) (e f)) '#(1 2 3)) (check-equal? (lens-set (vector-mapper-lens first-lens) '#((a b) (c d) (e f)) '#(1 2 3))
'#((1 b) (2 d) (3 f))) '#((1 b) (2 d) (3 f)))
(check-equal? (lens-transform (vector-mapper-lens first-lens) '#((a b) (c d) (e f)) (vector-map symbol->string _)) (check-equal? (lens-transform (vector-mapper-lens first-lens) '#((a b) (c d) (e f))
(immutable-vector-map symbol->string _))
'#(("a" b) ("c" d) ("e" f))) '#(("a" b) ("c" d) ("e" f)))
) )