Adjusting testing case

diff --git a/samples/tcl/snowflake.tcl b/samples/tcl/snowflake.tcl
index 3b50252e5861a28f8f6cc795f3ac01a00a2fc2c3..d31dc5a4925430bc605f487ac318f0196802046b 100644 (file)
--- a/samples/tcl/snowflake.tcl
+++ b/samples/tcl/snowflake.tcl
@@ -137,7 +137,7 @@ vfit
 
 # add dimension
 explode snowflake v
-vdimension length -length -shapes snowflake_93 snowflake_15 -plane xoy -value 0.001 -dispunits mm -showunits -flyout 70 -label above -color black -text 5 3d sh
+vdimension length -length -shapes snowflake_89 snowflake_15 -plane xoy -value 0.001 -dispunits mm -showunits -flyout 70 -label above -color black -text 5 3d sh
 
 if { [regexp HAVE_GL2PS [dversion]] } {
     puts "You can use command vexport to generate PDF: vexport your_file_path.pdf"

diff --git a/tests/bugs/modalg_6/bug26446 b/tests/bugs/modalg_6/bug26446
new file mode 100644 (file)
index 0000000..8db09c3
--- /dev/null
+++ b/tests/bugs/modalg_6/bug26446
@@ -0,0 +1,20 @@
+puts "========"
+puts "OCC26446"
+puts "========"
+puts ""
+#####################################################
+# GeomConvert::ConcatC1 produces not expected curve
+#####################################################
+
+pload QAcommands
+
+smallview
+
+restore [locate_data_file OCC26446-c1.draw] c1
+restore [locate_data_file OCC26446-c2.draw] c2
+OCC26446 r c1 c2
+
+donly r
+fit
+
+set only_screen_axo 1