[Rt-commit] r5489 - in rt/branches/3.6-RELEASE: .

kevinr at bestpractical.com kevinr at bestpractical.com
Thu Jun 29 14:41:10 EDT 2006


Author: kevinr
Date: Thu Jun 29 14:41:08 2006
New Revision: 5489

Modified:
   rt/branches/3.6-RELEASE/   (props changed)
   rt/branches/3.6-RELEASE/lib/t/regression/26command_line.t

Log:
 r14127 at sad-girl-in-snow:  kevinr | 2006-06-29 14:40:28 -0400
 * Added todo_skip tests for linking via the rt command-line tool.


Modified: rt/branches/3.6-RELEASE/lib/t/regression/26command_line.t
==============================================================================
--- rt/branches/3.6-RELEASE/lib/t/regression/26command_line.t	(original)
+++ rt/branches/3.6-RELEASE/lib/t/regression/26command_line.t	Thu Jun 29 14:41:08 2006
@@ -3,7 +3,7 @@
 use strict;
 use Test::Expect;
 #use Test::More qw/no_plan/;
-use Test::More tests => 138;
+use Test::More tests => 192;
 
 use RT;
 RT::LoadConfig();
@@ -354,4 +354,47 @@
 }
 # }}}
 
+# {{{ test ticket linking
+
+TODO: {
+    todo_skip "Linking doesn't work yet", 54;
+
+    my @link_relns = ( 'DependsOn', 'DependedOnBy', 'RefersTo', 'ReferredToBy',
+                       'MemberOf', 'HasMember', );
+
+    my $link1_id = ok_create_ticket( "LinkTicket1-$$" );
+    my $link2_id = ok_create_ticket( "LinkTicket2-$$" );
+
+    foreach my $reln (@link_relns) {
+        # create link
+        expect_send("link $link1_id $reln $link2_id", "Link by $reln...");
+        expect_like(qr/Created link $link1_id $reln $link2_id/, 'Linked');
+        expect_send("show ticket/$link1_id/links", "Checking creation of $reln...");
+        expect_like(qr/$reln: [\w\d\.]+:\/\/[\w\d\.]+\/ticket\/$link2_id/, "Created link $reln");
+
+        # delete link
+        expect_send("link $link1_id $reln $link2_id", "Delete $reln...");
+        expect_like(qr/Created link $link1_id $reln $link2_id/, 'Deleted');
+        expect_send("show ticket/$link1_id/links", "Checking removal of $reln...");
+        ok( expect_handle->before() !~ /\Q$reln: \E[\w\d\.]+:\/\/[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln" );
+        #expect_unlike(qr/\Q$reln: \E[\w\d\.]+\Q://\E[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln");
+
+    }
+}
+# }}}
+
+
+# helper function
+sub ok_create_ticket {
+    my $subject = shift;
+
+    expect_send("create -t ticket set subject='$subject'", 'Creating ticket...');
+    expect_like(qr/Ticket \d+ created/, "Created ticket '$subject'");
+    expect_handle->before() =~ /Ticket (\d+) created/;
+    my $id = $1;
+    ok($id, "Got ticket id=$id");
+    
+    return $id;
+}
+
 1;


More information about the Rt-commit mailing list