mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-14 04:04:13 +08:00
28 lines
645 B
Plaintext
Executable File
28 lines
645 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23944"
|
|
puts "============"
|
|
puts ""
|
|
###################################################
|
|
## Typo in ShapeCustom_RestrictionParameters leading to wrong approximation results
|
|
###################################################
|
|
|
|
set BugNumber OCC23944
|
|
|
|
restore [locate_data_file bug23944_s.draw] s
|
|
|
|
mkface f s
|
|
|
|
set info [bsplres result f 1e-4 1e-9 15 100 C1 C2 0 1]
|
|
|
|
# Resume
|
|
puts ""
|
|
if { [regexp {Debug mode} [dversion]] } {
|
|
if { [regexp {Surface is aproximated with continuity 0} $info] } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
} else {
|
|
puts "Test for debug mode only"
|
|
}
|