1 puts "================"
3 puts "================"
5 #######################################################################################
6 # VrmlData_Scene::WriteArrIndex() writes extra point indices
7 #######################################################################################
11 set aFile $imagedir/${test_image}.vrml
13 ptorus p 10 8 0 90 120
18 writevrml p_3 ${aFile} 2 2
21 if { ![file exists ${aFile}] } {
26 set filesize [ file size ${aFile} ]
27 if { ${filesize} == 0 } {
31 set fd0 [ open ${aFile} r ]
32 set filecontent [ read ${fd0} ]
35 if { ![regexp {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,\n\s+16,17,18,19,20,21,22,23,24,25,26,27,28, -1} ${filecontent} full] } {
40 puts "OK ${BugNumber}"
42 puts "Faulty ${BugNumber}"