mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
4e5cdedc03
By convention, a library meant for testing exports "run-tests". Also by convention, assume the test for (foo bar) is (foo bar-test), keeping the test in the same directory and avoiding confusion since (chibi test) is not a test for (chibi). - Avoids the hack of "load"ing test, with resulting namespace complications. - Allows keeping tests together with the libraries. - Allows setting up test hooks before running. - Allows implicit inference of test locations when using above conventions.
42 lines
1.5 KiB
Scheme
42 lines
1.5 KiB
Scheme
(define-library (chibi base64-test)
|
|
(export run-tests)
|
|
(import (chibi) (chibi base64) (chibi test))
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "base64")
|
|
|
|
(test "YW55IGNhcm5hbCBwbGVhc3VyZS4="
|
|
(base64-encode-string "any carnal pleasure."))
|
|
(test "YW55IGNhcm5hbCBwbGVhc3VyZQ=="
|
|
(base64-encode-string "any carnal pleasure"))
|
|
(test "YW55IGNhcm5hbCBwbGVhc3Vy"
|
|
(base64-encode-string "any carnal pleasur"))
|
|
(test "YW55IGNhcm5hbCBwbGVhc3U="
|
|
(base64-encode-string "any carnal pleasu"))
|
|
(test "YW55IGNhcm5hbCBwbGVhcw=="
|
|
(base64-encode-string "any carnal pleas"))
|
|
|
|
(test "any carnal pleas"
|
|
(base64-decode-string "YW55IGNhcm5hbCBwbGVhcw=="))
|
|
(test "any carnal pleasu"
|
|
(base64-decode-string "YW55IGNhcm5hbCBwbGVhc3U="))
|
|
(test "any carnal pleasur"
|
|
(base64-decode-string "YW55IGNhcm5hbCBwbGVhc3Vy"))
|
|
(test "any carnal pleas"
|
|
(base64-decode-string "YW55IGNhcm5hbCBwbGVhcw"))
|
|
(test "any carnal pleasu"
|
|
(base64-decode-string "YW55IGNhcm5hbCBwbGVhc3U"))
|
|
|
|
(test "YW55IGNhcm5hbCBwbGVhc3VyZS4="
|
|
(call-with-output-string
|
|
(lambda (out)
|
|
(call-with-input-string "any carnal pleasure."
|
|
(lambda (in) (base64-encode in out))))))
|
|
|
|
(test "any carnal pleasure."
|
|
(call-with-output-string
|
|
(lambda (out)
|
|
(call-with-input-string "YW55IGNhcm5hbCBwbGVhc3VyZS4="
|
|
(lambda (in) (base64-decode in out))))))
|
|
|
|
(test-end))))
|