0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / xde / bug25357
1 puts "=========="
2 puts "OCC25357"
3 puts "=========="
4 puts ""
5 #######################################################################################
6 # STL writer does not check the given shape for existing triangulation and remeshes 
7 # shape using BRepMesh in force mode
8 #######################################################################################
9
10 set aFile ${imagedir}/${test_image}.stl
11 file delete -force ${aFile}
12
13 set anASCIImode 0
14
15 ptorus res 10 8
16 incmesh res 0.5
17
18 set LogBefore [trinfo res]
19
20 writestl res ${aFile} ${anASCIImode}
21
22 checktrinfo res -ref "${LogBefore}"
23
24 if { ![file exists ${aFile}] || [ file size ${aFile} ] == 0 } {
25   puts "Error: STL writer does not check given shape"
26 } else {
27   puts "OK: STL writer check given shape"
28 }