0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27129
CommitLineData
79981d14 1puts "============"
2puts "OCC27129"
3puts "============"
4puts ""
5###############################
6## BRepLib_CheckCurveOnSurface does not find the maximal distance
7###############################
8
9restore [locate_data_file bug27129_e.brep] e
10
11set log1 [checkcurveonsurf e]
12
13vertex v1 33.1645637744 33.5513655177474 0
14vertex v2 43.1644823619474 23.5514469302 0
15bclearobjects
16bcleartools
17baddobjects e
18baddtools v1 v2
19bfillds
20
21bbuild result
22
23set log2 [checkcurveonsurf result]
24
25if { [regexp {Invalid curves on surface:\n} ${log1} full ]} {
26 puts "OK. Source shape has invalid curve on surface"
27} else {
28 puts "Error. checkcurveonsurf command works wrong with source shape"
29}
30
31if { [regexp {Invalid curves on surface:\n} ${log1} full ]} {
32 puts "OK. Result has invalid curve on surface"
33} else {
34 puts "Error. checkcurveonsurf command works wrong with result"
35}