(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")