|
#!/usr/bin/perl
our %TestConfig = %main::TestConfig ;
When qr/I've set option (.+?) with value (.+)/ i, sub {
my $option = $1;
my $value = int ($2);
my $status = S->{ 'object' }->set_option(S->{ 'object' }-> $option , $value );
is(ldap_err2string( $status ), ldap_err2string(LDAP_SUCCESS), "Was option successfully set?" );
};
Then qr/option (.+?) has value (.+)/ i, sub {
my $option = $1;
my $value = $2;
my $data ;
my $status = S->{ 'object' }->get_option(S->{ 'object' }-> $option , \ $data );
is(ldap_err2string( $status ), ldap_err2string(LDAP_SUCCESS), "Was option successfully retrieved?" );
is( $data , $value , "Is the option set to the expected value?" );
};
1;
|