;;;;

(import test)

#; ;FIXME
(import (chicken format) (test-utils gloss format) (test-utils gloss basic))
(import (chicken format) (test-utils gloss))

(import (test-utils run))

;Must set 1st thing
(runid 'EGG-NAME "test-utils")

;NOTE order
(define *tests* '("./test-utils-test.scm" "./three-test.scm" "./two-test.scm"))

(test-group "runner"
  (test "test-utils" (runid 'EGG-NAME))
  (test "default dir" "." (runid '*test-directory*))
  (test "default ext" "scm" (runid '*test-extension*))
  (glossf "run-ident: ~S" (run-ident))
  (test-group "level 1"
    (gloss "level 1 (before 1st test)")
    (for-each
      (lambda (id) (test (string-append "empty " (symbol->string id)) '() (runid id)))
      '(*csi-options*
        *csi-excl-options*
        *csc-options*
        *csc-excl-options*
        *test-excl-names*))
    (gloss "level 1 (after 1st test)")
    (test "lexo test order" string<? (runid '*test-order*))
    (test-group "level 2"
      (gloss "level 2 (before 1st test)")
      (test "expected test-lineup" *tests* (test-lineup))
      (gloss "level 2 (after 1st test)")
    )
  )
)

(test-group "test order"
  (define (myord a b)
    (import (chicken pathname))
    (test-assert "expected order arguments"
      (and (not (pathname-directory a))
           (equal? (pathname-directory a) (pathname-directory b))
           (not (pathname-extension a))
           (equal? (pathname-extension a) (pathname-extension b))))
      (string<? a b) )
  (test-assert "successful reset" (not (test-lineup #f)))
  (test "change order" myord (runid '*test-order* myord))
  (test "changed order" myord (runid '*test-order*))
  (let ((res (test-lineup)))
    (test "expected test-lineup" *tests* res) )
  (test "reset order" string<? (runid '*test-order* string<?))
)

(gloss "Hello 1, 3 & 2")
(run-tests)