blob: a93c02a153d9271507bd92d97e8a628feea2166c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
# 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 }
|
