24 lines
378 B
Scheme
24 lines
378 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel tap)
|
|
(retropikzel debug)
|
|
(srfi 64))
|
|
|
|
(test-runner-current (tap-runner))
|
|
|
|
(test-begin "debug")
|
|
|
|
(debug 'lol)
|
|
(debug-display 'lol)
|
|
|
|
(define someval 123)
|
|
(debug someval)
|
|
(debug-display someval)
|
|
|
|
(define (plus a b) (+ a b))
|
|
(debug plus)
|
|
(debug-display plus)
|
|
(debug-proc plus 1 2)
|
|
|
|
(test-end "debug")
|