Lines Matching refs:key
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}");