5 ######################################################
6 # FixShape does not fix an edge with invalid SameRange flag
7 ######################################################
11 restore [locate_data_file BUC60393.rle] a
13 if {[checkshape a] != "This shape seems to be valid"} {
14 puts "Info: we see that the initial shape is bad"
18 puts "launching fixshape..."
23 if {[checkshape result] != "This shape seems to be valid"} {
24 puts "Info: we see that the fixed shape is bad too"
25 puts "launching fsameparameter..."
28 if {[checkshape result] == "This shape seems to be valid"} {
29 puts "Info: we see that fsameparameter fixed the shape completely"
31 puts "Info: we see that the fixed shape after fsameparameter is bad too"
37 puts "OK ${BugNumber}"
39 puts "Faulty ${BugNumber}"