mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
5d1833ef09
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.
45 lines
1.5 KiB
Plaintext
Executable File
45 lines
1.5 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: An exception was caught"
|
|
puts "TODO OCC12345 ALL: \\*\\* Exception "
|
|
puts "TODO OCC12345 ALL: Faulty OCC745"
|
|
|
|
puts "========"
|
|
puts "OCC745"
|
|
puts "========"
|
|
puts ""
|
|
##################################################
|
|
# Exception thrown: Standard_ConstructionError: Offset wire is not closed.
|
|
##################################################
|
|
|
|
restore [locate_data_file OCC745_nb3.brep] w
|
|
checkshape w
|
|
|
|
if { [catch { mkoffset result w 1 10 } status] } {
|
|
puts "Faulty OCC745"
|
|
} else {
|
|
renamevar result_1 result
|
|
set nb_info [nbshapes result]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
|
|
puts [format "Result shape result contains %s vertexes" $ve]
|
|
if { $ve == 0 } {
|
|
puts [format "Faulty : Result shape is NULL shape"]
|
|
} else {
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
|
|
if {$wi > 1 } {
|
|
set ll [explode result w]
|
|
set num [llength $ll]
|
|
puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
|
|
foreach {k} $ll {
|
|
checkshape $k
|
|
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
|
|
if { $cs != 0 } {
|
|
puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
|
|
} else {
|
|
puts [format "OK: Result shape is CLOSED wire !!! "]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
set length 0
|
|
set 2dviewer 0
|
|
}
|