#
# Args: Test_name_string filename expected_md5sum deleteflag
#
DECLARE string $result

VARFROMPROCESS result cat <${$argv[2]} | md5sum | head -c32
IF ${$result==$argv[3]} GOTO pass
! regression/common/saynote "md5 found is ${$result}"

:fail
! regression/common/sayfail ${$root.func.strings.quote($argv[1])}
GOTO checkdel

:pass
! regression/common/sayok ${$root.func.strings.quote($argv[1])}

:checkdel
IF ${$argv[4]!="delete"} QUIT
SPAWNPROCESS rm -f ${$argv[2]}
