0025740: VrmlData_Scene::WriteArrIndex() writes extra point indices.

[occt.git] / tests / bugs / stlvrml / bug25740

diff --git a/tests/bugs/stlvrml/bug25740 b/tests/bugs/stlvrml/bug25740
new file mode 100644 (file)
index 0000000..6a032fa
--- /dev/null
+++ b/tests/bugs/stlvrml/bug25740
@@ -0,0 +1,43 @@
+puts "================"
+puts "OCC25740"
+puts "================"
+puts ""
+#######################################################################################
+# VrmlData_Scene::WriteArrIndex() writes extra point indices
+#######################################################################################
+
+set BugNumber OCC25740
+
+set aFile $imagedir/${test_image}.vrml
+
+ptorus p 10 8 0 90 120
+incmesh p 0.1
+
+explode p e
+
+storevrml p_3 ${aFile} 1 1
+
+set status 1
+if { ![file exists ${aFile}] } {
+  set status 0
+}
+
+# Check file size
+set filesize [ file size ${aFile} ]
+if { ${filesize} == 0 } {
+  set status 0
+}
+
+set fd0 [ open ${aFile} r ]
+set filecontent [ read ${fd0} ]
+close $fd0
+
+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] } {
+  set status 0 
+}
+
+if {$status == 1} {
+  puts "OK ${BugNumber}"
+} else {
+  puts "Faulty ${BugNumber}"
+}