# 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.

# Check a matrix with less than the mininum number of bases causes a
# fatal error, but not an assertion failure.

# run LVB
$lvb = $ENV{LVB_EXECUTABLE};
$output = `"$lvb" <./std.in`;
$status = $?;

# check output
if ($output =~ /assertion/i)
{
    print "test failed: assertion failure\n";
}
elsif (($status != 0) && ($output =~ "FATAL ERROR"))
{
    print "test passed\n";
}
else
{
    print "test failed\n";
}
