(use test simple-sha1)

(test-begin "simple simple-sha1 tests")

(test "0beec7b5ea3f0fdbc95d0dd47f3c5bc275da8a33" (string->sha1sum "foo"))

(with-output-to-file "foo"
  (cut display "foo"))

(test "0beec7b5ea3f0fdbc95d0dd47f3c5bc275da8a33" (sha1sum "foo"))

(test-end)

(delete-file* "foo")

(test-exit)