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

Add more core tests

Browse Source
This commit is contained in:
Jack Firth 2015-02-25 13:07:04 -08:00
parent 3195551b19
commit f953452bf7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lenses/core.rkt
View File

@ -28,6 +28,10 @@
(-> subcomponent (-> subcomponent
input)))) input))))
(module+ test
(define list-lens (lens/c list? any/c))
(check-pred chaperone-contract? list-lens))
;; Lens result local bindings syntax ;; Lens result local bindings syntax
(define-syntax-rule (let-lens (view setter) lens-call-expr body ...) (define-syntax-rule (let-lens (view setter) lens-call-expr body ...)
@ -86,6 +90,7 @@
(define (num-append2 n m) (define (num-append2 n m)
(+ (* 10 n) m)) (+ (* 10 n) m))
(define num-append (generalize-operator num-append2)) (define num-append (generalize-operator num-append2))
(check-eqv? (num-append 1 2 3 4 5) 12345)) (check-eqv? (num-append 1 2 3 4 5) 12345)
(check-eqv? (num-append 1) 1))
(define lens-compose (generalize-operator lens-compose2)) (define lens-compose (generalize-operator lens-compose2))