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 e03797f9f201f761e11e43f1f433758b6906807f
Author: glauschwuffel <glauschwuf...@nomaden.org>
Date:   Thu May 29 20:34:24 2014 +0200

    Step defining keywords are now anchored ^$ in case a verb contains another, 
different verb
---
 lib/Test/BDD/Cucumber/Parser.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Test/BDD/Cucumber/Parser.pm b/lib/Test/BDD/Cucumber/Parser.pm
index 6dbf254..d3b2d6e 100644
--- a/lib/Test/BDD/Cucumber/Parser.pm
+++ b/lib/Test/BDD/Cucumber/Parser.pm
@@ -206,10 +206,10 @@ sub _extract_steps {
                if ( $line->content =~ 
m/^((?:$self->{langdef}->{given})|(?:$self->{langdef}->{and})|(?:$self->{langdef}->{when})|(?:$self->{langdef}->{then})|(?:$self->{langdef}->{but}))
 (.+)/ ) {
                        my ( $verb, $text ) = ( $1, $2 );
                        my $original_verb = $verb;
-                       $verb = 'Given' if $verb =~ 
m/($self->{langdef}->{given})/;
-                       $verb = 'When' if  $verb =~ 
m/($self->{langdef}->{when})/;
-                       $verb = 'Then' if  $verb =~ 
m/($self->{langdef}->{then})/;
-                       $verb = $last_verb if $verb =~ 
m/^($self->{langdef}->{and})/ or $verb =~ m/^($self->{langdef}->{but})/;
+                       $verb = 'Given' if $verb =~ 
m/^($self->{langdef}->{given}$)/;
+                       $verb = 'When' if  $verb =~ 
m/^($self->{langdef}->{when}$)/;
+                       $verb = 'Then' if  $verb =~ 
m/^($self->{langdef}->{then}$)/;
+                       $verb = $last_verb if $verb =~ 
m/^($self->{langdef}->{and}$)/ or $verb =~ m/^($self->{langdef}->{but}$)/;
             $last_verb = $verb;
 
                        my $step = Test::BDD::Cucumber::Model::Step->new({

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libtest-bdd-cucumber-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to