9aa684ed |
1 | puts "TODO OCC25917 ALL: Error : The command is not valid. The square is" |
2 | if { [regexp {Debug mode} [dversion]] } { |
3 | puts "TODO OCC25917 ALL: TEST INCOMPLETE" |
4 | puts "TODO OCC25917 ALL: Tcl Exception" |
5 | } |
6 | |
a87752f3 |
7 | puts "========================" |
8 | puts " OCC472 " |
9 | puts "(case 2)" |
10 | puts "========================" |
11 | puts "" |
12 | ##################################################### |
13 | ## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634) |
14 | ##################################################### |
15 | |
16 | restore [locate_data_file OCC472a.brep] b1 |
352ffd73 |
17 | checkshape b1 |
a87752f3 |
18 | |
19 | restore [locate_data_file OCC472b.brep] b2 |
352ffd73 |
20 | checkshape b2 |
a87752f3 |
21 | |
22 | bcommon result b1 b2 |
23 | |
24 | set square 0 |
25 | set 2dviewer 0 |