45 my $w = '';
46 is(close(STDERR), 1, 'close STDERR');
47 is(open(STDERR, ">", \$w), 1, 'reopen STDERR');
48
49
50 is($test->init( abc => 1), 0, 'init with unknown parameters');
51 is(length($w) > 0, 1, 'warnings after failed init');