Added testing cases from grid CHL

[occt.git] / tests / bugs / moddata_2 / bug22746_3

diff --git a/tests/bugs/moddata_2/bug22746_3 b/tests/bugs/moddata_2/bug22746_3
new file mode 100755 (executable)
index 0000000..1f82cb4
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22746_3
@@ -0,0 +1,46 @@
+puts "============"
+puts "OCC22746"
+puts "============"
+puts ""
+###########################################################################
+# Progress indicator in ShapeHealing
+###########################################################################
+
+set BugNumber OCC22746
+
+set Min_ListLength 11
+
+catch { pload XSDRAW }
+
+restore [locate_data_file OCC22761-TransmissionTestModel5-notfixed.brep] a 
+vinit
+XProgress -t
+set List1 [fixshape result a]
+puts "----------------------"
+XProgress +t
+set List2 [fixshape result a]
+
+set status 0
+
+if { ${List1} != ${List2}} {
+    set status 0
+} else {
+    set status 1
+}
+
+if { [ regexp {Progress:} $List2 ] } {
+    puts "${BugNumber} OK"
+    set status 0
+} else {
+    puts "${BugNumber} Faulty"
+    set status 1
+}
+
+if { $status != 0 } {
+    puts  "Faulty $BugNumber"
+} else {
+    puts  "OK $BugNumber"
+}
+set 3dviewer 0
+set square 7.46496e+06
+