75472b6a9705df8f33eadd99198d01ae6ae9b3ec
[occt.git] / tests / bugs / moddata_2 / bug469
1 if { [array get env os_type] != "" } {
2     set os $env(os_type)
3 }
4 if { [string compare $os "windows"] == 0 } {
5     puts "TODO OCC12345 ALL: An exception was caught"
6     puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
7 } else {
8     puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
9 }
10 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
11
12 puts "========================"
13 puts " OCC469 "
14 puts "========================"
15 puts ""
16 ######################################################
17 ## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
18 ######################################################
19
20 restore [locate_data_file OCC469.brep] a 
21 explode a
22
23 checkshape a_1
24 checkshape a_2
25
26 bfuse result a_1 a_2
27 checkshape result
28
29 set square 10
30 set 2dviewer 0