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

add tests for fallback errors

Browse Source
This commit is contained in:
AlexKnauth 2015-09-24 16:39:27 -04:00
parent 57b5d417da
commit d9542428b5
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lens/private/tests/gen-lens-fallback-loop.rkt Normal file
View File

@ -0,0 +1,31 @@
#lang racket/base
(require lens/private/base/gen-lens
rackunit
racket/function)
(struct bad1 ()
#:methods gen:lens [])
(check-exn #rx"lens-view: not implemented"
(thunk (lens-view (bad1) 1)))
(check-exn #rx"lens-set: not implemented"
(thunk (lens-set (bad1) 1 1)))
(check-exn #rx"focus-lens: not implemented"
(thunk (focus-lens (bad1) 1)))
(struct bad2 ()
#:methods gen:lens
[(define (lens-view this tgt) "something")])
(check-equal? (lens-view (bad2) 1) "something")
(check-exn #rx"lens-set: not implemented"
(thunk (lens-set (bad2) 1 1)))
(check-exn #rx"focus-lens: not implemented"
(thunk (focus-lens (bad2) 1)))
(struct bad3 ()
#:methods gen:lens
[(define (lens-set this tgt nvw) tgt)])
(check-equal? (lens-set (bad3) 1 2) 1)
(check-exn #rx"lens-view: not implemented"
(thunk (lens-view (bad3) 1)))
(check-exn #rx"focus-lens: not implemented"
(thunk (focus-lens (bad3) 1)))