(import (scheme base)
        (scheme write)
        (retropikzel tap)
        (srfi 64))

(test-runner-current (tap-runner))

(test-begin "tap")
(test-equal 1 1)
(test-equal 1 1)

(test-begin "tap 1")
(test-equal 1 1)
(test-equal 1 1)
(test-end "tap 1")

(test-begin "tap 2")
(test-equal '(1 2 3) '(1 2 3))
(test-equal 1 1)
(test-assert "I have a name" #t)

(test-begin "tap 2.1")
(test-equal 1 1)

(test-begin "tap 2.1.1")
(test-skip 1)
(test-equal 1 1)
(test-end "tap 2.1.1")

(test-end "tap 2.1")

(test-end "tap 2")

(test-equal 1 1)
;(test-equal '(4 5 6) '(7 8 9))


(test-skip (lambda (runner)
             (string=? (car (test-runner-group-stack runner)) "tap 3")))
(test-begin "tap 3")
(test-equal 1 1)
(test-equal 1 1)
(test-equal 1 1)
(test-end "tap 3")

(test-group
  "tap 4"
  (test-assert (= 1 1))
  (test-assert (= 1 1))
  (test-assert (= 1 1))
  (test-assert (= 1 1))
  (test-assert (= 1 1))
  (test-assert (= 1 1)))


(test-end "tap")