Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60946
1
2 puts "============"
3 puts "BUC60946"
4 puts "============"
5
6 restore [locate_data_file BUC60946_prism.brep] c 
7 explode c
8 puts [checkshape c_1]
9 puts [checkshape c_2]
10
11 renamevar c_1 sh
12 renamevar c_2 pr
13 bsection result sh pr
14
15 set nb_info [nbshapes result]
16 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
17 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
18
19 if { $nb_vertices != $nb_edges } {                                         
20     puts "Section is opened: Faulty shape"
21 } else {
22     puts "Section is closed: OK"
23 }
24 set length 52.5057
25 set 2dviewer 0