mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
44 lines
934 B
Plaintext
Executable File
44 lines
934 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC659"
|
|
puts "================"
|
|
puts ""
|
|
#############################################
|
|
## Units are not taken into account while translating IGES surfaces
|
|
#############################################
|
|
|
|
param read.surfacecurve.mode -2
|
|
|
|
set filepath [locate_data_file D44-11325-6.igs]
|
|
if [catch { igesbrep $filepath a 6425 } res] {
|
|
puts "Faulty OCC659 first: here is reading problem"
|
|
}
|
|
|
|
renamevar a_1 a1
|
|
|
|
param read.surfacecurve.mode -3
|
|
|
|
if [catch { igesbrep . a 6425 } res] {
|
|
puts "Faulty OCC659 second: here is reading problem"
|
|
}
|
|
|
|
renamevar a_1 a2
|
|
|
|
set size1 [ bounding a1 ]
|
|
set size2 [ bounding a2 ]
|
|
|
|
set x1_a1 [ lindex $size1 0 ]
|
|
set x2_a1 [ lindex $size1 3 ]
|
|
|
|
set x1_a2 [ lindex $size2 0 ]
|
|
set x2_a2 [ lindex $size2 3 ]
|
|
|
|
set dim2 [ expr $x2_a2 - $x1_a2 ]
|
|
set dim1 [ expr $x2_a1 - $x1_a1 ]
|
|
|
|
set siz [expr ${dim1} / ${dim2}]
|
|
if { $siz > 25} {
|
|
puts "Faulty OCC659"
|
|
} else {
|
|
puts " OCC659 OK"
|
|
}
|