File: unittest-gauche.scm

package info (click to toggle)
uim 1%3A1.8.6%2Bgh20161003.0.d63dadd-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 38,908 kB
  • ctags: 20,421
  • sloc: lisp: 357,841; ansic: 78,681; cpp: 28,989; sh: 16,767; makefile: 2,620; asm: 333; ruby: 288; perl: 95; xml: 30
file content (10 lines) | stat: -rw-r--r-- 293 bytes parent folder | download | duplicates (19) 
1
2
3
4
5
6
7
8
9
10
 
(require-extension (unittest))

(define test
  (lambda (msg ret func)
    (assert-equal? msg ret (func))))

;; <expr> must be quoted (not compatible with Gauche's)
(define test*
  (lambda (name expected expr . compare)
    (assert-equal? name expected (eval expr (interaction-environment)))))