Lines Matching refs:test
14 # test whether Math::BigInt->config() and Math::BigFloat->config() works
36 ok ($cfg->{precision}||0,0); # should test for undef
60 ok ($cfg->{precision}||0,0); # should test for undef
69 # test setting values
71 my $test = {
84 foreach my $key (keys %$test)
87 eval ( "$mbi\->config( $key => '$test->{$key}' );" );
88 $c = $mbi->config(); ok ("$key = $c->{$key}", "$key = $test->{$key}");
91 if (($c->{$key}||0) ne $test->{$key})
97 ok ("$key eq $c->{$key}","$key ne $test->{$key}");
101 eval ( "$mbf\->config( $key => '$test->{$key}' );" );
102 $c = $mbf->config(); ok ("$key = $c->{$key}", "$key = $test->{$key}");
106 # test setting illegal keys (should croak)