Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d66937c35a
Fetching contributors…

Cannot retrieve contributors at this time

50 lines (41 sloc) 1.042 kb
#!perl
use Test::More tests => 75;
use Authen::SASL qw(Perl);
my %order = qw(
ANONYMOUS 0
LOGIN 1
PLAIN 1
CRAM-MD5 2
EXTERNAL 2
DIGEST-MD5 3
);
my $skip3 = !eval { require Digest::MD5 and $Digest::MD5::VERSION || $Digest::MD5::VERSION };
foreach my $level (reverse 0..3) {
my @mech = grep { $order{$_} <= $level } keys %order;
foreach my $n (1..@mech) {
push @mech, shift @mech; # rotate
my $mech = join(" ",@mech);
print "# $level $mech\n";
if ($level == 3 and $skip3) {
SKIP: {
skip "requires Digest::MD5", 5;
}
next;
}
my $sasl = Authen::SASL->new(
mechanism => $mech,
callback => {
user => 'gbarr',
pass => 'fred',
authname => 'none'
},
);
ok($sasl, "new");
is($sasl->mechanism, $mech, "sasl mechanism");
my $conn = $sasl->client_new("ldap","localhost");
ok($conn, 'client_new');
my $chosen = $conn->mechanism;
ok($chosen, 'conn mechanism ' . ($chosen || '?'));
is($order{$chosen}, $level, 'mechanism level');
}
}
Jump to Line
Something went wrong with that request. Please try again.