Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug139
CommitLineData
a87752f3 1puts "================"
2puts "OCC139"
3puts "================"
4puts ""
5#######################################
6## The intersection must be closed . So the curve is wrong.
7#######################################
8
9restore [locate_data_file OCC139-1.draw] sh1
10restore [locate_data_file OCC139-2.draw] sh2
11
12if { ![catch {intersect result sh1 sh2} catch_result] } {
13 puts "OCC139 OK : intersection found"
14 regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
15 if { $num != 0 } {
16 puts "Faulty OCC139: Intersection was made WRONGLY. The curve must be closed ."
17 } else {
18 puts "OCC139 OK : Intersection command works properly. The curve is closed"
19 }
20} else {
21 puts "Faulty OCC139 : NO intersection found"
22}
23
24set 2dviewer 0
25