dane/d-
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add test for generator functions

Browse Source
This commit is contained in:
Dane Johnson 2024-11-11 21:35:26 -06:00
parent 87384f611c
commit 224fcc425c
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
test.scm
View File

@ -1,5 +1,6 @@
(use-modules (d-) (use-modules (d-)
(rnrs base)) (rnrs base)
(srfi srfi-1))
(define-syntax-rule (define-unit-test (test-name body ...)) (define-syntax-rule (define-unit-test (test-name body ...))
(let () body ...)) (let () body ...))
@ -54,3 +55,15 @@
(define-test argmin (define-test argmin
(test (test
(assert (equal? (argmin cdr < '(a . 5) '(b . 2) '(c . 3)) '(b . 2))))) (assert (equal? (argmin cdr < '(a . 5) '(b . 2) '(c . 3)) '(b . 2)))))
(define-test make-generator
(test
(define number-generator
(make-generator (lambda (yield)
(let loop ([i 1])
(yield i)
(loop (1+ i))))))
(assert (= (number-generator) 1))
(assert (= (number-generator) 2))
(assert (= (number-generator) 3))
(assert (= (number-generator) 4))))