[Rt-commit] r9062 - rt/branches/3.7-EXPERIMENTAL/t/api
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Sat Sep 15 15:33:57 EDT 2007
Author: sunnavy
Date: Sat Sep 15 15:33:54 2007
New Revision: 9062
Modified:
rt/branches/3.7-EXPERIMENTAL/t/api/ace.t
rt/branches/3.7-EXPERIMENTAL/t/api/action-createtickets.t
rt/branches/3.7-EXPERIMENTAL/t/api/attachment.t
rt/branches/3.7-EXPERIMENTAL/t/api/attribute.t
rt/branches/3.7-EXPERIMENTAL/t/api/condition-ownerchange.t
rt/branches/3.7-EXPERIMENTAL/t/api/currentuser.t
rt/branches/3.7-EXPERIMENTAL/t/api/customfield.t
rt/branches/3.7-EXPERIMENTAL/t/api/emailparser.t
rt/branches/3.7-EXPERIMENTAL/t/api/group.t
rt/branches/3.7-EXPERIMENTAL/t/api/groups.t
rt/branches/3.7-EXPERIMENTAL/t/api/i18n.t
rt/branches/3.7-EXPERIMENTAL/t/api/link.t
rt/branches/3.7-EXPERIMENTAL/t/api/queue.t
rt/branches/3.7-EXPERIMENTAL/t/api/record.t
rt/branches/3.7-EXPERIMENTAL/t/api/rt.t
rt/branches/3.7-EXPERIMENTAL/t/api/scrip.t
rt/branches/3.7-EXPERIMENTAL/t/api/searchbuilder.t
rt/branches/3.7-EXPERIMENTAL/t/api/system.t
rt/branches/3.7-EXPERIMENTAL/t/api/template.t
rt/branches/3.7-EXPERIMENTAL/t/api/ticket.t
rt/branches/3.7-EXPERIMENTAL/t/api/tickets.t
rt/branches/3.7-EXPERIMENTAL/t/api/tickets_overlay_sql.t
rt/branches/3.7-EXPERIMENTAL/t/api/user.t
rt/branches/3.7-EXPERIMENTAL/t/api/users.t
Log:
cleaned $main::_STDOUT_ and $main::_STDERR_ in t
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/ace.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/ace.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/ace.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(require RT::ACE);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $Queue = RT::Queue->new($RT::SystemUser);
@@ -29,13 +23,9 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use_ok('RT::User');
my $user_a = RT::User->new($RT::SystemUser);
@@ -245,8 +235,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/action-createtickets.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/action-createtickets.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/action-createtickets.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::Action::CreateTickets);
use_ok('RT::Scrip');
@@ -239,8 +237,6 @@
}
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/attachment.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/attachment.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/attachment.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::Attachment);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $test1 = "From: jesse";
my @headers = RT::Attachment->_SplitHeaders($test1);
@@ -48,8 +42,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/attribute.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/attribute.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/attribute.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $user = $RT::SystemUser;
my ($id, $msg) = $user->AddAttribute(Name => 'SavedSearch', Content => { Query => 'Foo'} );
@@ -41,8 +39,6 @@
is ($id, 0);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/condition-ownerchange.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/condition-ownerchange.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/condition-ownerchange.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $q = RT::Queue->new($RT::SystemUser);
$q->Create(Name =>'ownerChangeTest');
@@ -50,8 +48,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/currentuser.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/currentuser.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/currentuser.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::CurrentUser);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (my $cu = RT::CurrentUser->new('root'));
ok (my $lh = $cu->LanguageHandle('en-us'));
@@ -35,8 +29,6 @@
}
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/customfield.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/customfield.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/customfield.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use_ok('RT::CustomField');
ok(my $cf = RT::CustomField->new($RT::SystemUser));
@@ -40,13 +38,9 @@
is($bad_id , 0, 'Global custom field correctly decided to not create a cf with a bogus type ');
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(my $cf = RT::CustomField->new($RT::SystemUser));
$cf->Load(1);
@@ -57,13 +51,9 @@
ok ($delval,"Deleting a cf value: $delmsg");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(my $cf = RT::CustomField->new($RT::SystemUser));
ok($cf->ValidateType('SelectSingle'));
@@ -71,8 +61,6 @@
ok(!$cf->ValidateType('SelectFooMultiple'));
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/emailparser.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/emailparser.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/emailparser.t Sat Sep 15 15:33:54 2007
@@ -8,39 +8,27 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(require RT::EmailParser);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
is(RT::EmailParser::IsRTAddress("","rt\@example.com"),1, "Regexp matched rt address" );
is(RT::EmailParser::IsRTAddress("","frt\@example.com"),undef, "Regexp didn't match non-rt address" );
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my @before = ("rt\@example.com", "frt\@example.com");
my @after = ("frt\@example.com");
ok(eq_array(RT::EmailParser::CullRTAddresses("", at before), at after), "CullRTAddresses only culls RT addresses");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/group.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/group.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/group.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
# {{{ Tests
ok (require RT::Group);
@@ -88,13 +86,9 @@
# }}}
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(my $u = RT::Group->new($RT::SystemUser));
ok($u->Load(4), "Loaded the first user");
@@ -102,8 +96,6 @@
is($u->PrincipalObj->PrincipalType , 'Group' , "Principal 4 is a group");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/groups.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/groups.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/groups.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::Groups);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
# next had bugs
# Groups->Limit( FIELD => 'id', OPERATOR => '!=', VALUE => xx );
@@ -35,13 +29,9 @@
ok (!$bug, "didn't find group");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $u = RT::User->new($RT::SystemUser);
my ($id, $msg) = $u->Create( Name => 'Membertests'. $$ );
@@ -62,13 +52,9 @@
is ($groups->First->Id , $g->Id, "it's the right one");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
no warnings qw/redefine once/;
my $q = RT::Queue->new($RT::SystemUser);
@@ -150,8 +136,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/i18n.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/i18n.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/i18n.t Sat Sep 15 15:33:54 2007
@@ -8,20 +8,14 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use_ok ('RT::I18N');
ok(RT::I18N->Init);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(my $chinese = RT::I18N->get_handle('zh_tw'));
ok(UNIVERSAL::can($chinese, 'maketext'));
@@ -33,8 +27,6 @@
is($en->encoding , 'utf-8', "The encoding ".$en->encoding." is 'utf-8'");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/link.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/link.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/link.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use RT::Link;
@@ -23,8 +21,6 @@
ok (UNIVERSAL::isa($link, 'DBIx::SearchBuilder::Record'));
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/queue.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/queue.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/queue.t Sat Sep 15 15:33:54 2007
@@ -8,32 +8,22 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use RT::Queue;
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $q = RT::Queue->new($RT::SystemUser);
is($q->IsValidStatus('new'), 1, 'New is a valid status');
is($q->IsValidStatus('f00'), 0, 'f00 is not a valid status');
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $q = RT::Queue->new($RT::SystemUser);
is($q->IsActiveStatus('new'), 1, 'New is a Active status');
@@ -41,13 +31,9 @@
is($q->IsActiveStatus('f00'), 0, 'f00 is not a Active status');
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $q = RT::Queue->new($RT::SystemUser);
is($q->IsInactiveStatus('new'), 0, 'New is a Active status');
@@ -55,13 +41,9 @@
is($q->IsInactiveStatus('f00'), 0, 'f00 is not a Active status');
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $queue = RT::Queue->new($RT::SystemUser);
my ($id, $val) = $queue->Create( Name => 'Test1');
@@ -71,13 +53,9 @@
ok(!$id, $val);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $Queue = RT::Queue->new($RT::SystemUser); my ($id, $msg) = $Queue->Create(Name => "Foo",
);
@@ -105,8 +83,6 @@
ok ($group->Id, "Found the AdminCc object for this Queue");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/record.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/record.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/record.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::Record);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $ticket = RT::Ticket->new($RT::SystemUser);
my $group = RT::Group->new($RT::SystemUser);
@@ -28,13 +22,9 @@
is($group->ObjectTypeStr, 'Group', "Group returns correct typestring");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $t1 = RT::Ticket->new($RT::SystemUser);
my ($id, $trans, $msg) = $t1->Create(Subject => 'DepTest1', Queue => 'general');
@@ -77,8 +67,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/rt.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/rt.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/rt.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
is ($RT::Nobody->Name() , 'Nobody', "Nobody is nobody");
isnt ($RT::Nobody->Name() , 'root', "Nobody isn't named root");
@@ -17,8 +15,6 @@
isnt ($RT::SystemUser->Name() , 'noname', "The system user isn't noname");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/scrip.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/scrip.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/scrip.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::Scrip);
@@ -48,8 +46,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/searchbuilder.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/searchbuilder.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/searchbuilder.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::SearchBuilder);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use_ok('RT::Queues');
ok(my $queues = RT::Queues->new($RT::SystemUser), 'Created a queues object');
@@ -43,8 +37,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/system.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/system.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/system.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $s = RT::System->new($RT::SystemUser);
my $rights = $s->AvailableRights;
@@ -22,13 +20,9 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use RT::System;
my $sys = RT::System->new();
@@ -36,8 +30,6 @@
is ($sys->id, 1);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/template.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/template.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/template.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(require RT::Template);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $t = RT::Template->new($RT::SystemUser);
$t->Create(Name => "Foo", Queue => 1);
@@ -29,8 +23,6 @@
ok($t2->QueueObj->id, "Got the template's queue objet");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/ticket.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/ticket.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/ticket.t Sat Sep 15 15:33:54 2007
@@ -9,8 +9,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use_ok ('RT::Queue');
ok(my $testqueue = RT::Queue->new($RT::SystemUser));
@@ -86,25 +84,17 @@
"This ticket has 1 custom field value");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(require RT::Ticket, "Loading the RT::Ticket library");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $t = RT::Ticket->new($RT::SystemUser);
@@ -116,13 +106,9 @@
is ($t->ResolvedObj->Unix, 0, "It hasn't been resolved - ". $t->ResolvedObj->Unix);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $ticket = RT::Ticket->new($RT::SystemUser);
my ($id, $msg) = $ticket->Create(Subject => "Foo",
@@ -164,13 +150,9 @@
ok($group->HasMember($RT::SystemUser->UserObj->PrincipalObj), "the owner group has the member 'RT_System'");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $t = RT::Ticket->new($RT::SystemUser);
ok($t->Create(Queue => 'general', Subject => 'SquelchTest'));
@@ -199,13 +181,9 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $t1 = RT::Ticket->new($RT::SystemUser);
$t1->Create ( Subject => 'Merge test 1', Queue => 'general', Requestor => 'merge1 at example.com');
@@ -225,13 +203,9 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $root = RT::User->new($RT::SystemUser);
$root->Load('root');
@@ -253,13 +227,9 @@
is($steal->NewValue , $RT::SystemUser->Id , "Stolen by the systemuser");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $tt = RT::Ticket->new($RT::SystemUser);
my ($id, $tid, $msg)= $tt->Create(Queue => 'general',
@@ -278,8 +248,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/tickets.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/tickets.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/tickets.t Sat Sep 15 15:33:54 2007
@@ -8,8 +8,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok (require RT::Tickets);
ok( my $testtickets = RT::Tickets->new( $RT::SystemUser ) );
@@ -18,13 +16,9 @@
is( $testtickets->Count , 0 );
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
# Test to make sure that you can search for tickets by requestor address and
# by requestor name.
@@ -89,25 +83,17 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $t1 = RT::Ticket->new($RT::SystemUser);
$t1->Create(Queue => 'general', Subject => "LimitWatchers test", Requestors => \['requestor1 at example.com']);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
# We assume that we've got some tickets hanging around from before.
ok( my $unlimittickets = RT::Tickets->new( $RT::SystemUser ) );
@@ -115,8 +101,6 @@
ok( $unlimittickets->Count > 0, "UnLimited tickets object should return tickets" );
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/tickets_overlay_sql.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/tickets_overlay_sql.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/tickets_overlay_sql.t Sat Sep 15 15:33:54 2007
@@ -6,8 +6,6 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
use RT::Tickets;
use strict;
@@ -72,8 +70,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/user.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/user.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/user.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(require RT::User);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
# Make sure we can create a user
@@ -69,13 +63,9 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(my $user = RT::User->new($RT::SystemUser));
@@ -89,13 +79,9 @@
ok($user->Privileged, "User 'root' is privileged again");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(my $u = RT::User->new($RT::SystemUser));
ok($u->Load(1), "Loaded the first user");
@@ -103,13 +89,9 @@
is($u->PrincipalObj->PrincipalType, 'User' , "Principal 1 is a user, not a group");
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
my $root = RT::User->new($RT::SystemUser);
$root->Load('root');
@@ -339,8 +321,6 @@
# have the privileged user try to create another user and fail the ACL check
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
Modified: rt/branches/3.7-EXPERIMENTAL/t/api/users.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/users.t (original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/users.t Sat Sep 15 15:33:54 2007
@@ -8,19 +8,13 @@
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
ok(require RT::Users);
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
{
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
no warnings qw(redefine once);
ok(my $users = RT::Users->new($RT::SystemUser));
@@ -83,8 +77,6 @@
- undef $main::_STDOUT_;
- undef $main::_STDERR_;
}
1;
More information about the Rt-commit
mailing list