0023922: Systematic review of TODO tests

Small corrections for test cases with "TEST INCOMPLETE" result.

TODO statements with "TEST INCOMPLETE" were checked and corrected.

tests/3rdparty/fonts/B1

@@ -1,7 +1,3 @@
-puts "TODO ?OCC12345 Debian60-64: \\*\\* Exception \\*\\*.*"
-puts "TODO ?OCC12345 Debian60-64: An exception was caught"
-puts "TODO ?OCC12345 Debian60-64: TEST INCOMPLETE"
-
 puts "============"
 puts "OCC24181 Render text as BRep"
 puts "============"

tests/blend/tolblend_simple/C9

@@ -1,12 +1,6 @@
-puts "TODO ?OCC22817 All:An exception was caught"
-puts "TODO ?OCC22817 All:\\*\\* Exception \\*\\*"
-puts "TODO ?OCC22817 All:TEST INCOMPLETE"
-
 restore [locate_data_file CFI_11_d2ffd.rle]  s
 tscale s 0 0 0 SCALE1 
 explode s E 
 blend result s 20*SCALE1 s_16
-explode result So
-tcopy result_1 result 
 
 set square 1.85726e+06

tests/blend/tolblend_simple/F5

@@ -1,12 +1,6 @@
-puts "TODO ?OCC22817 All:An exception was caught"
-puts "TODO ?OCC22817 All:\\*\\* Exception \\*\\*"
-puts "TODO ?OCC22817 All:TEST INCOMPLETE"
-
 restore [locate_data_file CFI_13_c1ffk.rle] s
 tscale s 0 0 0 SCALE1
 explode s E
 blend result s 4*SCALE1 s_9 5*SCALE1 s_10  6*SCALE1 s_2 4*SCALE1 s_1
-explode result So
-tcopy result_1 result
 
 set square 165055

tests/blend/tolblend_simple/F6

@@ -1,12 +1,6 @@
-puts "TODO ?OCC22817 All:An exception was caught"
-puts "TODO ?OCC22817 All:\\*\\* Exception \\*\\*"
-puts "TODO ?OCC22817 All:TEST INCOMPLETE"
-
 restore [locate_data_file CFI_13_c1ffk.rle] s
 tscale s 0 0 0 SCALE1
 explode s E
 blend result s 5*SCALE1 s_9 5*SCALE1 s_10  5*SCALE1 s_2
-explode result So
-tcopy result_1 result
 
 set square 165929

tests/blend/tolblend_simple/F9

@@ -1,12 +1,6 @@
-puts "TODO ?OCC22817 All:An exception was caught"
-puts "TODO ?OCC22817 All:\\*\\* Exception \\*\\*"
-puts "TODO ?OCC22817 All:TEST INCOMPLETE"
-
 restore [locate_data_file CFI_13_e1ffm.rle] s
 tscale s 0 0 0 SCALE1
 explode s E
 blend result s 5*SCALE1 s_2 5*SCALE1 s_12 5*SCALE1 s_9  5*SCALE1 s_1
-explode result So
-tcopy result_1 result
 
 set square 670347

tests/blend/tolblend_simple/G1

@@ -1,12 +1,6 @@
-puts "TODO ?OCC22817 All:An exception was caught"
-puts "TODO ?OCC22817 All:\\*\\* Exception \\*\\*"
-puts "TODO ?OCC22817 All:TEST INCOMPLETE"
-
 restore [locate_data_file CFI_13_e1ffm.rle] s
 tscale s 0 0 0 SCALE1
 explode s E
 blend result s 7*SCALE1 s_2 7*SCALE1 s_12  7*SCALE1 s_1
-explode result So
-tcopy result_1 result
 
 set square 669202

tests/boolean/bsection/N7

@@ -1,8 +1,3 @@
-puts "TODO ?#22911 ALL: An exception was caught"
-puts "TODO ?#22911 ALL: \\*\\* Exception \\*\\*.*"
-puts "TODO ?OCC12345 ALL: Process killed by CPU limit"
-puts "TODO ?#22911 ALL: TEST INCOMPLETE"
-
 cpulimit 1200
 
 restore [locate_data_file lh3d_ro1.brep] a

tests/bugs/fclasses/bug63

@@ -6,9 +6,12 @@ puts "OCC63"
 puts "================"
 puts ""
 
-restore [locate_data_file box__simplifiée.brep] result
+set s [encoding convertto iso8859-2 "\xE9"]
+set path [locate_data_file box__simplifie.brep]
+
+file copy -force "${path}" "${imagedir}/box__simplifi${s}e.brep"
+restore "${imagedir}/box__simplifi${s}e.brep" result
+
 checkshape result
 
 set 2dviewer 0
-
-

tests/bugs/modalg_2/bug426

@@ -2,9 +2,9 @@ if {[array get env os_type] != ""} {
     set os $env(os_type)
 }
 if {[string compare $os "windows"] != 0 } {
-    puts "TODO ?OCC12345 Debian60-64 MacOS: \\*\\* Exception"
+    puts "TODO ?OCC12345 MacOS: \\*\\* Exception"
-    puts "TODO ?OCC12345 Debian60-64 MacOS: An exception was caught"
+    puts "TODO ?OCC12345 MacOS: An exception was caught"
-    puts "TODO ?OCC12345 Debian60-64 MacOS: TEST INCOMPLETE"
+    puts "TODO ?OCC12345 MacOS: TEST INCOMPLETE"
 }
 
 pload QAcommands

tests/bugs/moddata_2/bug2569_2

@@ -1,6 +1,8 @@
+# Incompleted behavior of test case is OK.
+# Exception should be thrown.
+
 puts "TODO OCC11111 ALL: \\*\\* Exception"
 puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO OCC11111 ALL: TEST INCOMPLETE"
 
 pload QAcommands
 
@@ -15,6 +17,8 @@ puts ""
 cpulimit 60
 vinit
 
-OCC2569 29 result
+if { [catch {OCC2569 29 result} anException] } {
-
+  puts "OCC2569 : OK"
-set 3dviewer 0
+} else {
+  puts "Error : OCC2569"
+}

tests/bugs/vis/buc60915

@@ -1,9 +1,3 @@
-puts "TODO ?OCC12345 ALL: An exception was caught"
-puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
-puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-puts "TODO ?OCC12345 ALL: Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin."
-puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
-
 puts "==========="
 puts "BUC60915"
 puts "==========="

tests/bugs/vis/pro20342

@@ -1,5 +1,3 @@
-puts "TODO OCC12345 ALL: Tcl Exception: result_1 is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
 puts "============="
 puts "PRO20342"
 puts "============="
@@ -13,12 +11,12 @@ pload XDE
 
 igesbrep [locate_data_file fra62523a.igs] result *
 
-checkshape result_1 r
+checkshape result r
 
 vinit
-tclean result_1
+tclean result
-vdisplay result_1
+vdisplay result
-vsetshading result_1 0.1
+vsetshading result 0.1
 vfit
 
 set only_screen 1