57 lines
952 B
Scheme
57 lines
952 B
Scheme
(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")
|