Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug592
1 puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
2
3 puts "========================"
4 puts " OCC592 "
5 puts "========================"
6 puts ""
7 ###################################
8 ##BRepCheck_Analyzer does not detect faulty shape
9 #####################################
10
11 restore [locate_data_file OCC592.brep] ff114 
12
13 explode ff114 e
14 mkcurve cc ff114_8
15 cvalue cc 0.95 x y z
16 vertex vv x y z
17 mksurface gs ff114
18 mkface ff gs
19 donl ff114 vv
20 trim trcc cc
21 set aa [distmini dd vv ff]
22
23 puts "******* Result *******"
24 regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
25 puts "distance between the point on curve and the surface is $dis1"
26
27 set tolerance [maxtolerance ff114_8]
28 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
29 puts "the tolerance of the edge is $MaxEdgeTolerance"
30 puts "the tolerance is less than distance between point and surface"
31 puts "BUT"
32
33 decho off
34 set che [checkshape ff114]
35 decho on
36
37 if { [regexp {Faulty} $che] != 1 } {
38     puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
39 } else {
40     puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
41 }
42
43 set 2dviewer 0