whalesong/tests/more-tests/checking.rkt
2011-08-31 18:39:16 -04:00

9 lines
222 B
Racket

#lang planet dyoo/whalesong
(define (greet name)
(string-append "hello " name))
(check-expect (greet "danny") "hello danny")
(check-expect (greet "huh") "this should fail")
(check-expect (greet "world") "hello world")