# LVB (c) Copyright 2003-2006 by Daniel Barker.
# Permission is granted to copy and use this program provided that no fee is
# charged for it and provided that this copyright notice is not removed.

# test for scream().

use File::Compare;

# run testprog.exe
`./testprog.exe >output`;	# send output to file
$status = $?;

# check output

if (($status == 0) && compare("output", "good") == 0)
{
    print "test passed\n";
}
else
{
    print "test failed\n";
}
