tiefeatures.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchi# print STDERR $INC{'Memoize.pm'}, "\n";
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchiprint "1..10\n";
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchi($a) = xx(); # Should return cached false value from previous invocation
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchimemoize 'nul', SCALAR_CACHE => [HASH => \%s], LIST_CACHE => [HASH => \%l];
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchiprint ((join '', sort keys %s) eq 'xy' ? "ok 7\n" : "not ok 7\n");
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchiprint ((join '', sort keys %l) eq '' ? "ok 8\n" : "not ok 8\n");
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchiprint ((join '', sort keys %s) eq 'xy' ? "ok 9\n" : "not ok 9\n");
9d26e4fc021e249c93c2861629cc665e4f5bd4d6Robert Mustacchiprint ((join '', sort keys %l) eq 'pq' ? "ok 10\n" : "not ok 10\n");