Adding of testing cases from subgroups 937 940 and 941 of CHL group

Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing
Correction of end file in group v3d
Small correction of test case

tests/bugs/fclasses/bug13963_1

@@ -0,0 +1,57 @@
+pload QAcommands
+
+puts "============"
+puts "OCC13963"
+puts "============"
+puts ""
+#######################################################################
+# Some improvements in Bnd and gp classes
+#######################################################################
+
+set BugNumber OCC13963
+
+set Result [OCC13963 1 0 0 1]
+
+regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ
+
+if { ${OriginX} == 1.000 } {
+   set Status 0
+} else {
+   set Status 1
+}
+if { ${OriginY} == 0.000 } {
+   set Status 0
+} else {
+   set Status 2
+}
+if { ${OriginZ} == 0.000 } {
+   set Status 0
+} else {
+   set Status 3
+}
+
+if { ${ResultX} == 1.000 } {
+   set Status 0
+} else {
+   set Status 4
+}
+if { ${ResultY} == 0.000 } {
+   set Status 0
+} else {
+   set Status 5
+}
+if { ${ResultZ} == 0.000 } {
+   set Status 0
+} else {
+   set Status 6
+}
+
+puts "Status = ${Status}"
+# Resume
+puts ""
+if { ${Status} != 0 } {
+  puts "Faulty ${BugNumber}"
+} else {
+  puts "OK ${BugNumber}"
+}
+

tests/bugs/fclasses/bug13963_2

@@ -0,0 +1,57 @@
+pload QAcommands
+
+puts "============"
+puts "OCC13963"
+puts "============"
+puts ""
+#######################################################################
+# Some improvements in Bnd and gp classes
+#######################################################################
+
+set BugNumber OCC13963
+
+set Result [OCC13963 1 0 0 2]
+
+regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ
+
+if { ${OriginX} == 1.000 } {
+   set Status 0
+} else {
+   set Status 1
+}
+if { ${OriginY} == 0.000 } {
+   set Status 0
+} else {
+   set Status 2
+}
+if { ${OriginZ} == 0.000 } {
+   set Status 0
+} else {
+   set Status 3
+}
+
+if { ${ResultX} == 1.500 } {
+   set Status 0
+} else {
+   set Status 4
+}
+if { ${ResultY} == -0.500 } {
+   set Status 0
+} else {
+   set Status 5
+}
+if { ${ResultZ} == 0.000 } {
+   set Status 0
+} else {
+   set Status 6
+}
+
+puts "Status = ${Status}"
+# Resume
+puts ""
+if { ${Status} != 0 } {
+  puts "Faulty ${BugNumber}"
+} else {
+  puts "OK ${BugNumber}"
+}
+

tests/bugs/fclasses/bug309

@@ -1,4 +1,4 @@
-puts "TODO ?OCC12345 ALL: OCC309: ERROR 2"
+puts "TODO ?OCC12345 ALL: OCC309: Error 2"
 
 puts "================"
 puts "OCC309"
@@ -13,7 +13,7 @@ set ll [llength ${result}]
 if { ${ll} != 2 } {
     puts "result = ${result}"
     puts "length = ${ll}"
-    puts "OCC309: ERROR 0"
+    puts "OCC309: Error 0"
 } else {
     set result1 [lindex ${result} 0]
     set result2 [lindex ${result} 1]
@@ -23,12 +23,8 @@ if { ${ll} != 2 } {
 	set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
 	set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
     } else {
-	set info [pwd]
-	set CurrentDirectory [string range $info 2 end]
-	set info2 [file dirname ${CurrentDirectory}]
-	set UpTrek [file dirname ${CurrentDirectory}]
-	set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
-	set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
+	set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
+	set res2 [ string range $result2 1 [expr [string length $result2] -2 ] ]
     }
     if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
 	puts "OCC309: OK 1"
@@ -36,7 +32,7 @@ if { ${ll} != 2 } {
 	puts "result1 = ${result1}"
 	puts "res1 = ${res1}"
 	puts "CurrentDirectory = ${CurrentDirectory}"
-	puts "OCC309: ERROR 1"
+	puts "OCC309: Error 1"
     }
     if {[string compare ${res2} "${UpTrek}"] == 0} {
 	puts "OCC309: OK 2"
@@ -44,7 +40,7 @@ if { ${ll} != 2 } {
 	puts "result2 = ${result2}"
 	puts "res2 = ${res2}"
 	puts "UpTrek = ${UpTrek}"
-	puts "OCC309: ERROR 2"
+	puts "OCC309: Error 2"
     }
 }
 

tests/bugs/grids.list

@@ -3,10 +3,14 @@
 003 iges
 004 vis
 005 xde
-006 modalg
-007 moddata
-008 step
-009 caf
-010 mesh
-011 heal
+006 modalg_1
+007 modalg_2
+008 modalg_3
+009 modalg_4
+010 moddata_1
+011 moddata_2
+012 step
+013 caf
+014 mesh
+015 heal
 

tests/bugs/heal/bug24

@@ -0,0 +1,25 @@
+pload QAcommands
+
+puts "======="
+puts "OCC24"
+puts "======="
+puts ""
+###########################################################################
+## Recorded modifications are lost when converting from ShapeBuild_ReShape into  ShapeProcess_ShapeContext
+## and back
+###########################################################################
+
+restore [locate_data_file OCC24.brep] s
+checkshape s
+
+explode s f
+
+compound s_1 c
+if [catch { OCC24 result s c OCC24 Seq } ] {
+  puts "OCC24 ERROR"
+} else {
+  puts "OCC24 OK"
+}
+
+set square 37.6991
+set 2dviewer 2