Call to locate_data_file moved from catch statement in test scripts to ensure that missing data file is correctly reported as SKIPPED status of the test.
TODO statements with single word 'Exception' made bit more specific ("**" added).
Test bugs/caf/buc60846 removed as it is aimed to test inexistent component (Sketcher).
TODO removed in test bugs/fclasses/bug22611 -- the missing command must be added or test removed.
Test bugs/step/bug133_4 removed as duplicate of bugs/step/bug133_2.
Command vinit added in test bugs/vis/bug23226 to ensure that viewer is properly initialized before command vvbo, and relevant TODO statements removed.
Redundant FAILED patterns removed in parse.rules in groups perf and v3d as they break appropriate handling of missing data files.
Added QA command OCC22611 to improve test case bugs/fclasses/bug22611.
Modified test case buc60898 (shape was renamed) and moved to folder moddata_3 to avoid checkshape in end file.
Test case vis/bug23226 was modified using function checkcolor.
return 0;
}
+#include <ExprIntrp_GenExp.hxx>
+Standard_Integer OCC22611 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
+{
+
+ if (argc != 3) {
+ di << "Usage : " << argv[0] << " string nb\n";
+ return 1;
+ }
+
+ TCollection_AsciiString aToken = argv[1];
+ Standard_Integer aNb = atoi(argv[2]);
+
+ Handle(ExprIntrp_GenExp) aGen = ExprIntrp_GenExp::Create();
+ for (Standard_Integer i=0; i < aNb; i++)
+ {
+ aGen->Process(aToken);
+ Handle(Expr_GeneralExpression) aExpr = aGen->Expression();
+ }
+
+ return 0;
+}
+
void QABugs::Commands_19(Draw_Interpretor& theCommands) {
const char *group = "QABugs";
theCommands.Add ("OCC23237", "OCC23237", __FILE__, OCC23237, group);
theCommands.Add ("OCC22980", "OCC22980", __FILE__, OCC22980, group);
theCommands.Add ("OCC23595", "OCC23595", __FILE__, OCC23595, group);
+ theCommands.Add ("OCC22611", "OCC22611 string nb", __FILE__, OCC22611, group);
return;
}
-#puts "TODO #23749 ALL: Exception"
-#puts "TODO #23749 ALL: An exception was caught"
-#puts "TODO #23749 ALL: TEST INCOMPLETE"
-
restore [locate_data_file lh3d_px1.brep] a
#removing intersection of faces a_3 and a_220
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Present script does not work currently !!! SKETCH application is missing"
-puts "TODO OCC12345 ALL: Tcl Exception"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "==========="
-puts "BUC60846"
-puts "==========="
-
-puts "Faulty : Present script does not work currently !!! SKETCH application is missing"
-##############################################################
-
-NewDocument D MDTV-Standard
-UndoLimit D 100
-
-NewCommand D
-
-Label D 0:3
-NewSketch D 0:3 0 0 0 1 0 0
-Point D 0:3 10 20
-Point D 0:3 11 20
-Segment D 0:3 0:3:2:3 0:3:2:4
-
-Point D 0:3 10 21
-Point D 0:3 11 21
-Segment D 0:3 0:3:2:9 0:3:2:10
-
-Distance D 0:3 0:3:2:5 0:3:2:11
-
-AISInitViewer D
-
-AISSet D 0:3:2:15 C
-
-AISDisplay D 0:3:2:15
-
-NewCommand D
-
-
-puts "TODO ?OCC12345 ALL: Error: Document not saved"
-puts "TODO ?OCC12345 ALL: Error: Object obj2 not found"
-puts "TODO ?OCC12345 ALL: Tcl Exception: Error: Object obj2 not found"
-puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "============"
puts "OCC21231"
puts "============"
pload QAcommands
-file delete ${tmp}/1/2/3/OCC181
-file delete ${tmp}/1/2/OCC181
-file delete ${tmp}/1/OCC181
-file delete ${tmp}/1/2/3
-file delete ${tmp}/1/2
-file delete ${tmp}/1
+file delete -force ${tmp}/1
set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
pload QAcommands
-file delete ${tmp}/1/2/3/OCC181
-file delete ${tmp}/1/2/OCC181
-file delete ${tmp}/1/OCC181
-file delete ${tmp}/1/2/3
-file delete ${tmp}/1/2
-file delete ${tmp}/1
-
-set log [OCC181 OCC181 ${imagedir} ${tmp}/1/2/3 0]
+file delete -force ${tmp}/2
+
+set log [OCC181 OCC181 ${imagedir} ${tmp}/2/2/3 0]
set list [split ${log}]
set ll [llength ${list}]
-puts "TODO OCC22611 ALL: Tcl Exception: invalid command name"
-puts "TODO OCC22611 ALL: TEST INCOMPLETE"
-
puts "========"
puts "OCC22611"
puts "========"
cpulimit 60
# Open the document
-if { [catch { Open [locate_data_file OCC984.xml] D } aResult] != 0 } {
+set filepath [locate_data_file OCC984.xml]
+if { [catch { Open $filepath D } aResult] != 0 } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
set BugNumber OCC210
-if [catch { stepread [locate_data_file UKI60591.stp] a * } result] {
+set filepath [locate_data_file UKI60591.stp]
+if [catch { stepread $filepath a * } result] {
puts "Faulty ${BugNumber}: here is reading problem"
} else {
puts "Reading ${BugNumber} OK"
## wrong translation IGES file in "Only visible" mode
############################################
-if [catch { set list [igesbrep [locate_data_file Amino_172448-65210.igs] a * ] } res] {
+set filepath [locate_data_file Amino_172448-65210.igs]
+if [catch { set list [igesbrep $filepath a * ] } res] {
puts "Faulty OCC448: here is reading problem"
} else {
tpcompound result
set BugNumber OCC5027
-if [catch { igesread [locate_data_file OCC5027.igs] a * } res] {
- puts "Warning ${BugNumber} : here is reading problem"
+set filepath [locate_data_file OCC5027.igs]
+if [catch { igesread $filepath a * } res] {
+ puts "Error ${BugNumber} : here is reading problem"
} else {
tpcompound result
## The attached file calnnot be read with OCC4.0, while read successfully with OCC3.0
##########################################################
-if [ catch {igesbrep [locate_data_file OCC700.igs]} res ] {
+set filepath [locate_data_file OCC700.igs]
+if [ catch {igesbrep $filepath} res ] {
puts "Faulty OCC700"
} else {
set index [lsearch $res Faulty]
#puts "TODO OCC12345 ALL: An exception was caught"
-#puts "TODO OCC12345 ALL: Exception"
+#puts "TODO OCC12345 ALL: \\*\\* Exception"
#puts "TODO OCC12345 ALL: Faulty BUC60703: here is problem with FUSE operation"
puts "========================"
puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: \\*\\* Exception"
puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
puts "TODO OCC12345 ALL: Error : The square of result shape is"
puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: \\*\\* Exception"
puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
puts "TODO OCC12345 ALL: Error : The square of result shape is"
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
-
-puts "==========="
-puts " BUC60898"
-puts "==========="
-puts ""
-
-pload XDE
-
-if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
-## rename to BUC60898.igs
- puts "Faulty BUC60898: here is reading problem"
-} else {
- puts "BUC60898 OK"
- tpcompound a
-
- if [catch {sewing result 1e-7 a } catch_result] {
- puts "Faulty BUC60898: function SEWING gives except"
- } else {
- puts " BUC60898 OK: function SEWING works without except"
- }
- set square 0
- set 2dviewer 0
-}
-
-
puts "TODO ?OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: Faulty OCC1477"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: Faulty OCC165"
puts "TODO OCC11111 ALL: Error : The length of result shape is"
puts "TODO ?OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: Faulty OCC165"
puts "TODO ?OCC11111 ALL: Error : The length of result shape is"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: An exception was caught"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
puts "========"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: An exception was caught"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
puts "========"
pload XDE
-if { [catch { igesbrep [locate_data_file OCC260.igs] a * } catch_result] } {
+set filepath [locate_data_file OCC260.igs]
+if { [catch { igesbrep $filepath a * } catch_result] } {
puts "OCC260: Error: there is reading problem"
} else {
regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
set os $env(os_type)
}
if {[string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: Exception"
+ puts "TODO OCC12345 ALL: \\*\\* Exception"
puts "TODO OCC12345 ALL: An exception was caught"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"
}
set BugNumber OCC5157
set status 0
-if {[catch { stepread [locate_data_file OCC5157.stp] a * } catch_result] } {
+set filepath [locate_data_file OCC5157.stp]
+if {[catch { stepread $filepath a * } catch_result] } {
puts "Faulty ${BugNumber} : here is reading problem"
} else {
tpcompound result
set BugNumber OCC5157
-if { [catch { stepread [locate_data_file OCC5157.stp] a * } catch_result] } {
+set filepath [locate_data_file OCC5157.stp]
+if { [catch { stepread $filepath a * } catch_result] } {
puts "Faulty ${BugNumber} : here is reading problem"
} else {
tpcompound result
set BugNumber OCC6289
-if { [catch { stepread [locate_data_file OCC6289.stp] a * } catch_result] } {
+set filepath [locate_data_file OCC6289.stp]
+if { [catch { stepread $filepath a * } catch_result] } {
puts "Faulty ${BugNumber} : here is reading problem"
} else {
tpcompound comp
set BugNumber OCC6811
-if { [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } catch_result] } {
+set filepath [locate_data_file trj12_b3-tu-203.stp]
+if { [catch { stepread $filepath a * } catch_result] } {
puts "Faulty ${BugNumber} : here is reading problem"
} else {
decho off
puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception "
+puts "TODO OCC12345 ALL: \\*\\* Exception "
puts "TODO OCC12345 ALL: Faulty OCC745"
puts "========"
puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: \\*\\* Exception"
puts "========"
puts "OCC829"
puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: An exception was caught"
puts "============"
puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: An exception was caught"
puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
puts "TODO OCC11111 ALL: OCC8842: Faulty"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: An exception was caught"
puts "============"
puts "TODO OCC11111 ALL: OCC8842: Faulty"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: An exception was caught"
puts "============"
puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: An exception was caught"
puts "============"
puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: An exception was caught"
puts "============"
puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: An exception was caught"
puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
--- /dev/null
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
set BugNumber OCC19777
-if [catch { restore [locate_data_file OCC19777.brep] result} catch_result] {
+set filepath [locate_data_file OCC19777.brep]
+if [catch { restore $filepath result} catch_result] {
puts "Error ${BugNumber}: there is reading problem"
} else {
-puts "TODO ?#22623 ALL: Exception"
+puts "TODO ?#22623 ALL: \\*\\* Exception"
puts "TODO ?#22623 ALL: An exception was caught"
puts "============"
puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: Faulty OCC22910"
puts "================"
-puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: An exception was caught"
puts "TODO OCC11111 ALL: TEST INCOMPLETE"
cpulimit 9000
pload XDE
-if [catch {igesbrep [locate_data_file lh3d_px1.igs] a *} catch_result] {
+
+set filepath [locate_data_file lh3d_px1.igs]
+if [catch {igesbrep $filepath a *} catch_result] {
puts "Faulty OCC343: here is reading problem"
} else {
puts "Reading OCC343 OK"
# Second sewing
#
- if [catch {igesbrep [locate_data_file lh3d_px1.igs] a *} catch_result] {
+ if [catch {igesbrep $filepath a *} catch_result] {
puts "Faulty OCC343: here is reading problem"
} else {
puts "Reading OCC343 OK"
pload XDE
-if [catch { igesbrep [locate_data_file OCC36.igs] a * } res] {
- puts "Warning OCC36: here is reading problem"
+set filepath [locate_data_file OCC36.igs]
+if [catch { igesbrep $filepath a * } res] {
+ puts "Error OCC36: here is reading problem"
} else {
puts "Reading OCC36 OK"
--- /dev/null
+set subgroup moddata
+
+
+
+
+
+
+
+
--- /dev/null
+puts "==========="
+puts " BUC60898"
+puts "==========="
+puts ""
+
+pload XDE
+
+set filepath [locate_data_file BUC60898.igs]
+if [catch { igesbrep $filepath a *} result] {
+ puts "Faulty BUC60898: here is reading problem"
+} else {
+ puts "BUC60898 OK"
+ tpcompound a
+
+ if [catch {sewing result 1e-7 a } catch_result] {
+ puts "Faulty BUC60898: function SEWING gives except"
+ } else {
+ puts " BUC60898 OK: function SEWING works without except"
+ }
+ set square 798.266
+ set 2dviewer 0
+}
+
+
puts "TODO OCC12345 ALL: Exception Raised while reading Step File"
-puts "TODO OCC12345 ALL: Tcl Exception"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
puts "========================"
puts "BUC60991"
##Exception when translating a STEP file to Open CASCADE (loading phase).
#######################################################
-stepread [locate_data_file buc60990.stp] a *
-
-tpcompound result
+set filepath [locate_data_file buc60990.stp]
+if {[catch {stepread $filepath a *}]} {
+ puts "Error: Exception Raised while reading Step File"
+} else {
+ tpcompound result
+}
set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Exception Raised while reading Step File"
-puts "TODO OCC12345 ALL: Tcl Exception"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========================"
-puts "BUC60990"
-puts "OCC96"
-puts "OCC133"
-puts "========================"
-puts ""
-###########################################################
-## Exception when translating a STEP file to Open CASCADE (loading phase).
-###########################################################
-
-stepread [locate_data_file buc60990.stp] a *
-
-tpcompound result
-
-set 2dviewer 0
-
set BugNumber OCC22237
-if [catch { stepread [locate_data_file OCC22237.stp] a * } catch_result] {
+set filepath [locate_data_file OCC22237.stp]
+if [catch { stepread $filepath a * } catch_result] {
puts "Faulty ${BugNumber}"
} else {
tpcompound result
#mkv-04.09.06
param read.step.shape.relationship OFF
-if [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } res] {
+set filepath [locate_data_file trj12_b3-tu-203.stp]
+if [catch { stepread $filepath a * } res] {
puts "Faulty ${BugNumber} : here is reading problem"
} else {
tpcompound result
set BugNumber OCC5027
-if [catch { stepread [locate_data_file OCC5027.stp] a * } res] {
- puts "Warning ${BugNumber} : here is reading problem"
+set filepath [locate_data_file OCC5027.stp]
+if [catch { stepread $filepath a * } res] {
+ puts "Error ${BugNumber} : here is reading problem"
} else {
tpcompound result
set BugNumber OCC8229
-if [catch { stepread [locate_data_file OCC8229.stp] a * } res] {
+set filepath [locate_data_file OCC8229.stp]
+if [catch { stepread $filepath a * } res] {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
puts "TODO ?OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
puts "================"
-puts "TODO OCC12345 ALL: Tcl Exception:"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
puts "============"
puts "OCC23226"
puts "============"
# turned on (vbo_enable = 1)
for {set vbo_enable 0} {$vbo_enable < 2} {incr vbo_enable} {
-
+ vinit
if { $vbo_enable == 0 } {
vvbo 0
puts "TEST WITH VBO is OFF"
puts "TEST WITH VBO is ON"
}
- vinit
+## vinit
veraseall
vclear
vpoint point2 -145 0 0
# ****************************** Graphic3d_ArrayOfPoints ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfPoints: TEST"
#
# 1: verticies
#
generate_points 60 0 0 $colorY_R $colorY_G $colorY_B
eval vdrawparray pt01 points $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06
- #
- # Final result
- #
- if { [ check_primitive pt01 $colorY_R $colorY_G $colorY_B ] == 0 } {
- puts "WARNING! definition by verticies failed"
- puts "WARNING! Graphic3d_ArrayOfPoints: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfPoints: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfSegments ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfSegments: TEST"
#
# 1: verticies
#
generate_points 50 0 0 $colorY_R $colorY_G $colorY_B
eval vdrawparray seg01 segments $vbo_enable $pts02 $pts01 $pts01 $pts03 $pts03 $pts05 $pts05 $pts06 $pts06 $pts04 $pts04 $pts02
- if { [ check_primitive seg01 $colorY_R $colorY_G $colorY_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: edges
#
generate_points 40 0 0 $colorR_R $colorR_G $colorR_B
eval vdrawparray seg02 segments $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 1 e 2 e 2 e 4 e 4 e 6 e 6 e 5 e 5 e 3 e 3 e 1
- if { [ check_primitive seg02 $colorR_R $colorR_G $colorR_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and edges failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfSegments: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfSegments: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfPolylines ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfPolylines: TEST"
#
# 1: verticies
#
generate_points 30 0 0 $colorY_R $colorY_G $colorY_B
eval vdrawparray pline01 polylines $vbo_enable $pts02 $pts01 $pts03 $pts05 $pts06 $pts04 $pts02
- if { [ check_primitive pline01 $colorY_R $colorY_G $colorY_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: edges
#
generate_points 20 0 0 $colorR_R $colorR_G $colorR_B
eval vdrawparray pline02 polylines $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 2 e 4 e 6 e 5 e 3 e 1 e 2
- if { [ check_primitive pline02 $colorR_R $colorR_G $colorR_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and edges failed" }
#
# 3: bounds
#
generate_points 10 0 0 $colorY_R $colorY_G $colorY_B
eval vdrawparray pline03 polylines $vbo_enable ( b 3 ( $pts02 $pts01 $pts03 )), ( b 4 ( $pts03 $pts05 $pts06 $pts04 )), ( b 2 ( $pts04 $pts02 ))
- if { [ check_primitive pline03 $colorY_R $colorY_G $colorY_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and bounds failed" }
#
# 4: verticies, bounds and edges
#
generate_points 0 0 0 $colorR_R $colorR_G $colorR_B
eval vdrawparray pline04 polylines $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 ( b 4 ( e 2 e 1 e 3 e 5 )), ( b 4 ( e 5 e 6 e 4 e 2 ))
- if { [ check_primitive pline04 $colorR_R $colorR_G $colorR_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies, bounds and edges failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfPolylines: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfPolylines: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfTriangles ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfTriangles: TEST"
#
# 1: verticies
#
generate_points -10 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray t01 triangles $vbo_enable ( $pts03 $pts02 $pts01 ) , ( $pts03 $pts04 $pts02 ) , ( $pts04 $pts03 $pts06 ) , ( $pts06 $pts03 $pts05 )
- if { [ check_primitive t01 $colorB_R $colorB_G $colorB_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: by edges
#
generate_points -20 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray t02 triangles $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 6 e 3 e 5 e 6 e 4 e 3 e 1 e 3 e 2 e 2 e 3 e 4
- if { [ check_primitive t02 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and egdes failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfTriangles: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfTriangles: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfTriangleFans ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfTriangleFans: TEST"
#
# 1: verticies
generate_points -30 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray tfan01 trianglefans $vbo_enable ( $pts02 $pts01 $pts03 $pts04 )
eval vdrawparray tfan02 trianglefans $vbo_enable ( $pts03 $pts05 $pts06 $pts04 )
- if { [ check_primitive tfan01 $colorB_R $colorB_G $colorB_B tfan02 ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: bounds and verticies
#
generate_points -40 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray tfan03 trianglefans $vbo_enable ( b 4 ( $pts02 $pts01 $pts03 $pts04 )), ( b 4 ( $pts03 $pts05 $pts06 $pts04 ))
- if { [ check_primitive tfan03 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and bounds failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfTriangleFans: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfTriangleFans: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfTriangleStrips ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfTriangleStrips: TEST"
#
# 1: verticies
generate_points -50 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray tstrip01 trianglestrips $vbo_enable ( $pts06 $pts04 $pts03 $pts02 $pts01 )
eval vdrawparray tstrip02 trianglestrips $vbo_enable ( $pts03 $pts05 $pts06 )
- if { [ check_primitive tstrip01 $colorB_R $colorB_G $colorB_B tstrip02 ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: bounds and verticies
#
generate_points -60 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray tstrip03 trianglestrips $vbo_enable ( b 5 ( $pts06 $pts04 $pts03 $pts02 $pts01 )) , ( b 3 ( $pts03 $pts05 $pts06 ))
- if { [ check_primitive tstrip03 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and bounds failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfTriangleStrips: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfTriangleStrips: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfQuadrangles ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfQuadrangles: TEST"
#
# 1: verticies
generate_points -70 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray q01 quads $vbo_enable ( $pts01 $pts03 $pts04 $pts02 )
eval vdrawparray q02 quads $vbo_enable ( $pts03 $pts05 $pts06 $pts04 )
- if { [ check_primitive q01 $colorB_R $colorB_G $colorB_B q02 ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: verticies and edges
#
generate_points -80 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray q03 quads $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 1 e 3 e 4 e 2 e 3 e 5 e 6 e 4
- if { [ check_primitive q03 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and edges failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfQuadrangles: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfQuadrangles: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfQuadrangleStrips ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfQuadrangleStrips: TEST"
#
# 1: verticies
#
generate_points -90 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray qstrips01 quadstrips $vbo_enable ( $pts02 $pts01 $pts04 $pts03 $pts06 $pts05 )
- if { [ check_primitive qstrips01 $colorB_R $colorB_G $colorB_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: verticies and edges
#
generate_points -100 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray qstrips02 quadstrips $vbo_enable ( b 4 ( $pts02 $pts01 $pts04 $pts03 )) , ( b 4 ( $pts04 $pts03 $pts06 $pts05 ))
- if { [ check_primitive qstrips02 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and edges failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfQuadrangleStrips: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfQuadrangleStrips: PASSED"
- }
-
# ****************************** Graphic3d_ArrayOfPolygons ****************************** #
- set IntermediateResult 1
puts "Graphic3d_ArrayOfPolygons: TEST"
#
# 1: verticies
#
generate_points -110 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray poly01 polygons $vbo_enable ( $pts04 $pts02 $pts01 $pts03 $pts05 $pts06 )
- if { [ check_primitive poly01 $colorB_R $colorB_G $colorB_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies failed" }
#
# 2: verticies and bounds
#
generate_points -120 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray poly02 polygons $vbo_enable ( b 5 ( $pts04 $pts02 $pts01 $pts03 $pts06 )) , ( b 3 ( $pts06 $pts03 $pts05 ))
- if { [ check_primitive poly02 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and bounds failed" }
#
# 3: verticies and edges
#
generate_points -130 0 0 $colorB_R $colorB_G $colorB_B
eval vdrawparray poly03 polygons $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 4 e 2 e 1 e 3 e 5 e 6
- if { [ check_primitive poly03 $colorB_R $colorB_G $colorB_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies and edges failed" }
#
# 4: vertices, bounds and edges
#
generate_points -140 0 0 $colorG_R $colorG_G $colorG_B
eval vdrawparray poly04 polygons $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 ( b 5 ( e 4 e 2 e 1 e 3 e 6 )), ( b 3 ( e 6 e 3 e 5 ))
- if { [ check_primitive poly04 $colorG_R $colorG_G $colorG_B ] == 0 } { set IntermediateResult 0; puts "WARNING! definition by verticies, bounds and edges failed" }
- #
- # Final result
- #
- if { $IntermediateResult == 0 } {
- puts "WARNING! Graphic3d_ArrayOfPolygons: FAILED"
- set status 1
- } else {
- puts "Graphic3d_ArrayOfPolygons: PASSED"
- }
vtop
vfit
rename generate_points ""
rename check_primitive ""
-if { ${status} == 0 } {
- puts "BUG OK ${BUGNUMBER}"
+checkcolor 200 200 $colorG_R $colorG_G $colorG_B
+checkcolor 220 200 $colorB_R $colorB_G $colorB_B
+if { $stat == 1 } {
+ puts "BUG OK ${BUGNUMBER}"
} else {
- puts "BUG FAULTY ${BUGNUMBER}"
+ puts "BUG FAULTY ${BUGNUMBER}"
}
set only_screen 1
+
vtrihedron vtr
puts "display textured box"
-catch { vtexture box [locate_data_file OCC5988_2d_floor.rgb] }
+vtexture box [locate_data_file OCC5988_2d_floor.rgb]
set x 200
set y 200
set BugNumber OCC21124
-if [catch { igesbrep [locate_data_file OCC21124.igs] a *} catch_result] {
+set filepath [locate_data_file OCC21124.igs]
+if [catch { igesbrep $filepath a *} catch_result] {
puts "Error ${BugNumber}: there is reading problem"
} else {
whatis a
set BugNumber OCC22670
-if { [catch { readstl res_mesh [locate_data_file OMF6391_box.stl] } catch_result] } {
+set filepath [locate_data_file OMF6391_box.stl]
+if { [catch { readstl res_mesh $filepath } catch_result] } {
puts "Faulty ${BugNumber}: here is reading problem"
} else {
set nbshapes_res_mesh [nbshapes res_mesh]
puts "TODO ?OCC11111 ALL: Error on Record"
puts "TODO ?OCC11111 ALL: Error : Colors are not equal"
-puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: Faulty : colors are not equal."
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
param read.surfacecurve.mode -2
-if [catch { igesbrep [locate_data_file D44-11325-6.igs] a 6425 } res] {
+set filepath [locate_data_file D44-11325-6.igs]
+if [catch { igesbrep $filepath a 6425 } res] {
puts "Faulty OCC659 first: here is reading problem"
}
## Surfaces types changed while reading IGES, causing problems with 2d mapping
#######################################################
-if [catch { igesbrep [locate_data_file D44-11325-6.igs] a 6425 } res] {
+set filepath [locate_data_file D44-11325-6.igs]
+if [catch { igesbrep $filepath a 6425 } res] {
puts "Faulty OCC660: here is reading problem"
}
set BugNumber OCC9490
set IsOk 1
-if {[catch {igesread [locate_data_file support_bobine.igs] OCC9490a *}]} {
+set filepath [locate_data_file support_bobine.igs]
+if {[catch {igesread $filepath OCC9490a *}]} {
puts "Faulty ${BugNumber} : here is reading problem"
set IsOk 0
}
set BugNumber OCC9531
set IsOk 1
-if {[catch {igesread [locate_data_file 919-001-T02-04-CP-VL.igs] OCC9531a *}]} {
+set filepath [locate_data_file 919-001-T02-04-CP-VL.igs]
+if {[catch {igesread $filepath OCC9531a *}]} {
puts "Faulty ${BugNumber} : here is reading problem"
set IsOk 0
}
-puts "TODO ?OCC23068 ALL: Exception"
+puts "TODO ?OCC23068 ALL: \\*\\* Exception"
puts "TODO ?OCC23068 ALL: An exception was caught"
puts "TODO ?OCC23068 ALL: TEST INCOMPLETE"
puts "TODO ?OCC23068 ALL: Error : The offset is not valid"
-puts "TODO ?OCC23068 ALL: Exception"
+puts "TODO ?OCC23068 ALL: \\*\\* Exception"
puts "TODO ?OCC23068 ALL: An exception was caught"
puts "TODO ?OCC23068 ALL: TEST INCOMPLETE"
puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_2 "
puts "TODO OCC23068 ALL: Error : The volume of the resulting shape is"
-puts "TODO ?OCC23068 ALL: Exception"
+puts "TODO ?OCC23068 ALL: \\*\\* Exception"
puts "TODO ?OCC23068 ALL: An exception was caught"
puts "TODO ?OCC23068 ALL: TEST INCOMPLETE"
FAILED /\bFaulty\b/ bad shape
-FAILED /\bError\b/ bad shape
-FAILED /\b[Ee]xception\b/ bad shape
-
-
FAILED /\bFaulty\b/ error
-FAILED /\bError\b/ error
projects / occt-copy.git / commitdiff