1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "================"
puts "OCC25584"
puts "================"
puts ""
#######################################################################
# Wrong result obtained by PerformInfinitePoint Test
#######################################################################
restore [locate_data_file t6.rle] res_1
explode res_1
shape z so
add res_1_3 z
vprops z
set res [xclassify z]
if { [regexp "IN" $res] == 1 } {
puts "OK : Good result obtained by PerformInfinitePoint Test"
} else {
puts "Error : Wrong result obtained by PerformInfinitePoint Test"
}
|
