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];
}