Update of tests database

Test for 0021134: checkshape command does not return faulty shapes.
Test for 0021494: Intersection between cone and sphere fails
Test for 0022642: Refactoring of ShapeFix_Wire::FixIntersectingEdges
Test for 0022732: Reading a STEP file produces invalid shape

tests/bugs/heal/bug22642

@@ -0,0 +1,14 @@
+puts "TODO OCC22642 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC22642"
+puts "========"
+puts ""
+######################################################
+# Refactoring of ShapeFix_Wire::FixIntersectingEdges
+######################################################
+
+restore [locate_data_file bug22642_ss_47.brep] f
+fixshape result f -l -o -h -m -d -s +i -n
+
+checkshape result

tests/bugs/modalg_7/bug21134

@@ -0,0 +1,18 @@
+puts "TODO OCC21134  ALL: Error: checkshape command does not return faulty shapes"
+
+puts "============"
+puts "OCC21134"
+puts "============"
+puts ""
+######################################################
+# checkshape command does not return faulty shapes.
+######################################################
+
+restore [locate_data_file bug21134_r.brep] res
+
+checkshape res
+
+set Log [bopcheck res]
+if {[regexp "This shape seems to be OK" ${Log}] != 1} {
+    puts "Error: checkshape command does not return faulty shapes."
+}

tests/bugs/modalg_7/bug21494

@@ -0,0 +1,22 @@
+puts "TODO OCC21494 ALL: Error: Intersection between cone and sphere fails"
+
+puts "========"
+puts "OCC21494"
+puts "========"
+puts ""
+############################################
+# Intersection between cone and sphere fails
+############################################
+
+pcone c 15 0 10
+psphere s 10
+explode c f
+explode s f
+mksurface sc c_1
+mksurface ss s_1
+
+intersect i sc ss
+
+if { [info exist i_1] == 0 } {
+  puts "Error: Intersection between cone and sphere fails"
+}

tests/bugs/step/bug22732

@@ -0,0 +1,14 @@
+puts "TODO OCC22732 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC22732"
+puts "========"
+puts ""
+##############################################
+# Reading a STEP file produces invalid shape
+##############################################
+
+ReadStep D1 [locate_data_file bug22732_MASTER_ASSEMBLE.stp]
+XGetOneShape result D1
+
+checkshape result