X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fmesh%2Fbug25551;h=e4ddf1025523298311bfec8aeb65c7394ca6e7da;hp=74e2f39fd409ec426aacb1cf91771eadaba50fb7;hb=62beabff7ced878beda76c4cf9fb791666f6a2a7;hpb=5e06dfcb323c010170a0c37e4e84fa0cce678fcf

diff --git a/tests/bugs/mesh/bug25551 b/tests/bugs/mesh/bug25551
index 74e2f39fd4..e4ddf10255 100644
--- a/tests/bugs/mesh/bug25551
+++ b/tests/bugs/mesh/bug25551
@@ -1,5 +1,3 @@
-puts "TODO OCC25551 ALL: Error: BRepMesh can produce internal nodes outside the face interior based on distorted BSpline surface"
-
 puts "================"
 puts "OCC25551"
 puts "================"
@@ -8,26 +6,27 @@ puts ""
 # BRepMesh can produce internal nodes outside the face interior based on distorted BSpline surface
 #######################################################################################
 
-restore [locate_data_file bug25551_m-a-i-B6.brep] res
-
-explode res f
-
-triangles res_2
-
-set ExpectedArea 0.208305
-set tol_abs 0.00001
+restore [locate_data_file bug25551_m-a-i-B6.brep] result
 
-set prop [ sprops res_2]
-regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s Area
-
-if { [expr abs($Area - $ExpectedArea)] > $tol_abs } {
-  puts "OK: BRepMesh not produce internal nodes outside the face interior based on distorted BSpline surface"
-} else {
-  puts "Error: BRepMesh can produce internal nodes outside the face interior based on distorted BSpline surface"
-}
+tclean result
+vdisplay -noupdate -redisplay result
+vsetdispmode 1
+vclear
+ 
+explode result f
+triangles result_2
+isos result_2 0
 
 smallview
-donly res_2
+donly result_2
 top
 fit
-checkview -screenshot -2d -path ${imagedir}/${test_image}.png
+
+vtop
+vdefaults -autoTriang 0
+vdisplay result_2
+vdefaults -autoTriang 1
+vfit
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png
+checkview -screenshot -3d -path ${imagedir}/${test_image}_3d.png