Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug23
1 puts "TODO OCC12345 ALL: Faulty OCC23 : Checkshape command works wrongly"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
3 puts "================"
4 puts "OCC23"
5 puts "================"
6 puts ""
7 #####################################################################
8 ## Checkshape gives result that there is a selfintersection on wire, but there are no intersection on it.
9 #####################################################################
10
11 restore [locate_data_file OCC23.brep] sh 
12
13 decho off
14 set che [checkshape sh]
15 decho on
16
17 if { [regexp {Faulty} $che] == 1 } {
18     puts "Faulty OCC23 : Checkshape command works wrongly"
19 } else {
20     puts "OCC23 OK : Checkshape command works properly"
21 }
22
23 explode sh f
24 explode sh_2 w
25
26 renamevar sh_2_1 result
27
28 set length 0
29 set 2dviewer 0