diff --git a/test/copy.t b/test/copy.t
index 841dd11..af049e2 100644
--- 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