Differences From Artifact [e8193d8a25]:
- File build/test/tests/02-nameofexe.tcl — part of check-in [b180e9a80f] at 2010-09-26 04:46:10 on branch trunk — Added internal testing script (user: rkeene, size: 120) [annotate] [blame] [check-ins using]
To Artifact [08a58cef96]:
- File build/test/tests/02-nameofexe.tcl — part of check-in [7c572fd6a8] at 2010-09-26 04:49:40 on branch trunk — Updated to support running Win32 tests under WINE (user: rkeene, size: 304) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 |
#! /usr/bin/env tclsh
set outputname [lindex $argv 0]
if {[info nameofexecutable] == $outputname} {
exit 0
}
exit 1
| > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
#! /usr/bin/env tclsh
set outputname [lindex $argv 0]
if {[info nameofexecutable] == $outputname} {
exit 0
}
# Under Wine, the drive letter is added
if {[info nameofexecutable] == "Z:$outputname"} {
exit 0
}
puts "Info NameOfExe: [info nameofexecutable]"
puts "Expected: $outputname"
exit 1
|