lib/lisp/tests/seqf-examples.nydp in nydp-0.1.13 vs lib/lisp/tests/seqf-examples.nydp in nydp-0.1.13.1
- old
+ new
@@ -1,5 +1,10 @@
(examples-for seqf
("returns a function that returns the next number in a sequence when called"
(let s (seqf 10 2)
(list (s) (s) (s) (s)))
- (10 12 14 16)))
+ (10 12 14 16))
+
+ ("returns a function that returns the next number on each call"
+ (let s (seqf 10)
+ (list (s) (s) (s) (s)))
+ (10 11 12 13)))