if { [isdraw result] } {
    #check if result is valid
    checkshape result

    smallview
    clear
    donly result
    fit
    xwd $imagedir/${test_image}.png
} else {
   puts "Error : The command cannot be built."
}

# to end a test script
puts "TEST COMPLETED"