view release on metacpan or  search on metacpan

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

use Test::More tests => 31;

BEGIN
{
  require "t/common.pl";
}

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==" });

ok( defined $control);
ok( $control->isa('Net::DSML::Control'));
ok( compare_test($tests[0], $control->getControl()));


$control->clear();
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==" });

ok( defined $control);
ok( $control->isa('Net::DSML::Control'));
ok( compare_test($tests[0], $control->getControl()));



$control = Net::DSML::Control->new( { control => "1.2.840.113556.1.4.612",
                               valuetype => "base64Binary",
                               criticality => "true",
                               value => "U2VhcmNoIFJlcXVlc3QgRXhhbXBsZQ==" });

ok( defined $control);
ok( $control->isa('Net::DSML::Control'));
ok( compare_test($tests[0], $control->getControl()));



$control = Net::DSML::Control->new( { control => $oid,
                               valuetype => $vt,
                               criticality => $cr,
                               value => $vl });

ok( defined $control);
ok( $control->isa('Net::DSML::Control'));
ok( compare_test($tests[0], $control->getControl()));


$control = Net::DSML::Control->new( { control => \$oid,
                               valuetype => \$vt,
                               criticality => \$cr,
                               value => \$vl });

ok( defined $control);
ok( $control->isa('Net::DSML::Control'));
ok( compare_test($tests[0], $control->getControl()));