suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

programs

Browse Source 
svn: r8917
This commit is contained in:
Matthew Flatt 2008-03-07 13:24:59 +00:00
parent aa2b78ef8b
commit 81709349fb
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/r6rs/programs.ss Normal file
View File

@ -0,0 +1,15 @@
#!r6rs
(library (tests r6rs programs)
(export run-programs-tests)
(import (rnrs)
(tests r6rs test))
(define (run-programs-tests)
(test (list? (command-line)) #t)
(test (string? (car (command-line))) #t)
;;
))

2
collects/tests/r6rs/run.ss
View File

@ -13,6 +13,7 @@
(tests r6rs exceptions)
(tests r6rs conditions)
(tests r6rs io ports)
(tests r6rs programs)
(tests r6rs arithmetic fixnums)
(tests r6rs arithmetic flonums)
(tests r6rs arithmetic bitwise)
@ -36,6 +37,7 @@
(run-exceptions-tests)
(run-conditions-tests)
(run-io-ports-tests)
(run-programs-tests)
(run-arithmetic-fixnums-tests)
(run-arithmetic-flonums-tests)
(run-arithmetic-bitwise-tests)