Commit | Line | Data |
---|---|---|
b58dfc5e | 1 | puts "TODO DEBUG_OCC24121 Debian60-64 Windows: iteration" |
2 | puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Faulty OCC23944" | |
3 | ||
416d0127 RL |
4 | puts "============" |
5 | puts "OCC23944" | |
6 | puts "============" | |
7 | puts "" | |
8 | ################################################### | |
9 | ## Typo in ShapeCustom_RestrictionParameters leading to wrong approximation results | |
10 | ################################################### | |
11 | ||
12 | set BugNumber OCC23944 | |
13 | ||
6e88a46c | 14 | restore [locate_data_file bug23944_s.draw] s |
416d0127 | 15 | |
b58dfc5e | 16 | decho off |
416d0127 | 17 | mkface f s |
b58dfc5e | 18 | decho on |
416d0127 | 19 | |
b58dfc5e | 20 | decho off |
416d0127 | 21 | set info [bsplres result f 1e-4 1e-9 15 100 C1 C2 0 1] |
b58dfc5e | 22 | decho on |
416d0127 RL |
23 | |
24 | # Resume | |
25 | puts "" | |
26 | if { [regexp {Debug mode} [dversion]] } { | |
27 | if { [regexp {Surface is aproximated with continuity 0} $info] } { | |
28 | puts "OK ${BugNumber}" | |
29 | } else { | |
30 | puts "Faulty ${BugNumber}" | |
31 | } | |
32 | } else { | |
33 | puts "Test for debug mode only" | |
34 | } |