[libpath-tiny-perl] 05/11: create digest test file in temp directory

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository libpath-tiny-perl.

commit 493bc85ceb357f3c7eb689e0136fce658aa52d9d
Author: David Golden <dagolden at cpan.org>
Date:   Thu Jul 25 19:15:11 2013 -0400

    create digest test file in temp directory
---
 t/digest.t |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/digest.t b/t/digest.t
index 0dc530c..451e58d 100644
--- a/t/digest.t
+++ b/t/digest.t
@@ -6,11 +6,11 @@ use Test::More 0.96;
 use Path::Tiny;
 use Digest;
 
-my $file = path('foo.bin');
-ok $file;
+my $dir = Path::Tiny->tempdir;
+my $file = $dir->child('foo.bin');
 
 my $chunk = pack("Z*", "Hello Path::Tiny\nThis is packed binary string\n");
-ok( $file->spew_raw($chunk) );
+ok( $file->spew_raw($chunk), "created test file with packed binary string" );
 
 # Digest::SHA was first released with perl v5.9.3.
 # And Digest::SHA2 is not a core module.

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libpath-tiny-perl.git