[occt.git] / tests / bugs / fclasses / bug63

if {[array get env os_type] != "" } {
    set os $env(os_type)
}
if { [string compare $os "windows"] == 0 } {
    puts "TODO OCC23626 ALL: Tcl Exception"
    puts "TODO OCC23626 ALL: TEST INCOMPLETE"
}

puts "================"
puts "OCC63"
puts "================"
puts ""

restore [locate_data_file box__simplifiée.brep] result
checkshape result

set 2dviewer 0
Commit	Line	Data
d27ea0ef	1	if {[array get env os_type] != "" } {
	2	set os $env(os_type)
	3	}
	4	if { [string compare $os "windows"] == 0 } {
	5	puts "TODO OCC23626 ALL: Tcl Exception"
	6	puts "TODO OCC23626 ALL: TEST INCOMPLETE"
	7	}
	8
a87752f3	9	puts "================"
	10	puts "OCC63"
	11	puts "================"
	12	puts ""
	13
d27ea0ef	14	restore [locate_data_file box__simplifiée.brep] result
352ffd73	15	checkshape result
a87752f3	16
	17	set 2dviewer 0
	18
d27ea0ef	19