Artifact 08a58cef96d0025b162fac10528aa1c9fa91d996:

• 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]

#! /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