Small corrections for test cases with "TEST INCOMPLETE" result.
TODO statements with "TEST INCOMPLETE" were checked and corrected.
-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 "============"
-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
-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
-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
-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
-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
-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
puts "================"
puts ""
-restore [locate_data_file box__simplifiée.brep] result
-checkshape result
+set s [encoding convertto iso8859-2 "\xE9"]
+set path [locate_data_file box__simplifie.brep]
-set 2dviewer 0
+file copy -force "${path}" "${imagedir}/box__simplifi${s}e.brep"
+restore "${imagedir}/box__simplifi${s}e.brep" result
+checkshape result
+set 2dviewer 0
set os $env(os_type)
}
if {[string compare $os "windows"] != 0 } {
- puts "TODO ?OCC12345 Debian60-64 MacOS: \\*\\* Exception"
- puts "TODO ?OCC12345 Debian60-64 MacOS: An exception was caught"
- puts "TODO ?OCC12345 Debian60-64 MacOS: TEST INCOMPLETE"
+ puts "TODO ?OCC12345 MacOS: \\*\\* Exception"
+ puts "TODO ?OCC12345 MacOS: An exception was caught"
+ puts "TODO ?OCC12345 MacOS: TEST INCOMPLETE"
}
pload QAcommands
+# 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
cpulimit 60
vinit
-OCC2569 29 result
-
-set 3dviewer 0
+if { [catch {OCC2569 29 result} anException] } {
+ puts "OCC2569 : OK"
+} else {
+ puts "Error : OCC2569"
+}
-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 "==========="
-puts "TODO OCC12345 ALL: Tcl Exception: result_1 is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
puts "============="
puts "PRO20342"
puts "============="
igesbrep [locate_data_file fra62523a.igs] result *
-checkshape result_1 r
+checkshape result r
vinit
-tclean result_1
-vdisplay result_1
-vsetshading result_1 0.1
+tclean result
+vdisplay result
+vsetshading result 0.1
vfit
set only_screen 1