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