[Rt-commit] r1993 - in rt/branches/3.3-TESTING: . lib/t/regression

[jesse at bestpractical.com]

Author: jesse
Date: Tue Dec 14 02:36:04 2004
New Revision: 1993

Added:
   rt/branches/3.3-TESTING/lib/t/regression/01ticket_link_searching.t
Modified:
   rt/branches/3.3-TESTING/   (props changed)
Log:
 r2431 at hualien:  jesse | 2004-12-14T07:32:22.983998Z
 And now we have _tests_ for the link searching. 
 
 


Added: rt/branches/3.3-TESTING/lib/t/regression/01ticket_link_searching.t
==============================================================================
--- (empty file)
+++ rt/branches/3.3-TESTING/lib/t/regression/01ticket_link_searching.t	Tue Dec 14 02:36:04 2004
@@ -0,0 +1,156 @@
+#!/usr/bin/perl -w
+
+use lib qw(/opt/rt3/lib);
+#use Test::More tests => 25;
+use strict;
+use RT;
+
+# Load the config file
+RT::LoadConfig();
+
+#Connect to the database and get RT::SystemUser and RT::Nobody loaded
+RT::Init();
+
+#Get the current user all loaded
+my $CurrentUser = $RT::SystemUser;
+
+my $queue = new RT::Queue($CurrentUser);
+$queue->Load('General') || Abort(loc("Queue could not be loaded."));
+
+my $child_ticket = new RT::Ticket( $CurrentUser );
+
+my ( $childid ) = $child_ticket->Create
+    ( Subject => 'test child',
+      Queue => $queue->Id);
+
+ok($childid != 0);
+
+my $parent_ticket = new RT::Ticket( $CurrentUser );
+
+my ( $parentid ) = $parent_ticket->Create
+    ( Subject => 'test parent',
+      Children => [$childid],
+      Queue => $queue->Id);
+
+ok($parentid != 0, "We created a parent ticket");
+
+my $Collection = RT::Tickets->new($CurrentUser);
+$Collection->LimitMemberOf ($parentid);
+
+ok ($Collection->First);
+is ($Collection->First->id, $childid, "We found the collection of all children of $parentid with Limit");
+is($Collection->Count,1, "We found only one result");
+
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->FromSQL( "MemberOf =  $parentid");
+is ($Collection->First->id, $childid, "We found the collection of all children of $parentid with TicketSQL");
+is($Collection->Count,1, "We found only one result");
+
+
+
+
+
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->LimitHasMember ($childid);
+
+ok ($Collection->First);
+is ($Collection->First->id, $parentid, "We found the collection of all parents of $childid with Limit");
+is($Collection->Count,1, "We found only one result");
+
+
+
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->FromSQL("HasMember = $childid");
+
+ok ($Collection->First);
+is ($Collection->First->id, $parentid, "We found the collection of all parents of $childid with TicketSQL");
+is($Collection->Count,1, "We found only one result");
+
+
+
+# Now we find a collection of all the tickets which have no members. they should have no children.
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->LimitHasMember('');
+# must contain parent; must not contain child
+my %has;
+while (my $t = $Collection->Next) {
+    ++$has{$t->id};
+}
+ok ($has{$parentid} , "The collection has our parent - $parentid");
+ok( !$has{$childid}, "The collection doesn't have our child - $childid");
+
+
+
+
+# Now we find a collection of all the tickets which are not members of anything. they should have no parents.
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->LimitMemberOf('');
+# must not  contain parent; must contain parent
+%has = ();
+while (my $t = $Collection->Next) {
+    ++$has{$t->id};
+}
+ok (!$has{$parentid} , "The collection has our parent - $parentid");
+ok( $has{$childid}, "The collection doesn't have our child - $childid");
+
+
+#  Do it all over with TicketSQL
+#
+
+
+
+# Now we find a collection of all the tickets which have no members. they should have no children.
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->FromSQL ("HasMember IS NULL");
+# must contain parent; must not contain child
+ %has = ();
+while (my $t = $Collection->Next) {
+    ++$has{$t->id};
+}
+ok ($has{$parentid} , "The collection has our parent - $parentid");
+ok( !$has{$childid}, "The collection doesn't have our child - $childid");
+
+
+# Now we find a collection of all the tickets which have no members. they should have no children.
+# Alternate syntax
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->FromSQL ("HasMember = ''");
+# must contain parent; must not contain child
+ %has = ();
+while (my $t = $Collection->Next) {
+    ++$has{$t->id};
+}
+ok ($has{$parentid} , "The collection has our parent - $parentid");
+ok( !$has{$childid}, "The collection doesn't have our child - $childid");
+
+
+
+# Now we find a collection of all the tickets which are not members of anything. they should have no parents.
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->FromSQL("MemberOf IS NULL");
+# must not  contain parent; must contain parent
+%has = ();
+while (my $t = $Collection->Next) {
+    ++$has{$t->id};
+}
+ok (!$has{$parentid} , "The collection has our parent - $parentid");
+ok( $has{$childid}, "The collection doesn't have our child - $childid");
+
+
+# Now we find a collection of all the tickets which are not members of anything. they should have no parents.
+$Collection = RT::Tickets->new($CurrentUser);
+$Collection->FromSQL("MemberOf = ''");
+# must not  contain parent; must contain parent
+%has = ();
+while (my $t = $Collection->Next) {
+    ++$has{$t->id};
+}
+ok (!$has{$parentid} , "The collection has our parent - $parentid");
+ok( $has{$childid}, "The collection doesn't have our child - $childid");
+
+
+
+
+1;
+
+