fix copy test on win32

shlomif · Dec 15, 2014 · c762aea · c762aea
1 parent 55fe707
commit c762aea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/copy.t b/test/copy.t
@@ -6,7 +6,7 @@ use IO_All_Test;
 
 my $ret = io->file("$t/img.jpg")->copy(o_dir() . '/img.jpg');
 ok(io->file("$t/img.jpg")->binary->all eq $ret->binary->all, 'file copied correctly');
-is($ret->name, io->file(o_dir(), 'img.jpg')->name, 'copy returns new obj');
+is(f($ret->name), f(io->file(o_dir(), 'img.jpg')->name), 'copy returns new obj');
 
 SKIP: {
     skip 'requires File::Copy::Recursive', 2