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