3 ###############################################################################
12 unshift @INC, '../lib';
18 my $rc = eval ('bignum->import( "l" => "foo" );');
19 ok ($@,''); # shouldn't die
20 $rc = eval ('bignum->import( "lib" => "foo" );');
23 $rc = eval ('bignum->import( "foo" => "bar" );');
24 ok ($@ =~ /^Unknown option foo/i,1); # should die
26 # test that options are only lowercase (don't see a reason why allow UPPER)
28 foreach (qw/L LIB Lib T Trace TRACE V Version VERSION/)
30 $rc = eval ('bignum->import( "$_" => "bar" );');
31 ok ($@ =~ /^Unknown option $_/i,1); # should die