From 81709349fb36d23032c6c831dfa42ae1fb10e99b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Mar 2008 13:24:59 +0000 Subject: [PATCH] programs svn: r8917 --- collects/tests/r6rs/programs.ss | 15 +++++++++++++++ collects/tests/r6rs/run.ss | 2 ++ 2 files changed, 17 insertions(+) create mode 100644 collects/tests/r6rs/programs.ss diff --git a/collects/tests/r6rs/programs.ss b/collects/tests/r6rs/programs.ss new file mode 100644 index 0000000000..e36b9cff37 --- /dev/null +++ b/collects/tests/r6rs/programs.ss @@ -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) + + ;; + )) + diff --git a/collects/tests/r6rs/run.ss b/collects/tests/r6rs/run.ss index 963f042e4f..e6429c1dd8 100644 --- a/collects/tests/r6rs/run.ss +++ b/collects/tests/r6rs/run.ss @@ -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)