# show comments of a zip archive
# $NiH: comment.test,v 1.1 2006/04/09 19:05:48 wiz Exp $
program get_comment
return 0
args testcomment.zip
file testcomment.zip testcomment.zip testcomment.zip
stdout Archive comment: This is the archive comment for the file.
stdout 
stdout Long.
stdout 
stdout Longer.
stdout 
stdout No comment for `file1'
stdout File comment for `file2': First one had no comment.
stdout File comment for `file3': Third one.
stdout File comment for `file4': Last.