1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
puts "================"
puts "OCC23248"
puts "================"
puts ""
#######################################################################
# Wrong result done by solid classifier algorithm for infinite point
#######################################################################
set BugNumber OCC23248
restore [locate_data_file bug23248_so] b
set result [split [xclassify b 1e-7]]
set ll [llength ${result}]
if {${ll} < 3} {
puts "Bad format of xclassify draw-command; Faulty ${BugNumber}"
} else {
set status [lindex ${result} 2]
if { [regexp "OUT" $result] == 1 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
}
|
