0028640: Modeling Algorithms - BRepBuilderAPI_Transform builds invalid shape

Adapt test case, the problem is not reproduced any more.
Problem is fixed by the commit: 46478ffe32cfca537a35b744700e082f59ec4c4c (0030008: BRepMesh does not respect angular deflection in internal area of bspline surface)

tests/bugs/modalg_7/bug28640

@@ -1,37 +1,37 @@
-puts "TODO OCC28640 ALL: Faulty shapes in variables faulty_1"
+puts "================"
-
+puts "0028640: Modeling Algorithms - BRepBuilderAPI_Transform builds invalid shape"
-puts "========"
+puts "================"
-puts "OCC28640"
-puts "========"
 puts ""
-##############################################
-# BRepBuilderAPI_Transform build invalid shape
-##############################################
 
+# Analyze triangulation after mirroring shape 
 restore [locate_data_file bug28640_origin_copy.brep] a
-
+tmirror a 0 0 0 1 0 0
-smallview
-display a
-front
-fit
 
 vinit
 vsetdispmode 1
 vdisplay a
 vfront
 vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}-mirror-3d_1.png
 
-#
+if {[tricheck a] != ""} {
+	puts "Error: invalid triangulation"
+}
 
+# Fix the shape and check its validity after mirroring
+restore [locate_data_file bug28640_origin_copy.brep] a
+fixshape a a
+checkshape a
 tmirror a 0 0 0 1 0 0
-
 checkshape a
 
-display a
+# Check triangulation of healed and mirrored shape 
-fit
-checkview -screenshot -2d -path ${imagedir}/${test_image}-mirror-2d.png
-
 vclear
 vdisplay a
+vfront
 vfit
-checkview -screenshot -3d -path ${imagedir}/${test_image}-mirror-3d.png
+checkview -screenshot -3d -path ${imagedir}/${test_image}-mirror-3d_2.png
+
+if {[tricheck a] != ""} {
+	puts "Error: invalid triangulation"
+}