809eca9d |
1 | puts "================" |
2 | puts "OCC23192" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # Regression in writestl command |
7 | ####################################################################################### |
8 | |
9 | catch { pload XDE } |
10 | |
11 | set BugNumber OCC23192 |
12 | |
13 | set aFile $imagedir/${test_image}.stl |
09494223 |
14 | file delete ${aFile} |
809eca9d |
15 | |
16 | set anASCIImode 1 |
17 | set InParallel 0 |
18 | |
19 | box res 10 10 10 |
20 | |
21 | writestl res ${aFile} ${anASCIImode} ${InParallel} |
22 | catch {exec chmod 777 ${aFile}} |
23 | |
24 | if { [file exists ${aFile}] } { |
25 | readstl result ${aFile} |
26 | |
27 | set nb_v_good 8 |
28 | set nb_e_good 18 |
29 | set nb_w_good 12 |
30 | set nb_f_good 12 |
31 | set nb_sh_good 1 |
32 | set nb_sol_good 0 |
33 | set nb_compsol_good 0 |
34 | set nb_compound_good 0 |
35 | set nb_shape_good 51 |
36 | |
37 | # Check file size |
38 | set size_status 0 |
09494223 |
39 | set filesize [ file size ${aFile} ] |
809eca9d |
40 | if { ${filesize} != 0 } { |
41 | set size_status 0 |
42 | } else { |
43 | set size_status 1 |
44 | } |
45 | |
46 | if { ${size_status} == 0 } { |
47 | puts "OK ${BugNumber}" |
48 | } else { |
49 | puts "Faulty ${BugNumber}" |
50 | } |
51 | } else { |
52 | puts "Faulty ${BugNumber}" |
53 | } |
54 | |
55 | set square 600 |
56 | set 3dviewer 0 |
57 | |