f5fa6b33 |
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 | |
5d7a0489 |
24 | checktrinfo res -ref "${TrinfoBefore}" |
f5fa6b33 |
25 | |
5d7a0489 |
26 | set Log [loadvrml test ${aFile}] |
f5fa6b33 |
27 | |
28 | if { [string length $Log] != 0 } { |
f5fa6b33 |
29 | puts "Faulty ${BugNumber}" |
5d7a0489 |
30 | } else { |
31 | puts "OK ${BugNumber}" |
f5fa6b33 |
32 | } |