tests/bugs/stlvrml/bug25740

   1 puts "================"
   2 puts "OCC25740"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # VrmlData_Scene::WriteArrIndex() writes extra point indices
   7 #######################################################################################
   8
   9 set BugNumber OCC25740
  10
  11 set aFile $imagedir/${test_image}.vrml
  12
  13 ptorus p 10 8 0 90 120
  14 incmesh p 0.1
  15
  16 explode p e
  17
  18 writevrml p_3 ${aFile} 2 2
  19
  20 set status 1
  21 if { ![file exists ${aFile}] } {
  22   set status 0
  23 }
  24
  25 # Check file size
  26 set filesize [ file size ${aFile} ]
  27 if { ${filesize} == 0 } {
  28   set status 0
  29 }
  30
  31 set fd0 [ open ${aFile} r ]
  32 set filecontent [ read ${fd0} ]
  33 close $fd0
  34
  35 if { ![regexp {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15, -1} ${filecontent} full] } {
  36   set status 0
  37 }
  38
  39 if {$status == 1} {
  40   puts "OK ${BugNumber}"
  41 } else {
  42   puts "Faulty ${BugNumber}"
  43 }