Artifact e69ba495b8c435fad66b3ff230df6495103124ab:

• File build/test/tests/02-nameofexe.tcl — part of check-in [0f0abdc08e] at 2010-10-05 02:28:07 on branch trunk — Corrected typo in comments (user: rkeene, size: 506) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

set outputname [lindex $argv 0]
set buildflags [split [lindex $argv 1] -]

# If we built a KitDLL, the executable name will be {kitname}-tclsh
if {[lsearch -exact $buildflags "kitdll"] != -1} {
	set outputname "${outputname}-tclsh"
}

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