view release on metacpan or  search on metacpan

t/10.filter.t  view on Meta::CPAN

}

use Net::DSML::Filter;

my $ty = "final";
my $at = "cn";
my $vl = "Bunny";

diag( " " );
diag( "Testing Net::DSML::Filter $Net::DSML::Filter::VERSION" );
my @tests = do { local $/=""; <DATA> };

my $filter = Net::DSML::Filter->new();
ok( defined $filter);
ok( $filter->isa('Net::DSML::Filter'));
ok( $filter->subString( { type =>"initial", attribute => "cn", value => "jay" } ));
ok( $filter->present( { attribute => "cn" } ));
ok( $filter->equalityMatch( { attribute => "cn", value => "me" } ));
ok( $filter->greaterOrEqual( { attribute => "cn", value => "jay" } ));
ok( $filter->lessOrEqual( { attribute => "cn", value => "jay" } ));
ok( $filter->approxMatch( { attribute => "cn", value => "jay" } ));

t/20.Control.t  view on Meta::CPAN

use Net::DSML::Control;

my $oid = "1.2.840.113556.1.4.612";
my $vt = "base64Binary";
my $cr = "true";
my $vl = "U2VhcmNoIFJlcXVlc3QgRXhhbXBsZQ==";

diag( " " );
diag( "Testing Net::DSML::Control $Net::DSML::Control::VERSION" );
my @tests = do { local $/=""; <DATA> };

my $control = Net::DSML::Control->new();

ok( defined $control);
ok( $control->isa('Net::DSML::Control'));

$control->add( { control => "1.2.840.113556.1.4.612",
                 valuetype => "base64Binary",
                 criticality => "true",
                 value => "U2VhcmNoIFJlcXVlc3QgRXhhbXBsZQ==" });

t/30.dsml.t  view on Meta::CPAN

use Net::DSML;
use Net::DSML::Filter;
use Net::DSML::Control;


diag( " " );
diag( "Testing Net::DSML $Net::DSML::VERSION" );
diag( "Testing Net::DSML::Filter $Net::DSML::Filter::VERSION" );
diag( "Testing Net::DSML::Control $Net::DSML::Control::VERSION" );

my @tests = do { local $/=""; <DATA> };

my $dsml = Net::DSML->new();
my $filter = Net::DSML::Filter->new();
my $control = Net::DSML::Control->new();
ok( defined $dsml);
ok( $dsml->isa('Net::DSML'));
ok( defined $filter);
ok( $filter->isa('Net::DSML::Filter'));
ok( defined $control);
ok( $control->isa('Net::DSML::Control'));