[occt.git] / tests / nproject / end

#set length 0
if { [isdraw result] } {
    #check if result is valid
    puts [checkshape result]

    smallview
    clear
    donly result
    fit
    xwd $imagedir/${test_image}.png
} else {
    puts "Error : The $command cannot be built."
}

# to end a test script
puts "TEST COMPLETED"
Commit	Line	Data
40093367	1	#set length 0
40093367	2	if { [isdraw result] } {
58cf74e0	3	#check if result is valid
58cf74e0	4	puts [checkshape result]
40093367	5
58cf74e0	6	smallview
	7	clear
	8	donly result
	9	fit
	10	xwd $imagedir/${test_image}.png
40093367	11	} else {
58cf74e0	12	puts "Error : The $command cannot be built."
40093367	13	}
	14
	15	# to end a test script
	16	puts "TEST COMPLETED"