#set length 0
if { [isdraw result] } {
    #check if result is valid
    puts [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"