Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug356
CommitLineData
0e94a94e 1
2puts "================"
3puts "OCC356"
4puts "================"
5puts ""
6#######################################################
7## The Draw command "wexplo" gives one edge instead of 6 for the face.
8#######################################################
9
10restore [locate_data_file OCC356.brep] result
352ffd73 11checkshape result
0e94a94e 12
13explode result w
14
15wexplo result_1 result
16
17set nom 0
18set j 1
19repeat 10 {
20 set err ""
21 regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
22 if { $err != "EDGE"} {
23 break
24 } else {
25 set nom [expr $nom + 1]
26 }
27 incr j
28}
29if { $nom != 6} {
30 puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
31} else {
32 puts "OCC356 OK : Command WEXPLO works properly"
33}
34
35set square 6207.83
36set 2dviewer 0