prototype.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use lib '..';
use Memoize;
$EXPECTED_WARNING = '(no warning expected)';
print "1..4\n";
$SIG{__WARN__} = \&handle_warnings;
# Let's see if the prototype is actually honored
@q = (1..5);
print (($r == 6) ? '' : 'not ', "ok 4\n");
sub handle_warnings {
print $_[0];
}