diff options
Diffstat (limited to 'test/shelltest.tcl')
-rw-r--r-- | test/shelltest.tcl | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/test/shelltest.tcl b/test/shelltest.tcl deleted file mode 100644 index a93c02a..0000000 --- a/test/shelltest.tcl +++ /dev/null @@ -1,105 +0,0 @@ -# See the file LICENSE for redistribution information. -# -# Copyright (c) 2001-2009 Oracle. All rights reserved. -# -# $Id$ -# -# TEST scr### -# TEST The scr### directories are shell scripts that test a variety of -# TEST things, including things about the distribution itself. These -# TEST tests won't run on most systems, so don't even try to run them. -# -# shelltest.tcl: -# Code to run shell script tests, to incorporate Java, C++, -# example compilation, etc. test scripts into the Tcl framework. -proc shelltest {{ run_one 0 } { xml 0 }} { - source ./include.tcl - global shelltest_list - global xmlshelltest_list - - set SH /bin/sh - if { [file executable $SH] != 1 } { - puts "Shell tests require valid shell /bin/sh: not found." - puts "Skipping shell tests." - return 0 - } - - if { $xml == 1 } { - set shelltest_list $xmlshelltest_list - } - - if { $run_one == 0 } { - puts "Running shell script tests..." - - foreach testpair $shelltest_list { - set dir [lindex $testpair 0] - set test [lindex $testpair 1] - - env_cleanup $testdir - shelltest_copy $test_path/$dir $testdir - shelltest_run $SH $dir $test $testdir - } - } else { - set run_one [expr $run_one - 1]; - set dir [lindex [lindex $shelltest_list $run_one] 0] - set test [lindex [lindex $shelltest_list $run_one] 1] - - env_cleanup $testdir - shelltest_copy $test_path/$dir $testdir - shelltest_run $SH $dir $test $testdir - } -} - -proc shelltest_copy { fromdir todir } { - set globall [glob $fromdir/*] - - foreach f $globall { - file copy $f $todir/ - } -} - -proc shelltest_run { sh srcdir test testdir } { - puts "Running shell script $srcdir ($test)..." - - set ret [catch {exec $sh -c "cd $testdir && sh $test" >&@ stdout} res] - - if { $ret != 0 } { - puts "FAIL: shell test $srcdir/$test exited abnormally" - } -} - -proc scr001 {} { shelltest 1 } -proc scr002 {} { shelltest 2 } -proc scr003 {} { shelltest 3 } -proc scr004 {} { shelltest 4 } -proc scr005 {} { shelltest 5 } -proc scr006 {} { shelltest 6 } -proc scr007 {} { shelltest 7 } -proc scr008 {} { shelltest 8 } -proc scr009 {} { shelltest 9 } -proc scr010 {} { shelltest 10 } -proc scr011 {} { shelltest 11 } -proc scr012 {} { shelltest 12 } -proc scr013 {} { shelltest 13 } -proc scr014 {} { shelltest 14 } -proc scr015 {} { shelltest 15 } -proc scr016 {} { shelltest 16 } -proc scr017 {} { shelltest 17 } -proc scr018 {} { shelltest 18 } -proc scr019 {} { shelltest 19 } -proc scr020 {} { shelltest 20 } -proc scr021 {} { shelltest 21 } -proc scr022 {} { shelltest 22 } -proc scr023 {} { shelltest 23 } -proc scr024 {} { shelltest 24 } -proc scr025 {} { shelltest 25 } -proc scr026 {} { shelltest 26 } -proc scr027 {} { shelltest 27 } -proc scr028 {} { shelltest 28 } -proc scr029 {} { shelltest 29 } -proc scr030 {} { shelltest 30 } -proc scr031 {} { shelltest 31 } -proc scr032 {} { shelltest 32 } -proc scr033 {} { shelltest 33 } -proc scr034 {} { shelltest 34 } -proc scr035 {} { shelltest 35 } |