Adjusting testing cases for current state of OCCT

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 7aeaa814286542097f289d1b38ba1eceaa1b7db3..ccc0727437700776c37792c82327cb661eb4863e 100644 (file)
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1872,6 +1872,7 @@ proc _check_file_format {file} {
 proc load_data_file {file format shape} {
     switch $format {
     BREP { uplevel restore $file $shape }
+    DRAW { uplevel restore $file $shape }
     IGES { pload XSDRAW; uplevel igesbrep $file $shape * }
     STEP { pload XSDRAW; uplevel stepread $file __a *; uplevel renamevar __a_1 $shape }
     STL  { pload XSDRAW; uplevel readstl $shape $file }

diff --git a/tests/bugs/moddata/bug23475 b/tests/bugs/moddata/bug23475
index 30150d53835b67ee7016b088276198db40b75169..7b306f3cafb9c5a1cbdae752958d3c11f9bcfb5b 100755 (executable)
--- a/tests/bugs/moddata/bug23475
+++ b/tests/bugs/moddata/bug23475
@@ -6,7 +6,7 @@ puts ""
 # Wrong result of Geom_BSpline_Surface::IsVClosed()
 ###############################################################################
 
-restore [locate_data_file bug23475.brep] s1
+restore [locate_data_file bug23475.draw] s1
 set info [dump s1]
 
 if { [regexp "BSplineSurface vclosed" $info] != 1} {

diff --git a/tests/mesh/data/standard/W5 b/tests/mesh/data/standard/W5
index 110464e795187bb682fcc7e564d194361fe5a622..586c0fadce91532525b21ccae8c1140c363be414 100755 (executable)
--- a/tests/mesh/data/standard/W5
+++ b/tests/mesh/data/standard/W5
@@ -11,6 +11,6 @@ if { [string compare $command "shading"] == 0 } {
 } else {
   set nbwithouttri(All) 91
   set nbcross(All) 11
-  set bug_freenodes "OCC22687"
-  set nbfreenodes(All) 9
+  set bug_freenodes "OCC23473"
+  set nbfreenodes(All) 11
 }