25 lines
455 B
Scheme
25 lines
455 B
Scheme
#lang scheme/base
|
|
|
|
(require schemeunit/test
|
|
"file.scm")
|
|
|
|
(check-equal? (my-+ 1 1) 2)
|
|
(check-equal? (my-* 1 2) 2)
|
|
|
|
(test-begin
|
|
(let ((lst (list 2 4 6 9)))
|
|
(check = (length lst) 4)
|
|
(for-each
|
|
(lambda (elt)
|
|
(check-pred even? elt))
|
|
lst)))
|
|
|
|
(test-case
|
|
"List has length 4 and all elements even"
|
|
(let ((lst (list 2 4 6 9)))
|
|
(check = (length lst) 4)
|
|
(for-each
|
|
(lambda (elt)
|
|
(check-pred even? elt))
|
|
lst)))
|