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

(test-begin "harness")

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

(test-equal "test-named-hello"
  "Hello bob!\n"
  (hi "bob"))

(test-end "harness")