Adding test cases for chl grid
[occt.git] / tests / bugs / modalg / pro19424
1
2 puts "=========="
3 puts "PRO19424"
4 puts "=========="
5
6 restore [locate_data_file pro19424a.brep] b 
7 checkshape b
8 restore [locate_data_file pro19424b.brep] p
9 checkshape p
10
11 if [catch {evolved result b p o } catch_result] {
12   puts "Faulty PRO19424 : function EVOLVED works wrongly"
13 } else {
14   puts "PRO19424 OK: function EVOLVED works properly"
15 }
16
17 set square 246.506
18 set 2dviewer 0
19