Lines Matching full:compare

21 use File::Compare qw(compare compare_text);
23 # Upon success, compare() and compare_text() return a Unix-ish 0
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,
29     "compare file to nonexistent file returns error value");
45     is(compare($fh,$README), 0,
46         "compare file with filehandle open to same file");
54     is(compare($fh,$TEST), 1,
55         "compare file with filehandle open to different file");
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/,
118         "detect insufficient arguments to compare()");
123     eval { compare(undef, $README); 1 };
125         "compare() fails: first argument undefined");
130     eval { compare($README, undef ); 1 };
132         "compare() fails: second argument undefined");