102
103
104
105
106
107
108
109
110
|
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
+
+
+
+
+
+
+
+
+
+
+
+
+
|
error "EXPECTED \"$dir/*\", GOT $check"
}
set check [glob_verify -type d *]
if {[llength $check] != 1} {
error "EXPECTED 1, GOT [llength $check] ($check)"
}
set check [glob_verify -type d lib/*]
if {[llength $check] != 1} {
error "EXPECTED 1, GOT [llength $check] ($check)"
}
cd $dir
cd lib
glob *
lappend auto_path ${dir}/lib
package require hello
puts "ALL TESTS PASSED"
|