use strict;
use Test::More;
use lib qw(./lib ./blib/lib);
use Sisimai::Reason;

my $PackageName = 'Sisimai::Reason';
my $MethodNames = {
    'class' => [ 'get' ],
    'object' => [],
};

use_ok $PackageName;
can_ok $PackageName, @{ $MethodNames->{'class'} };

MAKE_TEST: {
    is $PackageName->get, undef;
    is $PackageName->anotherone, undef;

    use Sisimai::Mail;
    use Sisimai::Message;
    use Sisimai::Data;
    my $mailbox = Sisimai::Mail->new('eg/maildir-as-a-sample/new/sendmail-01.eml');

    while( my $r = $mailbox->read ) {
        my $o = Sisimai::Message->new( 'data' => $r );
        my $v = Sisimai::Data->make( 'data' => $o );
        isa_ok $v, 'ARRAY';

        for my $e ( @$v ) {
            isa_ok $e, 'Sisimai::Data';
            is $e->reason, 'userunknown';
        }
    }
}

done_testing;


use strict;
use Test::More;
use lib qw(./lib ./blib/lib);
use Sisimai::Reason;

my $PackageName = 'Sisimai::Reason';
my $MethodNames = {
    'class' => [ 'get', 'retry' ],
    'object' => [],
};

use_ok $PackageName;
can_ok $PackageName, @{ $MethodNames->{'class'} };

MAKE_TEST: {
    is $PackageName->get, undef;
    is $PackageName->anotherone, undef;

    use Sisimai::Mail;
    use Sisimai::Message;
    use Sisimai::Data;
    my $mailbox = Sisimai::Mail->new('eg/maildir-as-a-sample/new/sendmail-01.eml');

    while( my $r = $mailbox->read ) {
        my $o = Sisimai::Message->new( 'data' => $r );
        my $v = Sisimai::Data->make( 'data' => $o );
        isa_ok $v, 'ARRAY';

        for my $e ( @$v ) {
            isa_ok $e, 'Sisimai::Data';
            is $e->reason, 'userunknown';
        }
    }
}

done_testing;


Add test code for retry() method
Add test code for retry() method
