Lines Matching refs:pass
39 # pass() or fail()
41 # pass() or fail()
58 sub pass
61 fatal("pass() without start()");
159 pass();
180 pass();
207 my ($ret, $file1, $file2, $file3, $file4, $file5, $pass);
332 pass();
361 system("cmp -s $filename $filename.w") == 0 ? pass() :
718 pass();
736 pass();
760 defined($s) && $s == getprojid() ? pass() : fail();
769 cmp_recs($pf1, $pf2) ? pass() : fail();
777 $pass = 1;
782 $pass = 0 if (! cmp_recs(\@a1, $h{$a1[0]}));
785 $pass = 0;
788 $pass && ! %h ? pass() : fail();
792 cmp_recs(\@a1, []) ? pass() : fail();
798 cmp_recs(\@a1, \@a2) ? pass() : fail();
803 cmp_recs(\@a1, \@a2) ? pass() : fail();
807 $pass = 1;
810 $pass = 0 if (! cmp_recs(\@a1, $v));
812 $pass ? pass() : fail();
815 $pass = 1;
818 $pass = 0 if (! cmp_recs(\@a1, $v));
820 $pass ? pass() : fail();
823 $pass = 1;
825 $pass = 0 if (getprojidbyname($k) != $v->[1]);
827 $pass ? pass() : fail();
834 defined($projid) && $projid eq getdefaultproj($username) ? pass() : fail();
839 inproj($username, $s) ? pass() : fail();