33 lines
602 B
Scheme
33 lines
602 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme read)
|
|
(scheme char)
|
|
(scheme file)
|
|
(scheme process-context)
|
|
(retropikzel scsh)
|
|
(srfi 64)
|
|
(retropikzel tap))
|
|
|
|
(test-runner-current (tap-runner))
|
|
|
|
(test-begin "scsh")
|
|
|
|
(test-begin "setenv")
|
|
(setenv "SCSH_TEST1" "foobar")
|
|
(test-equal "foobar" (get-environment-variable "SCSH_TEST1"))
|
|
(test-end "setenv")
|
|
|
|
|
|
(test-begin "getenv")
|
|
(test-equal "foobar" (getenv "SCSH_TEST1"))
|
|
(test-end "getenv")
|
|
|
|
|
|
(test-begin "glob")
|
|
(test-equal '("test.hehe") (glob "*.hehe"))
|
|
(test-end "glob")
|
|
|
|
|
|
|
|
(test-end "scsh")
|