### ----------------------------------------------------
### -- Net::SMTP
### -- Licenses: NOASSERTION
### -- Authors: 
### -- File: t/03-auth.rakutest
### ----------------------------------------------------
use Test;

plan 5;

class SMTPSocket {
    my @server-send = 
      "220 your.domain.here ESMTP Postfix",
      "250-Hello clientdomain.com",
      "250 AUTH CRAM-MD5 PLAIN LOGIN",
      "235 OK",
      "334 UGFzc3dvcmQ6",
      "235 OK",
      "334 PDQ1MDMuMTIyMzU1Nzg2MkBtYWlsMDEuZXhhbXBsZS5jb20+",
      "235 OK",
      "221 Bye"
      ;
    my @server-get = 
      "EHLO clientdomain.com",
      "AUTH PLAIN dXNlcgB1c2VyAHBhc3M=", # "user\0user\0pass"
      "AUTH LOGIN dXNlcg==", # "user"
      "cGFzcw==", # "pass"
      "AUTH CRAM-MD5",
      "dXNlckBleGFtcGxlLmNvbSA4YjdjODA5YzQ0NTNjZTVhYTA5N2VhNWM4OTlmNGY4Nw==",
      "QUIT"
      ;

    has $.host;
    has $.port;
    has $.nl-in is rw = "\n";
    method new(:$host, :$port) {
        self.bless(:$host, :$port);
    }
    method get {
        return @server-send.shift;
    }
    method print($string is copy) {
        $string.subst-mutate(/\r\n$/,'');
        die "Bad client-send: $string" unless $string eq @server-get.shift;
    }
    method close { }
}

use Net::SMTP;

my $client = Net::SMTP.new(:server('foo.com'), :port(25), :hostname('clientdomain.com'), :socket(SMTPSocket));
ok $client ~~ Net::SMTP, "Created object";
ok $client.auth('user', 'pass', :methods("PLAIN", "LOGIN")), 'PLAIN auth';
ok $client.auth('user', 'pass', :methods("LOGIN")), 'LOGIN auth';
ok $client.auth('user@example.com', 'password', :methods("CRAM-MD5")), 'CRAM-MD5 auth';
ok $client.quit, "QUIT";

# vim: expandtab shiftwidth=4


