#!/usr/bin/perl
use strict;
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;