mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
38 lines
943 B
Plaintext
Executable File
38 lines
943 B
Plaintext
Executable File
pload QAcommands
|
|
|
|
puts "================"
|
|
puts "OCC7372"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Invalid conversion 2D periodic BSpline curve to Bezier segments
|
|
#######################################################################################
|
|
|
|
set BugNumber OCC7372
|
|
|
|
OCC7372
|
|
|
|
set mistake 0
|
|
set len [llength [directory segment*]]
|
|
if { ${len} != 5 } {
|
|
puts "Faulty ${BugNumber} : segment number is wrong"
|
|
set mistake 1
|
|
} else {
|
|
set good_length 73.3203
|
|
regexp {The length .* is ([-0-9.+eE]+)} [length segment_5] full current_length
|
|
if { [expr 1.*abs($good_length - $current_length)/$good_length * 100] > 0.1 } {
|
|
puts "Faulty ${BugNumber} : length is wrong for segment_5"
|
|
set mistake 1
|
|
}
|
|
renamevar segment_5 result
|
|
}
|
|
|
|
if { ${mistake} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|