diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-01 08:59:07 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-01 08:59:07 +0000 |
commit | 1cde83a3abd3d16e32bce7ec96629db339d60fa8 (patch) | |
tree | 32df756728bd33e2f9b7d4371716fdbadac81c6b /src/interp/sys-driver.boot | |
parent | 5a73a0e19044f6dc949b7633f5f64867a019cfdd (diff) | |
download | open-axiom-1cde83a3abd3d16e32bce7ec96629db339d60fa8.tar.gz |
* interp/sys-driver.boot (executeSpadScript): Handle --test
option.
* interp/setvars.boot (setOutputAlgebra): Control informative
message about algebra stream redirection by $verbose.
Diffstat (limited to 'src/interp/sys-driver.boot')
-rw-r--r-- | src/interp/sys-driver.boot | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f450e397..80512847 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -252,7 +252,8 @@ executeSpadScript(progname,options,file) == $verbose: local := false initializeGlobalState() outfile := getOptionValue "output" - talkative := outfile or $verbose + testing := getOptionValue "test" + talkative := outfile or testing or $verbose setOutputAlgebra [(talkative => 'on; 'off)] -- FIXME: redirect standard output to null if not talkative $printVoidIfTrue: local := talkative @@ -264,6 +265,9 @@ executeSpadScript(progname,options,file) == if outfile ~= nil then setOutputAlgebra [outfile] setStandardOutputToAlgebraStream() + -- Accomodate for testsuite stream. + if testing then + set ["message","testing","on"] CATCH($intCoerceFailure, CATCH($SpadReaderTag,read [file])) coreQuit (errorCount()> 0 => 1; 0) |