mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 17:40:24 +08:00
38 lines
943 B
Plaintext
38 lines
943 B
Plaintext
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
|
|
|