0022454: Export /Import of valid model leads to lost of tolerances

Adding testing case

diff --git a/tests/bugs/modalg_6/bug22454 b/tests/bugs/modalg_6/bug22454
new file mode 100644 (file)
index 0000000..2a6cff3
--- /dev/null
+++ b/tests/bugs/modalg_6/bug22454
@@ -0,0 +1,30 @@
+puts "============"
+puts "OCC22454"
+puts "============"
+puts ""
+###########################################################
+# Export /Import of valid model leads to lost of tolerances
+###########################################################
+
+pload DATAEXCHANGE
+
+restore [locate_data_file bug22454.brep] s
+
+checkshape s
+stepwrite m s $imagedir/shape.stp
+stepread $imagedir/shape.stp a *
+
+set tolref [checkmaxtol s]
+
+set tol [checkmaxtol a_1]
+
+puts "MAX tolerance shape before export : $tolref"
+puts "MAX tolerance shape after import : $tol"
+
+if { ${tol} > ${tolref} } {
+           puts "Error: Export /Import cause increasing tolerances of shape"
+       } else {
+           puts "Export /Import does not cause increasing tolerances of shape"
+       }  
+
+checkview -display a_1 -2d -path ${imagedir}/${test_image}.png
\ No newline at end of file