(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")