oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

quiet some warnings

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Macro.pm
View file

@ -15,7 +15,6 @@ package WebGUI::Macro;
=cut =cut
use strict; use strict;
use warnings;
use WebGUI::Pluggable; use WebGUI::Pluggable;
=head1 NAME =head1 NAME

12
t/Group.t
View file

@ -169,10 +169,14 @@ $lGroup->delete;
my $gid = $g->getId; my $gid = $g->getId;
is (length($gid), 22, "GroupId is proper length"); is (length($gid), 22, "GroupId is proper length");
is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group'); {
is_deeply ($g->getGroupsFor(), [], 'Group not added to any other group'); # our invalid db query from earlier is going to error, keep it quiet
is_deeply ($g->getUsers(), [], 'No users added by default'); local $SIG{__WARN__} = sub {};
is_deeply ($g->getAllUsers(), [3], 'No users added by default in any method'); is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group');
is_deeply ($g->getGroupsFor(), [], 'Group not added to any other group');
is_deeply ($g->getUsers(), [], 'No users added by default');
is_deeply ($g->getAllUsers(), [3], 'No users added by default in any method');
}
my $gname = '**TestGroup**'; my $gname = '**TestGroup**';
is ($g->name($gname), $gname, 'Set name'); is ($g->name($gname), $gname, 'Set name');

3
t/Macro/SQL.t
View file

@ -141,6 +141,9 @@ SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded; skip "Unable to load $macro", $numTests-1 unless $loaded;
foreach my $testSet (@testSets) { 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}); my $output = WebGUI::Macro::SQL::process($session, $testSet->{sql}, $testSet->{template});
is($output, $testSet->{output}, $testSet->{comment}); is($output, $testSet->{output}, $testSet->{comment});
} }

6
t/SQL.t
View file

@ -50,7 +50,11 @@ ok($sth->rows > 1, "rows()");
ok($sth->finish, "finish()"); ok($sth->finish, "finish()");
# unconditionalRead # unconditionalRead
ok(my $sth = $session->db->unconditionalRead("select * from tableThatDoesntExist"), "unconditionalRead()"); {
# we know this will fail, so keep it quiet
local $SIG{__WARN__} = sub {};
ok(my $sth = $session->db->unconditionalRead("select * from tableThatDoesntExist"), "unconditionalRead()");
}
# errorCode # errorCode
is($sth->errorCode, "1146" ,"errorCode()"); is($sth->errorCode, "1146" ,"errorCode()");