quiet some warnings

This commit is contained in:
Graham Knop 2008-09-30 20:03:52 +00:00
parent 79cbb85285
commit bbdcb6475a
4 changed files with 16 additions and 6 deletions

View file

@ -141,6 +141,9 @@ SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded;
foreach my $testSet (@testSets) {
# we know some of these will fail. Keep them quiet.
local $SIG{__WARN__} = sub {};
my $output = WebGUI::Macro::SQL::process($session, $testSet->{sql}, $testSet->{template});
is($output, $testSet->{output}, $testSet->{comment});
}