lib/File/Compare.t

21 use File::Compare qw(compare compare_text);
26 is(compare($README,$README), 0, "compare file to itself");
27 is(compare($TEST,$README), 1, "compare file to different file");
28 is(compare($README,"HLAGHLAG"), -1,
45     is(compare($fh,$README), 0,
54     is(compare($fh,$TEST), 1,
85   $donetests[0] = compare($tfh, $README);
90   $donetests[1] = compare($filename, $README);
92   $donetests[2] = compare($README, "$filename$whsp");
116     eval { compare(); 1 };
117     like($@, qr/Usage:\s+compare/,
123     eval { compare(undef, $README); 1 };
130     eval { compare($README, undef ); 1 };