a87752f3 |
1 | puts "=========" |
2 | puts " OCC504 " |
3 | puts "=========" |
4 | puts "" |
5 | ############################### |
6 | ## AllocMemory while intersection command |
7 | ############################### |
8 | |
9 | restore [locate_data_file OCC504a.draw] su1 |
10 | # checkshape su1 |
11 | |
12 | restore [locate_data_file OCC504b.draw] su2 |
13 | # checkshape su2 |
14 | |
15 | if [catch {intersect result su1 su2} catch_result] { |
16 | puts "Faulty OCC504 : A solution takes all memory and crach with AllocMemory" |
17 | } else { |
18 | puts "OCC504 OK: function intersection works ok" |
19 | } |
20 | |
21 | if { [regexp {curve} [whatis result_1]] && [regexp {curve} [whatis result_2]] } { |
22 | puts "OCC504 OK : Result shape is CORRECT !!! " |
23 | } else { |
24 | puts " Faulty OCC504: Result shape is INcorrect !!! " |
25 | } |
26 | |
5747059b |
27 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
28 | |