1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
ski a8676008f7 Adding of testing cases from subgroups 937 940 and 941 of CHL group
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing
Correction of end file in group v3d
Small correction of test case
2013-02-08 15:16:15 +04:00

23 lines
618 B
Plaintext
Executable File

puts "============"
puts "BUC60877"
puts "OCC80"
puts "============"
puts ""
##########################################################
## The command "section" in Draw gives exception "attempt to access to null objec "
##########################################################
restore [locate_data_file BUC60877_lh.brep] sh
checkshape sh
plane pl 820 198 140 -1e-06 0 1
mkface f pl -1000 500 -300 100
if [catch {bsection result sh f } catch_result] {
puts "Faulty BUC60877: function SECTION works wrongly"
} else {
puts "BUC60877 OK: function SECTION works properly"
}
set length 1358.63
set 2dviewer 0