Integration part of tests of grid chl
[occt.git] / tests / bugs / step / bug20362
1 puts "========================"
2 puts "PRO20362"
3 puts "========================"
4
5 stepread [locate_data_file PRO20362.stp] a *
6
7 explode a_1 f
8 renamevar a_1 result
9
10 puts [checkshape a_1_1]
11 puts [checkshape a_1_1 r]
12
13 set l [explode a_1_1 e]
14 set n [llength $l]
15 if { $n != 4 } {
16     puts "Error : The amount of edges in FIRST face is more than four"
17 }
18
19 puts [checkshape a_1_2]
20 puts [checkshape a_1_2 r]
21
22 set i [explode a_1_2 e]
23 set m [llength $i]
24 if { $m != 4 } {
25     puts "Faulty : The amount of edges in SECOND face is more than four"
26 }
27
28 set 2dviewer 0