Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug16517_1
1 puts "============"
2 puts "OCC16517"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Cylindrical projection is wrong
7 #######################################################################
8
9 set BugNumber OCC16517
10
11 restore [locate_data_file OCC16517_c.brep] c
12 restore [locate_data_file OCC16517_s.brep] s
13
14 set Result_List [prj p c s 0 0 1]
15 set Result_Numbers [llength ${Result_List}]
16 set mistake 0
17 if { ${Result_Numbers} != 2 } {
18   puts "Faulty ${BugNumber} : projection numbers are wrong"
19   set mistake 1
20 } else {
21   puts "First projection ..."
22   renamevar p_1 result
23
24   set status 0
25   set length 110.167
26   set nb_v_good 1
27   set nb_e_good 1
28   set nb_w_good 1
29   set nb_f_good 0
30   set nb_sh_good 0
31   set nb_sol_good 0
32   set nb_compsol_good 0
33   set nb_compound_good 0
34   set nb_shape_good 3
35 }
36
37 if { ${mistake} != 0 } {
38   puts "Faulty ${BugNumber}"
39 } else {
40   puts "OK ${BugNumber}"
41 }
42
43 set 2dviewer 0
44