hello/hello-test.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

(use-modules (srfi srfi-64)
             (hello))

(test-begin "harness")


(test-equal "test-hello"
  "hello world\n"
  (hi))

(test-equal "test-hello-bd"
  "hello bd\n"
  (hi "bd"))

(test-equal "test-hello-db"
  "hello db\n"
  (hi "db"))


(test-end "harness")