[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