1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/modalg_1/bug16517_1
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

45 lines
949 B
Plaintext
Executable File

puts "============"
puts "OCC16517"
puts "============"
puts ""
#######################################################################
# Cylindrical projection is wrong
#######################################################################
set BugNumber OCC16517
restore [locate_data_file OCC16517_c.brep] c
restore [locate_data_file OCC16517_s.brep] s
set Result_List [prj p c s 0 0 1]
set Result_Numbers [llength ${Result_List}]
set mistake 0
if { ${Result_Numbers} != 2 } {
puts "Faulty ${BugNumber} : projection numbers are wrong"
set mistake 1
} else {
puts "First projection ..."
renamevar p_1 result
set status 0
set length 110.167
set nb_v_good 1
set nb_e_good 1
set nb_w_good 1
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 3
}
if { ${mistake} != 0 } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
set 2dviewer 0