Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60826
1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60826b.brep could not be found"
2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
3
4 puts "========================"                                                 
5 puts "BUC60826"                                                                 
6 puts "========================"                                                 
7                                                                       
8 #restore Model2-a.brep a
9 restore [locate_data_file BUC60826a.brep] a 
10 puts [checkshape a]
11
12 # restore Model2-b.brep b
13 restore [locate_data_file BUC60826b.brep] b
14 puts [checkshape b]
15
16 bsection result a b
17
18 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
19
20 if { $num != 0 } {
21     puts " Faulty BUC60826 : Result shape is Unclosed !!! "
22 } else {
23     puts "BUC60826 OK: Result shape is CORRECT !!! "
24 }
25 set length 0
26 set 2dviewer 0
27