1 if { [array get env os_type] != "" } {
4 if { [string compare $os "windows"] == 0 } {
5 puts "TODO OCC12345 ALL: An exception was caught"
6 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
8 puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
10 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
12 puts "========================"
14 puts "========================"
16 ######################################################
17 ## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
18 ######################################################
20 restore [locate_data_file OCC469.brep] a