1
2
3
4
5
6
7
8
9
|
set dir "//xvfs:/example"
set dirNative [file join [pwd] example]
set file "${dir}/foo"
set fd [open $file]
seek $fd 0 end
seek $fd -1 current
set check [read $fd 1]
if {$check != "\n"} {
|
>
|
1
2
3
4
5
6
7
8
9
10
|
set dir "//xvfs:/example"
set dirNative [file join [pwd] example]
#set dir $dirNative
set file "${dir}/foo"
set fd [open $file]
seek $fd 0 end
seek $fd -1 current
set check [read $fd 1]
if {$check != "\n"} {
|
113
114
115
116
117
118
119
120
121
122
123
|
}
cd $dir
cd lib
glob *
lappend auto_path ${dir}/lib
package require hello
puts "ALL TESTS PASSED"
|
>
>
|
>
|
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
}
cd $dir
cd lib
glob *
# XXX:TODO:CURRENTLY BROKEN
if {0} {
lappend auto_path ${dir}/lib
package require hello
}
puts "ALL TESTS PASSED"
|