Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug278_3
1
2 puts "========"
3 puts "OCC278"
4 puts " (case 3)"
5 puts "========"
6
7 ######################################################################
8 ##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
9 ## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
10 ## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
11 ## NOTE akm: bug after putting it on plane checkshape found the pb.
12 #######################################################################
13
14 restore [locate_data_file OCC278c.brep] a 
15
16 mkplane result a
17 decho off
18 set che [checkshape result]
19 decho on
20
21 if { [regexp "Faulty" $che] != 1 } {
22    puts "Error (case 3) : Checkshape command works wrongly"
23 }
24
25 set check_square 1
26 set square 43.3075
27 set 2dviewer 0