1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Regression in writestl command
7 #######################################################################################
11 set BugNumber OCC23192
13 set aFile $imagedir/${test_image}.stl
21 writestl res ${aFile} ${anASCIImode}
22 catch {exec chmod 777 ${aFile}}
24 if { [file exists ${aFile}] } {
25 readstl result ${aFile}
27 checknbshapes result -vertex 8 -edge 18 -wire 12 -face 12 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 51
30 set filesize [ file size ${aFile} ]
31 if { ${filesize} != 0 } {
37 if { ${size_status} == 0 } {
38 puts "OK ${BugNumber}"
40 puts "Faulty ${BugNumber}"
43 puts "Faulty ${BugNumber}"