0025740: VrmlData_Scene::WriteArrIndex() writes extra point indices.
[occt.git] / 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 storevrml p_3 ${aFile} 1 1
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,\n\s+16,17,18,19,20,21,22,23,24,25,26,27,28, -1} ${filecontent} full] } {
36   set status 0 
37 }
38
39 if {$status == 1} {
40   puts "OK ${BugNumber}"
41 } else {
42   puts "Faulty ${BugNumber}"
43 }