+puts "TODO OCC33548 Windows: compute of chamfer failed"
puts "================"
puts "OCC116"
explode sh_6 e
if [catch {chamf result sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45 } catch_result] {
- puts "1) Faulty OCC116: chamfer is NOT created properly"
} else {
- puts "1) CHAMF OCC116 OK"
+ checkprops result -s 48357.5
+ checkshape result
+ checkview -display result -2d -path ${imagedir}/${test_image}.png
}
-
-checkprops result -s 48357.5
-checkshape result
-checkview -display result -2d -path ${imagedir}/${test_image}.png
-
+puts "TODO OCC33548 Windows: compute of chamfer failed"
+puts "TODO OCC33548 Windows: TEST INCOMPLETE"
+
puts "================"
puts "OCC293"
puts "================"
-puts "TODO OCC24156 MacOS: Tcl Exception: compute of chamfer failed"
-puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
+puts "TODO OCC24156 MacOS: compute of chamfer failed"
+puts "TODO OCC33548 Windows: compute of chamfer failed"
puts "================"
puts "OCC266"
renamevar edge face
explode face f
-chamf result face edge_10 face_3 A 1 45 edge_6 face_3 A 1 45 edge_11 face_3 A 1 45 edge_12 face_3 A 1 45 edge_13 face_3 A 1 45 edge_14 face_3 A 1 45 edge_8 face_3 A 1 45 edge_9 face_3 A 1 45
-checkshape result
-
-checkprops result -s 48913
-checkview -display result -2d -path ${imagedir}/${test_image}.png
-
+if [catch {chamf result face edge_10 face_3 A 1 45 edge_6 face_3 A 1 45 edge_11 face_3 A 1 45 edge_12 face_3 A 1 45 edge_13 face_3 A 1 45 edge_14 face_3 A 1 45 edge_8 face_3 A 1 45 edge_9 face_3 A 1 45 } catch_result] {
+} else {
+ checkshape result
+ checkprops result -s 48913
+ checkview -display result -2d -path ${imagedir}/${test_image}.png
+}
if { [string compare $command chamf_sequence] == 0 } {
if {[string compare $group dist_angle] == 0} {
puts "TODO OCC22909 All: compute of chamfer failed"
- puts "TODO OCC22909 All:Faulty shapes in variables faulty_1 to faulty_6"
+ puts "TODO OCC22909 Linux:Faulty shapes in variables faulty_1 to faulty_6"
}
if {[string compare $group dist_dist] == 0} {
puts "TODO OCC22909 All: compute of chamfer failed"
+set shouldFailed 0
+
+if { $group eq "dist_angle" && $command eq "chamf" } {
+ if { ($test_image eq "A3" && $chamf_shape eq "test-fillet.brep") ||
+ ($test_image eq "E5" && $chamf_shape eq "CCH_testchet.rle") ||
+ ($test_image eq "A1" && $chamf_shape eq "CCH_001_ahdb.rle") ||
+ ($test_image eq "A4" && $chamf_shape eq "test-fillet.brep") ||
+ ($test_image eq "A5" && $chamf_shape eq "test-fillet.brep") } {
+ set shouldFailed 1
+ }
+} elseif { $group eq "dist_angle" && $command eq "chamf_sequence" } {
+ if { ($test_image eq "A1" && $chamf_shape eq "CCH_001_ahdb.rle") ||
+ ($test_image eq "A4" && $chamf_shape eq "test-fillet.brep") } {
+ set shouldFailed 1
+ }
+}
+
+if {$shouldFailed} {
+ puts "TODO OCC33548 Windows: compute of chamfer failed"
+}
+
restore [locate_data_file $chamf_shape] sh
if { [dval SCALE] != 0 } {
tscale sh 0 0 0 SCALE