[libtest-bdd-cucumber-perl] 50/52: Weird 5.16.2 behaviour around $1. ENOTIME, this is a nicer solution anyway.
Intrigeri
intrigeri at moszumanska.debian.org
Thu Jun 19 10:18:37 UTC 2014
This is an automated email from the git hooks/post-receive script.
intrigeri pushed a commit to annotated tag 0.19
in repository libtest-bdd-cucumber-perl.
commit 0468cfa4919b1e7d67186a559256827295084a73
Author: Peter Sergeant <pete at clueball.com>
Date: Tue Jun 3 07:34:24 2014 +0100
Weird 5.16.2 behaviour around $1. ENOTIME, this is a nicer solution anyway.
---
examples/digest/features/step_definitions/basic_steps.pl | 10 +++++++---
.../tagged-digest/features/step_definitions/basic_steps.pl | 10 +++++++---
2 files changed, 14 insertions(+), 6 deletions(-)
diff --git a/examples/digest/features/step_definitions/basic_steps.pl b/examples/digest/features/step_definitions/basic_steps.pl
index be571a9..ab060a6 100755
--- a/examples/digest/features/step_definitions/basic_steps.pl
+++ b/examples/digest/features/step_definitions/basic_steps.pl
@@ -25,7 +25,11 @@ When "I've added the following to the object", sub {
};
Then qr/the (.+) output is "(.+)"/, sub {
- my $method = {base64 => 'b64digest', 'hex' => 'hexdigest' }->{ $1 } ||
- do { fail("Unknown output type $1"); return };
- is( S->{'object'}->$method, $2 );
+ my ( $type, $expected ) = @{ C->matches };
+ my $method = {
+ 'base64' => 'b64digest',
+ 'hex' => 'hexdigest'
+ }->{ $type };
+
+ is( S->{'object'}->$method, $expected );
};
diff --git a/examples/tagged-digest/features/step_definitions/basic_steps.pl b/examples/tagged-digest/features/step_definitions/basic_steps.pl
index 64f1589..2c2e040 100755
--- a/examples/tagged-digest/features/step_definitions/basic_steps.pl
+++ b/examples/tagged-digest/features/step_definitions/basic_steps.pl
@@ -23,7 +23,11 @@ When "I've added the following to the object", sub {
};
Then qr/the (.+) output is "(.+)"/, sub {
- my $method = {base64 => 'b64digest', 'hex' => 'hexdigest' }->{ $1 } ||
- do { fail("Unknown output type $1"); return };
- is( S->{'object'}->$method, $2 );
+ my ( $type, $expected ) = @{ C->matches };
+ my $method = {
+ 'base64' => 'b64digest',
+ 'hex' => 'hexdigest'
+ }->{ $type };
+
+ is( S->{'object'}->$method, $expected );
};
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-bdd-cucumber-perl.git
More information about the Pkg-perl-cvs-commits
mailing list