Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug139
1 puts "================"
2 puts "OCC139"
3 puts "================"
4 puts ""
5 #######################################
6 ## The intersection must be closed . So the curve is wrong.
7 #######################################
8
9 restore [locate_data_file OCC139-1.draw] sh1 
10 restore [locate_data_file OCC139-2.draw] sh2
11
12 if { ![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
24 set 2dviewer 0
25