From fd175e093db2906e8c489ac5b57a11d8d2578d03 Mon Sep 17 00:00:00 2001
From: apv <apv@opencascade.com>
Date: Wed, 5 Aug 2015 11:37:55 +0300
Subject: [PATCH] 0024522: Application crashes on view closing in case of using
 of clipping planes Test-case for issue #24522

---
 tests/bugs/vis/bug24522 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tests/bugs/vis/bug24522

diff --git a/tests/bugs/vis/bug24522 b/tests/bugs/vis/bug24522
new file mode 100644
index 0000000000..19876731aa
--- /dev/null
+++ b/tests/bugs/vis/bug24522
@@ -0,0 +1,18 @@
+puts "========"
+puts "OCC24522"
+puts "========"
+puts ""
+###########################################################################
+# Application crashes on view closing in case of using of clipping planes
+###########################################################################
+
+box b 1 1 1
+vdisplay b
+vfit
+vsetdispmode b 1
+vclipplane create p
+vclipplane change p equation 0 0 -1 -0.5
+vclipplane set p view Driver1/Viewer1/View1
+vclipplane change p capping on
+vclipplane unset p view Driver1/Viewer1/View1
+vclose View1