puts "================"
puts "OCC25279"
puts "================"
puts ""
#######################################################################################
# OCCT fails to read VRML file created by OCCT
#######################################################################################

set BugNumber OCC25279

set aFile ${imagedir}/${test_image}.vrml
file delete ${aFile}

ptorus res 10 8 0 90 270
incmesh res 0.1

set TrinfoBefore [trinfo res]

set version 2
set mode 2

writevrml res ${aFile} ${version} ${mode}

set TrinfoAfter [trinfo res]
set Log [loadvrml test ${aFile}]

set status 1

if { $TrinfoBefore != $TrinfoAfter } {
  set status 0 
}

if { [string length $Log] != 0 } {
  set status 0 
}

if {$status == 1} {
  puts "OK ${BugNumber}"
} else {
  puts "Faulty ${BugNumber}"
}