File: unittest-gauche.scm

package info (click to toggle)
uim 1%3A1.8.6-8
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 42,636 kB
  • ctags: 20,583
  • sloc: lisp: 357,026; ansic: 78,114; cpp: 27,847; sh: 12,638; makefile: 2,534; asm: 333; ruby: 288
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)))))