5 ####################################################
6 ## ShapeFix_Shape modifies valid shape and return wrong status DONE.
7 ####################################################
13 set result [checkshape s1]
14 set index [lsearch ${result} Faulty]
16 puts "Faulty ${BugNumber} : checkshape is wrong for s1"
18 puts "checkshape is good for s1"
21 set DumpList1 [dump s1]
22 set SOLID_Adress_1 [lindex ${DumpList1} 29]
26 set res [checkshape result]
27 set index [lsearch ${res} Faulty]
29 puts "Faulty ${BugNumber} : checkshape is wrong for res"
31 puts "checkshape is good for res"
34 set DumpList2 [dump result]
35 set SOLID_Adress_2 [lindex ${DumpList2} 29]
37 if { ${SOLID_Adress_1} != ${SOLID_Adress_2} } {
38 puts "Faulty ${BugNumber}"
40 puts "OK ${BugNumber}"
43 checkview -display result -2d -path ${imagedir}/${test_image}.png