3bea4c16 |
1 | puts "========================" |
2 | puts "OCC20524" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Wrong intersection |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC20524 |
10 | |
11 | restore [locate_data_file OCC20524-surf1.draw] surf1 |
12 | restore [locate_data_file OCC20524-surf2.draw] surf2 |
13 | |
14 | intersect result surf1 surf2 |
15 | |
16 | set che [whatis result] |
17 | if { ![regexp {3d curve} $che] } { |
18 | puts "Faulty ${BugNumber}: command INTERSECT works wrongly" |
19 | } else { |
20 | puts "${BugNumber} OK : command INTERSECT works properly" |
21 | } |
22 | |