[libdist-zilla-role-bootstrap-perl] 05/05: Add diagnostics on mtime test to see why it failed

[Axel Beckert]

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

abe pushed a commit to annotated tag 1.001001-source
in repository libdist-zilla-role-bootstrap-perl.

commit ab79bd2ef1dfe2f2d3720d86484f6195cfc92339
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Mon Jun 29 21:03:38 2015 +1200

    Add diagnostics on mtime test to see why it failed
---
 Changes                |  3 +++
 t/02-try-built-mtime.t | 14 ++++++++------
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/Changes b/Changes
index 414d3be..7e71d42 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,9 @@
 Release history for Dist-Zilla-Role-Bootstrap
 
 {{$NEXT}}
+ [Bugfix]
+ - Add diagnostics on mtime test to see why it failed.
+
  [Dependencies::Stats]
  - Dependencies changed since 1.001000, see misc/*.deps* for details
  - develop: +1 ↑3 -1 (suggests: ↑2)
diff --git a/t/02-try-built-mtime.t b/t/02-try-built-mtime.t
index 376a295..024c838 100644
--- a/t/02-try-built-mtime.t
+++ b/t/02-try-built-mtime.t
@@ -81,12 +81,14 @@ is_deeply(
   'dump_config is expected'
 );
 
-is( $instance->distname,                  'Example',                                 'distname is Example' );
-is( $instance->_cwd->realpath,            $scratch->realpath,                        'cwd is project root/' );
-is( $instance->try_built,                 1,                                         'try_built is on' );
-is( $instance->try_built_method,          'mtime',                                   'try_built_method is mtime' );
-is( $instance->fallback,                  1,                                         'fallback is on' );
-is( $instance->_bootstrap_root->realpath, $scratch->child('Example-0.05')->realpath, '_bootstrap_root == _cwd' );
+is( $instance->distname,         'Example',          'distname is Example' );
+is( $instance->_cwd->realpath,   $scratch->realpath, 'cwd is project root/' );
+is( $instance->try_built,        1,                  'try_built is on' );
+is( $instance->try_built_method, 'mtime',            'try_built_method is mtime' );
+is( $instance->fallback,         1,                  'fallback is on' );
+is( $instance->_bootstrap_root->realpath, $scratch->child('Example-0.05')->realpath, '_bootstrap_root == _cwd' ) or diag explain [
+  map { { $_->stringify => $_->stat->mtime } } map { $scratch->child("Example-$_") } qw( 0.01 0.10 0.05 )
+];
 ok( $instance->can('_add_inc'), '_add_inc method exists' );
 
 chdir $cwd->stringify;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-role-bootstrap-perl.git