[Rt-commit] r9050 - rt/branches/3.7-EXPERIMENTAL/t/web

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Sep 14 06:51:45 2007
New Revision: 9050

Modified:
   rt/branches/3.7-EXPERIMENTAL/t/web/command_line.t

Log:
fixed typo, also a little regex profiling

Modified: rt/branches/3.7-EXPERIMENTAL/t/web/command_line.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/web/command_line.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/web/command_line.t	Fri Sep 14 06:51:45 2007
@@ -393,7 +393,7 @@
         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/$display_relns{reln}: [\w\d\.\-]+:\/\/[\w\d\.]+\/ticket\/$link2_id/, "Created link $reln");
+        expect_like(qr/$display_relns{$reln}: [\w\d\.\-]+:\/\/[\w\d\.]+\/ticket\/$link2_id/, "Created link $reln");
 
         # delete link
         expect_send("link -d $link1_id $reln $link2_id", "Delete $reln...");
@@ -422,7 +422,7 @@
 # wrap up all the file handling stuff for attachment testing
 sub check_attachment {
     my $attachment_path = shift;
-    (my $filename = $attachment_path) =~ s/.*\/(.*?)$/$1/;
+    (my $filename = $attachment_path) =~ s/.*\/(.*)$/$1/;
     expect_send("comment -m 'attach file' -a $attachment_path $ticket_id", "Adding an attachment ($filename)");
     expect_like(qr/Message recorded/, "Added the attachment");
     expect_send("show ticket/$ticket_id/attachments","Finding Attachment");