Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug428
1 puts "========"
2 puts "OCC428"
3 puts "SAM1414"
4 puts "========"
5
6 ################################################
7 ## Exception during vizualization on attached shape in application.
8 ## Exception is raised in the package StdPrs.
9 ################################################
10
11 restore [locate_data_file OCC428.brep] result
12
13 tclean result
14 vinit
15 vdisplay result
16 vsetdispmode result 1
17 vclear
18
19 isos result 0
20 triangles result
21 vfit
22
23 set tri_info [trinfo result]
24 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
25 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
26
27 if { $tri == 5496 && $nod == 5406 }  {
28     puts "Warning OCC428: here is shading problem, but source shape is invalid"
29 } else {
30      puts "Warning OCC428: Shading of OCC428 was made, source shape is invalid"
31 }
32
33 set 3dviewer 1
34