02cf7ca40f076b431ecbdc8d07cc6f6037f31e3c
[occt.git] / tests / bugs / stlvrml / bug25279
1 puts "================"
2 puts "OCC25279"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # OCCT fails to read VRML file created by OCCT
7 #######################################################################################
8
9 set BugNumber OCC25279
10
11 set aFile ${imagedir}/${test_image}.vrml
12 file delete ${aFile}
13
14 ptorus res 10 8 0 90 270
15 incmesh res 0.1
16
17 set TrinfoBefore [trinfo res]
18
19 set version 2
20 set mode 2
21
22 writevrml res ${aFile} ${version} ${mode}
23
24 set TrinfoAfter [trinfo res]
25 set Log [loadvrml test ${aFile}]
26
27 set status 1
28
29 if { $TrinfoBefore != $TrinfoAfter } {
30   set status 0 
31 }
32
33 if { [string length $Log] != 0 } {
34   set status 0 
35 }
36
37 if {$status == 1} {
38   puts "OK ${BugNumber}"
39 } else {
40   puts "Faulty ${BugNumber}"
41 }