(use error-utils)
(use test)

(test-group "errorf"
  (test-error (errorf "foo"))
  (test-error (errorf 'foo))
  (test-error (errorf 'foo "foo"))
  (test-error (errorf "foo ~A ~S" "hello" "hello"))
)