Skip to content
Browse files

Get the prefix right, and update the test case.

  • Loading branch information...
1 parent c5b548d commit 501544a7dddb2891bf47475a9e5d8edeaa90f294 @Infinoid committed
Showing with 6 additions and 4 deletions.
  1. +1 −1 modules/local/karmalog.pm
  2. +5 −3 t/parrotticketlog.t
View
2 modules/local/karmalog.pm
@@ -201,7 +201,7 @@ sub emit_ticket_karma {
$prefix = "Ticket #" unless defined $prefix;
$user = $aliases{$user} if exists $aliases{$user};
$self->put($args{targets}, "$prefix$ticket $action by $user++: $summary");
- $self->put($args{targets}, "$prefix$url") if defined $url;
+ $self->put($args{targets}, "$prefix$ticket: $url") if defined $url;
}
View
8 t/parrotticketlog.t
@@ -129,9 +129,11 @@ $xml = $xml_header . $xml_footer;
$feed = XML::RAI->parse_string($xml);
modules::local::parrotticketlog::process_feed($feed);
$output = [output()];
-is(scalar @$output, 2, "2 lines of output");
+is(scalar @$output, 4, "4 lines of output");
is($$output[0]{net} , 'magnet' , "line to magnet/#parrot");
is($$output[0]{chan}, '#parrot' , "line to magnet/#parrot");
is($$output[0]{text}, 'TT #694 created by jkeenan++: docs/dev/fhs.pod... Is this file still relevant?', 'log line');
-is($$output[1]{text}, 'TT #695 created by urkle++: subtest 3 in t/dynoplibs/myops.t segfaults on darwin' , 'log line');
-BEGIN { $tests += 5 };
+is($$output[1]{text}, 'TT #694: http://trac.parrot.org/parrot/ticket/694', 'link line');
+is($$output[2]{text}, 'TT #695 created by urkle++: subtest 3 in t/dynoplibs/myops.t segfaults on darwin' , 'log line');
+is($$output[3]{text}, 'TT #695: http://trac.parrot.org/parrot/ticket/695' , 'link line');
+BEGIN { $tests += 7 };

0 comments on commit 501544a

Please sign in to comment.
Something went wrong with that request. Please try again.