0025084: Incorrect PCurve construction

Test case for issue CR25084

diff --git a/tests/bugs/moddata_3/bug25084 b/tests/bugs/moddata_3/bug25084
new file mode 100644 (file)
index 0000000..50e8146
--- /dev/null
+++ b/tests/bugs/moddata_3/bug25084
@@ -0,0 +1,23 @@
+puts "============"
+puts "OCC25084"
+puts "============"
+puts ""
+#######################################################################
+# Incorrect PCurve construction
+#######################################################################
+
+restore [locate_data_file bug25084_c.draw] c
+restore [locate_data_file bug25084_s10.draw] s
+
+project cx c s
+
+regexp {The length cx is +([0-9.+eE]+)} [length cx] full cx_length
+
+set good_length 4.6201952691345385
+checkreal "length of cp1" ${cx_length} ${good_length} 0.01 0.01
+
+#v2d2
+view 1 -2D-  728 20 400 400
+
+2dfit
+set only_screen_axo 1