0e94a94e |
1 | puts "============" |
2 | puts "BUC60877" |
3 | puts "OCC80" |
4 | puts "============" |
5 | puts "" |
6 | ########################################################## |
7b5e532f |
7 | ## The command "section" in Draw gives exception "attempt to access to null object " |
0e94a94e |
8 | ########################################################## |
9 | |
10 | restore [locate_data_file BUC60877_lh.brep] sh |
352ffd73 |
11 | checkshape sh |
0e94a94e |
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 | } |
58cf74e0 |
21 | checkprops result -l 1358.63 |
22 | checkshape result |
23 | checksection result |
5747059b |
24 | checkview -display result -2d -path ${imagedir}/${test_image}.png |