#!perl

use Test::More tests => 7;

use Authen::SASL qw(Perl);

my $sasl = Authen::SASL->new(
  mechanism => 'PLAIN',
  callback => {
    user => 'gbarr',
    pass => \&cb_pass,
    authname => [ \&cb_authname, 1 ],
  },
);
ok($sasl, 'new');

is($sasl->mechanism,	'PLAIN',	'sasl mechanism');

my $conn = $sasl->client_new("ldap","localhost");

is($conn->mechanism,	'PLAIN',	'conn mechanism');

my $test = 4;

is($conn->client_start,	"none\0gbarr\0fred", "client_start");

is($conn->client_step("xyz"), undef, "client_step");

sub cb_pass {
  ok(1,'pass callback');
  'fred';
}

sub cb_authname {
  ok((@_ == 2 and $_[1] == 1), 'authname callback');
  'none';
}