[occt.git] / tests / demo / draw / getsource

# test for command getsource

# check that path returned for command pload is as expected
if { [checkplatform -windows] } {
    set expected src/Draw/Draw_PloadCommands.cxx
} else {
    set expected /src/Draw/Draw_PloadCommands.cxx
}
set path [lindex [getsourcefile pload] 1]
if { [string compare $path $expected] } {
    puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
}

puts "TEST COMPLETED"
Commit	Line	Data
d33dea30 PK	1	# test for command getsource
	2
	3	# check that path returned for command pload is as expected
863f782a	4	if { [checkplatform -windows] } {
b725d7c5	5	set expected src/Draw/Draw_PloadCommands.cxx
	6	} else {
	7	set expected /src/Draw/Draw_PloadCommands.cxx
	8	}
d33dea30 PK	9	set path [lindex [getsourcefile pload] 1]
	10	if { [string compare $path $expected] } {
	11	puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
	12	}
	13
	14	puts "TEST COMPLETED"