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

# Negative test for log_wrapper().

# run testprog.exe
$output = `./testprog.exe`;
$status = $?;

# check output
if (($output =~ /FATAL ERROR: internal error detected in function log_wrapper/)
 && ($status != 0))
{
    print "test passed\n";
}
else
{
    print "test failed\n";
}
