Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug80
1 puts "============"
2 puts "BUC60877"
3 puts "OCC80"
4 puts "============"
5 puts ""
6 ##########################################################
7 ## The command "section" in Draw gives exception "attempt to access to null objec " 
8 ##########################################################
9
10 restore [locate_data_file BUC60877_lh.brep] sh 
11 puts [checkshape sh]
12
13 plane pl 820 198 140 -1e-06 0 1
14 mkface f pl -1000 500 -300 100
15
16 if [catch {bsection result sh f } catch_result] {
17     puts "Faulty BUC60877: function SECTION works wrongly"
18 } else {
19     puts "BUC60877 OK: function SECTION works properly"
20 }
21 set length 1358.63
22 set 2dviewer 0