Test for 0024215: Error in offset (bad curve)

tests/bugs/demo/bug23671

@@ -1,40 +0,0 @@
-puts "TODO CR23671 Linux: Error"
-puts "TODO CR23671 Linux: Draw_Failure: Could not open"
-
-puts "============"
-puts "CR23671"
-puts "============"
-puts ""
-##########################################################################################################
-# pload function does not work if $DRAWDEFAULT file has win format
-##########################################################################################################
-
-set aDrawPlugin [locate_data_file DrawPlugin]
-set aDrawPluginDefaults [ file dirname ${aDrawPlugin} ]
-
-dgetenv CSF_DrawPluginDefaults
-dgetenv DRAWDEFAULT
-
-dsetenv CSF_DrawPluginDefaults ${aDrawPluginDefaults}
-dsetenv DRAWDEFAULT ${aDrawPlugin}
-
-dgetenv CSF_DrawPluginDefaults
-dgetenv DRAWDEFAULT
-
-if [catch {pload} info] {
-  puts "Error: pload function does not work if \$DRAWDEFAULT file has win format"
-} else {
-  puts "OK: pload function work if \$DRAWDEFAULT file has win format"
-}
-
-if [catch {pload -DrawPlugin} info] {
-  puts "Error: pload function does not work if \$DRAWDEFAULT file has win format"
-} else {
-  puts "OK: pload function work if \$DRAWDEFAULT file has win format"
-}
-
-if [catch {pload XDE} info] {
-  puts "Error: pload function does not work if \$DRAWDEFAULT file has win format"
-} else {
-  puts "OK: pload function work if \$DRAWDEFAULT file has win format"
-}

tests/bugs/modalg_7/bug24215

@@ -0,0 +1,27 @@
+puts "TODO OCC24215 ALL: ERROR: OCC24215 is reproduced."
+
+puts "========"
+puts "OCC24215"
+puts "========"
+puts ""
+###############################
+# Error in offset (bad curve)
+###############################
+
+restore [locate_data_file bug24215_face-10-012.brep] f
+
+mkoffset o f 1 0.4
+
+set bug_info [lprops o_1]
+
+# Length of o_1 SHOULD be less 58.8412 because offset is wrong and consists loop
+# "if" statement SHOULD be corrected than issue will be fixed
+if {[lindex $bug_info 2] == 58.8412} {
+  puts "ERROR: OCC24215 is reproduced."
+}
+
+vinit
+vdisplay f
+vdisplay o_1
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png