10 unshift @INC, '../lib';
16 my $rc = eval ('bignum->import( "l" => "foo" );');
17 is ($@,''); # shouldn't die
18 $rc = eval ('bignum->import( "lib" => "foo" );');
21 $rc = eval ('bignum->import( "foo" => "bar" );');
22 like ($@, qr/^Unknown option foo/i, 'died'); # should die
24 # test that options are only lowercase (don't see a reason why allow UPPER)
26 foreach (qw/L LIB Lib T Trace TRACE V Version VERSION/)
28 $rc = eval ('bignum->import( "$_" => "bar" );');
29 like ($@, qr/^Unknown option $_/i, 'died'); # should die