[Rt-commit] [rtir] 13/24: Switch test helpers to use lifecycles

Jesse Vincent jesse at bestpractical.com
Mon Feb 9 00:25:21 EST 2015


This is an automated email from the git hooks/post-receive script.

jesse pushed a commit to branch 3.4/remove_old_constituencies
in repository rtir.

commit 48fb250031caaea8aee898f356489a902fe7b139
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Feb 8 18:42:33 2015 -0800

    Switch test helpers to use lifecycles
---
 lib/RT/IR/Test/Web.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/RT/IR/Test/Web.pm b/lib/RT/IR/Test/Web.pm
index ba499be..8b15ab1 100644
--- a/lib/RT/IR/Test/Web.pm
+++ b/lib/RT/IR/Test/Web.pm
@@ -72,17 +72,17 @@ sub create_block {
 
 sub goto_create_rtir_ticket {
     my $self = shift;
-    my $queue = shift;
+    my $queue = shift; # we play a dumb game to change queues to lifecycles
     local $Test::Builder::Level = $Test::Builder::Level + 1;
 
-    my $equeue = $queue;
-    $equeue =~ s/ /%20/;
+    my $lifecycle = lc( $queue);
+    $lifecycle =~ s/ /_/;
     my $link_text = "Create";
-    $link_text = "Launch" if $queue eq 'Investigations';
+    $link_text = "Launch" if $lifecycle eq 'investigations';
 
     $self->get_ok("/RTIR/index.html", "Loaded home page");
     $self->follow_link_ok(
-        {text => $link_text, url_regex => qr{RTIR/Create\.html.*(?i:$equeue)} },
+        {text => $link_text, url_regex => qr{RTIR/Create\.html.*(?i:$lifecycle)} },
         "Followed create in '$queue' link"
     );
 
@@ -94,7 +94,7 @@ sub create_rtir_ticket_ok {
     my $self = shift;
     my $queue = shift;
 
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 2;
 
     my $id = $self->create_rtir_ticket( $queue, @_ );
     Test::More::ok( $id, "Created ticket #$id in queue '$queue' successfully." );

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.


More information about the rt-commit mailing list