Adding test cases for chl grid

[occt.git] / tests / bugs / moddata / bug525

diff --git a/tests/bugs/moddata/bug525 b/tests/bugs/moddata/bug525
new file mode 100755 (executable)
index 0000000..57a6051
--- /dev/null
+++ b/tests/bugs/moddata/bug525
@@ -0,0 +1,23 @@
+pload QAcommands
+
+puts "========"
+puts "OCC525"
+puts "========"
+puts ""
+#########################################
+## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit()
+#########################################
+
+set mistake 0
+
+decho off
+if { [catch { OCC525 } ] } {
+    set mistake 1
+}
+decho on
+
+if { $mistake == 1 } {
+    puts "Faulty : OCC525"
+}
+
+set 2dviewer 1