Add check for /list set precedence

2015-07-08 13:22:31 -07:00 · 2015-07-08 13:22:31 -07:00 · 126a2efd39
commit 126a2efd39
parent 1ca0797893
1 changed files with 5 additions and 1 deletions
--- a/lens/base/view-set.rkt
+++ b/lens/base/view-set.rkt
@ -45,4 +45,8 @@
  (check-equal? (lens-set/list '(1 2 3)
                               first-lens 10
                               second-lens 20)
-                '(10 20 3)))
+                '(10 20 3))
+  (check-equal? (lens-set/list '(1 2 3)
+                               first-lens 'a
+                               first-lens 'b)
+                '(b 2 3)))