Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug19626
1
2 puts "============"
3 puts "PRO19626"
4 puts "============"
5
6 restore [locate_data_file pro19626a.brep] a 
7 puts [checkshape a]
8 restore [locate_data_file pro19626b.brep] b
9 puts [checkshape b]
10
11 bsection result a b
12 regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
13 if { $num != 2 } {
14     puts " Faulty PRO19626: Result shape is INcorrect !!! "
15 } else {
16     puts "PRO19626 OK : Result shape is CORRECT !!! "
17 }
18
19 set length 174.597
20 set 3dviewer 2
21