if { [isdraw result] } {
  clear
  smallview
  donly result
  fit
  xwd $imagedir/${test_image}.png
} else {
  puts "Error : The sewing cannot be built."
}

puts "TEST COMPLETED"