CPAN::Groonga

y $fp = File::Copy::NoClobber::filename_with_sprintf_pattern($fn);

isnt $fn, $fp, "filename with counter pattern is different";
isnt $fp, sprintf( $fp, 1 ),
    "updating counter changes the filename

o bar %%% baz";
my $fp2 = sprintf File::Copy::NoClobber::filename_with_sprintf_pattern($fn2), 1;

isnt $fn2, $fp2, "no suffix filename with %'s seems ok";
like $fp2, qr/$fn2/,
    "% in filename does 

 =~ /File exists/i;

        my $new1 = copy( $fn, $d );
        my $new2 = copy( $fn, $d );

        isnt basename( $new1 ), basename( $new2 ),
            "works under $l";

    }

}

done_testing;

 copy $fn1, $d2;

is basename($df1), basename($fn1),
    "first copy preserves source filename";

isnt basename($df2), basename($fn1),
    "second copy has changed it";

like $df2, qr/\Q (01)\E$/,
   

t/x,
    "dest file got the 01 pattern of given filename";

ok -s $final_dest_file, "new dest file has content";

isnt -s $dest1, -s $final_dest_file,
    "file sizes are as expected";

done_testing;

e $fn1 );
copy( $fn1, $d2 );

# then move it
print $fh1 "some more content\n";
my $s2 = -s $fn1;

isnt $s1, $s2, "two versions of file have different size";

close $fh1;
my $new_dest = move( $fn1, $d2