1N/A#!/usr/bin/perl -w
1N/A
1N/A###############################################################################
1N/A
1N/Ause Test;
1N/Ause strict;
1N/A
1N/ABEGIN
1N/A {
1N/A $| = 1;
1N/A chdir 't' if -d 't';
1N/A unshift @INC, '../lib';
1N/A plan tests => 12;
1N/A }
1N/A
1N/Ause bignum;
1N/A
1N/Amy $rc = eval ('bignum->import( "l" => "foo" );');
1N/Aok ($@,''); # shouldn't die
1N/A$rc = eval ('bignum->import( "lib" => "foo" );');
1N/Aok ($@,''); # ditto
1N/A
1N/A$rc = eval ('bignum->import( "foo" => "bar" );');
1N/Aok ($@ =~ /^Unknown option foo/i,1); # should die
1N/A
1N/A# test that options are only lowercase (don't see a reason why allow UPPER)
1N/A
1N/Aforeach (qw/L LIB Lib T Trace TRACE V Version VERSION/)
1N/A {
1N/A $rc = eval ('bignum->import( "$_" => "bar" );');
1N/A ok ($@ =~ /^Unknown option $_/i,1); # should die
1N/A }
1N/A