X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fdemo%2Fbug24873_2;h=0d7bf2a3b510a263eb37d9479d7778bfb557ee08;hb=c2a388f88404f781e678f0b3157d0a722af14037;hpb=6a43d224e4c6240d656f723fbc181e3b4bd1866d

diff --git a/tests/bugs/demo/bug24873_2 b/tests/bugs/demo/bug24873_2
new file mode 100755
index 0000000000..0d7bf2a3b5
--- /dev/null
+++ b/tests/bugs/demo/bug24873_2
@@ -0,0 +1,40 @@
+puts "============"
+puts "CR24873"
+puts "============"
+puts ""
+##########################################################################################################
+# Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
+##########################################################################################################
+
+vinit View1
+vclear
+vaxo
+vsetdispmode 1
+
+psphere s 2
+vdisplay s
+vfit
+
+set info [vbounding -print s]
+
+regexp {s+\n([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} full x1 y1 z1 x2 y2 z2
+
+set tol_abs 0.1
+set tol_rel 0.1
+
+set expected_x1 -2
+set expected_y1 -2
+set expected_z1 -2
+
+set expected_x2 2
+set expected_y2 2
+set expected_z2 2
+
+checkreal "x1" ${x1} ${expected_x1} ${tol_abs} ${tol_rel}
+checkreal "y1" ${y1} ${expected_y1} ${tol_abs} ${tol_rel}
+checkreal "z1" ${z1} ${expected_z1} ${tol_abs} ${tol_rel}
+checkreal "x2" ${x2} ${expected_x2} ${tol_abs} ${tol_rel}
+checkreal "y2" ${y2} ${expected_y2} ${tol_abs} ${tol_rel}
+checkreal "z2" ${z2} ${expected_z2} ${tol_abs} ${tol_rel}
+
+vdump ${imagedir}/${test_image}.png