diff options
author | Andy Wingo <wingo@pobox.com> | 2016-05-22 20:39:03 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-22 20:40:54 +0200 |
commit | 2c95a2102711c990d81bd8908506cd35b9b71022 (patch) | |
tree | f1224dfc371625a33f01c60e30401d554938e7be /test-suite | |
parent | 2badbd06f695127039e8772f56e9ba44ec875896 (diff) | |
download | guile-2c95a2102711c990d81bd8908506cd35b9b71022.tar.gz |
More thorough ice-9 sports testing
* module/ice-9/sports.scm: Export read-line, %read-line, and
read-delimited. Add these latest three to install-sports!, and fix
install-sports! if the current module isn't (ice-9 sports).
* test-suite/tests/sports.test: Use install-sports! instead of lexical
bindings, to allow us to nicely frob bindings in rdelim. Include
rdelim tests.
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/tests/sports.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test-suite/tests/sports.test b/test-suite/tests/sports.test index 6eb422ef5..6707f562a 100644 --- a/test-suite/tests/sports.test +++ b/test-suite/tests/sports.test @@ -17,7 +17,7 @@ ;;;; <http://www.gnu.org/licenses/>. (define-module (test-suite test-ports) - #:use-module (ice-9 sports)) + #:use-module ((ice-9 sports) #:select (install-sports! uninstall-sports!))) ;; Include tests from ports.test. @@ -49,4 +49,9 @@ #`((include-one #,exp) . #,(lp)))))))) #:guess-encoding #t))))) +(install-sports!) + (include-tests "tests/ports.test") +(include-tests "tests/rdelim.test") + +(uninstall-sports!) |