1N/A# Check interactions of deferred writing 1N/A# with miscellaneous methods like DELETE, EXISTS, 1N/A# FETCHSIZE, STORESIZE, CLEAR, EXTEND 1N/Aprint "ok $N\n"; $N++;
1N/Aprint $o ?
"ok $N\n" :
"not ok $N\n";
1N/A print "ok $_ \# skipped (no exists for arrays)\n"; 1N/A# Actually it's not real clear what these tests are for 1N/A# since EXTEND has no defined semantics 1N/A print "ok $_ \# skipped (no delete for arrays)\n"; 1N/A################################################################ 1N/A# my $integrity = $o->_check_integrity($file, $ENV{INTEGRITY}); 1N/A# print $integrity ? "ok $N\n" : "not ok $N\n"; 1N/A print $good ? "ok $N\n" : "not ok $N\n"; 1N/A } elsif ($b->{$k} ne $a->{$k}) { 1N/A print $_[0] ? "ok $N\n" : "not ok $N\n"; 1N/A } elsif ($a eq $x) { print "ok $N\n" } 1N/A die "expect() got ", scalar(@_), " args, should have been 1 or 2";