[Rt-commit] rt branch, 4.2/adjust-get-ok-test-level, created. rt-4.0.0rc7-253-ge4a0b63

[Ruslan Zakirov]

The branch, 4.2/adjust-get-ok-test-level has been created
        at  e4a0b63fec8eb090f21c3d20846dcdc5d5264e2c (commit)

- Log -----------------------------------------------------------------
commit e4a0b63fec8eb090f21c3d20846dcdc5d5264e2c
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Sat Apr 23 08:14:23 2011 +0400

    adjust Test::Builder's level

diff --git a/lib/RT/Test/Web.pm b/lib/RT/Test/Web.pm
index 21d5a82..2d9b56f 100644
--- a/lib/RT/Test/Web.pm
+++ b/lib/RT/Test/Web.pm
@@ -80,6 +80,8 @@ sub get_ok {
     if ( $url =~ s!^/!! ) {
         $url = $self->rt_base_url . $url;
     }
+
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     my $rv = $self->SUPER::get_ok($url, @_);
     Test::More::diag( "Couldn't get $url" ) unless $rv;
     return $rv;

-----------------------------------------------------------------------