[libtest-bdd-cucumber-perl] 21/25: 0.34 - JSON formatter tests running under Win32 again

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch master
in repository libtest-bdd-cucumber-perl.

commit a1ffa8dfc3d5b5eb31d1e5edbb22e4004ca1771c
Author: Peter Sergeant <pete at clueball.com>
Date:   Tue Apr 21 09:47:52 2015 +0700

    0.34 - JSON formatter tests running under Win32 again
---
 CHANGES                     | 4 +++-
 dist.ini                    | 2 +-
 t/600_harness_json_output.t | 9 +++++----
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/CHANGES b/CHANGES
index 9301d78..4aebc64 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,7 @@
 -----
-0.33: 20 Apr 2014
+0.34: 21 Apr 2015
+    - JSON formatter tests now Win32 compatible
+0.33: 20 Apr 2015
     - JSON formatter uses filename/line based IDs rather than memory-location
         ones, thanks Tomas Pokorny
     - Minor App::pherkin refactor to make harness an attribute, thanks Tomas
diff --git a/dist.ini b/dist.ini
index cce52fd..c39749f 100644
--- a/dist.ini
+++ b/dist.ini
@@ -1,5 +1,5 @@
 name      = Test-BDD-Cucumber
-version   = 0.33
+version   = 0.34
 abstract  = Feature-complete Cucumber-style testing in Perl
 main_module = lib/Test/BDD/Cucumber.pm
 author    = ['Peter Sergeant <pete at clueball.com>','Ben Rogers <ben at bdr.org>']
diff --git a/t/600_harness_json_output.t b/t/600_harness_json_output.t
index 049be61..f534bb0 100644
--- a/t/600_harness_json_output.t
+++ b/t/600_harness_json_output.t
@@ -14,6 +14,7 @@ use Test::BDD::Cucumber::Loader;
 
 my $DIGEST_DIR          = dir(qw/ examples tagged-digest /);
 my $DIGEST_FEATURE_FILE = $DIGEST_DIR->file(qw/ features basic.feature /);
+my $DIGEST_FEATURE_FILE_RE = quotemeta( $DIGEST_FEATURE_FILE );
 
 sub get_line_number {
     my ( $filename, $regexp ) = @_;
@@ -66,8 +67,8 @@ my %json_feature = %{ $parsed_json->[0] };
 is( $json_feature{keyword}, 'Feature', 'feature keyword' );
 is( $json_feature{name}, 'Simple tests of Digest.pm', 'feature name' );
 like( $json_feature{id},
-    qr{^.*examples/tagged-digest/features/basic\.feature:\d+$},
-    'feature id'
+    qr{$DIGEST_FEATURE_FILE_RE:\d+$},
+    'feature id matches a line in ' . $DIGEST_FEATURE_FILE
 );
 is( $json_feature{id}, $second_run_json->[0]{id}, "Feature ID is stable" );
 is( $json_feature{uri}, $DIGEST_FEATURE_FILE, 'feature uri' );
@@ -103,8 +104,8 @@ my %json_scenario = %{ $json_feature{elements}[2] };
 is( $json_scenario{keyword}, 'Scenario',    'scenario keyword' );
 is( $json_scenario{name},    'Check SHA-1', 'scenario name' );
 like( $json_scenario{id},
-    qr{^.*examples/tagged-digest/features/basic.feature:\d+$},
-    'scenario id'
+    qr{^$DIGEST_FEATURE_FILE_RE:\d+$},
+    'scenario id matches a line in ' . $DIGEST_FEATURE_FILE
 );
 is( $json_scenario{id},
     $second_run_json->[0]{elements}[2]{id},

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