18 lines
360 B
Scheme
18 lines
360 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel tap)
|
|
(retropikzel match)
|
|
(retropikzel debug)
|
|
(srfi 64))
|
|
|
|
(test-runner-current (tap-runner))
|
|
|
|
(test-begin "match")
|
|
|
|
(define val "Hello")
|
|
|
|
(test-equal 1 (debug (match val equal? ("world" 0) ("Hello" 1))))
|
|
(test-equal 1 (debug (match 2 = (1 0) (2 1))))
|
|
|
|
(test-end "match")
|