[Bps-public-commit] r14480 - in sd/trunk: .

sartak at bestpractical.com sartak at bestpractical.com
Thu Jul 24 11:34:00 EDT 2008


Author: sartak
Date: Thu Jul 24 11:33:58 2008
New Revision: 14480

Modified:
   sd/trunk/   (props changed)
   sd/trunk/lib/App/SD/Test.pm

Log:
 r65029 at onn:  sartak | 2008-07-24 11:33:49 -0400
 Bump up T:B:L so failures are reported from the right stack level


Modified: sd/trunk/lib/App/SD/Test.pm
==============================================================================
--- sd/trunk/lib/App/SD/Test.pm	(original)
+++ sd/trunk/lib/App/SD/Test.pm	Thu Jul 24 11:33:58 2008
@@ -12,6 +12,7 @@
 sub create_ticket_ok {
     my @args = (@_);
     my ( $uuid, $luid );
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     Prophet::Test::run_output_matches( 'sd', [ 'ticket', 'create', '--', @args ],
         [qr/Created ticket (.*?)(?{ $luid = $1})\s+\((.*)(?{ $uuid = $2 })\)/]
     );
@@ -22,6 +23,7 @@
 sub create_ticket_comment_ok {
     my @args = (@_);
     my ( $uuid, $luid );
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     Prophet::Test::run_output_matches(
         'sd',
         [ 'ticket', 'comment', 'create', @args ],



More information about the Bps-public-commit mailing list