#lang scheme/base

(require scheme/file
         (planet schematics/schemeunit:3)
         "base.ss"
         "actions.ss")

;; These tests are used for testing the test action.  Can't
;; test using the real tests as this would lead to infinite
;; recursion.
(define/provide-test-suite dummy-pass-tests
  (test-case
   "dummy-test"
   (check-true #t)))

(define/provide-test-suite dummy-fail-tests
  (test-case
   "dummy-test"
   (check-true #f)))

(define/provide-test-suite action-tests
  (test-case
   "test"
   (check-true (test "actions-test.ss" 'dummy-pass-tests))
   (check-exn exn:fail:sake?
              (lambda () (test "actions-test.ss" 'dummy-fail-tests))))

  (test-case
   "compile"
   (when (directory-exists? "compiled")
     (delete-directory/files "compiled"))
   (compile "sake.ss")
   (check-pred directory-exists? "compiled")
   (check-pred file-exists? "compiled/sake_ss.zo")
   (check-pred file-exists? "compiled/actions_ss.zo")))