# This is a test of the verification of the arguments to
# WriteMakefile.
BEGIN {
chdir 't' if -d 't';
}
else {
}
}
use strict;
use TieOut;
chdir 't';
perl_lib();
{
};
my $mm;
eval {
$mm = WriteMakefile(
);
};
WARNING: MAN3PODS takes a hash reference not a string/number.
Please inform the author.
VERIFY
eval {
$mm = WriteMakefile(
AUTHOR => sub {},
);
};
WARNING: AUTHOR takes a string/number not a code reference.
Please inform the author.
VERIFY
# LIBS accepts *both* a string or an array ref. The first cut of
# our verification did not take this into account.
$mm = WriteMakefile(
);
# We'll get warnings about the bogus libs, that's ok.
$mm = WriteMakefile(
);
# We'll get warnings about the bogus libs, that's ok.
eval {
$mm = WriteMakefile(
);
};
# We'll get warnings about the bogus libs, that's ok.
like( $warnings, qr{^WARNING: LIBS takes a array reference or string/number not a hash reference}m );
$mm = WriteMakefile(
);
}