1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
use v5.22;
use warnings;
use utf8;
use Test::More;
use JSON::PP 'decode_json';
no warnings 'experimental::smartmatch';
my $EXTRACT = {
perl_mail_box => 'perl lib/JWebmail/Model/Driver/QMailAuthuser/Extract.pm ',
rust_maildir => 'extract/target/debug/jwebmail-extract',
}->{perl_mail_box};
my $MAILDIR = 't/';
my $SYS_USER = $ENV{USER};
my $MAIL_USER = 'maildir';
my $PROG = "$EXTRACT $MAILDIR $SYS_USER $MAIL_USER";
subtest start => sub {
my @res = `$PROG invalid`;
is($? >> 8, 3);
is @res, 1;
my $result = decode_json $res[0];
ok($result->{error})
};
subtest folders => sub {
my @res = `$PROG folders`;
is($? >> 8, 0);
is @res, 1;
my $result = decode_json $res[0];
is(@$result, 2);
ok($_ ~~ ['SUB.FOLDER', 'SENT']) for @$result;
};
subtest count => sub {
my @res = `$PROG count ''`;
is($? >> 8, 0);
is @res, 1;
my $result = decode_json $res[0];
is($result->{count}, 2);
#is($result->{new}, 0);
};
subtest list => sub {
my @res = `$PROG list 0 10 date ''`;
is($? >> 8, 0);
is @res, 1;
my $result = decode_json $res[0];
is(@$result, 2);
ok($result->[0]{mid});
ok($result->[0]{from});
ok($result->[0]{to});
};
subtest read => sub {
my @pre_res = `$PROG list 0 10 date ''`;
is($? >> 8, 0);
is @pre_res, 1;
my $pre_result = decode_json $pre_res[0];
ok(my $mid = $pre_result->[0]{mid});
my @res = `$PROG read-mail '$mid'`;
is($? >> 8, 0);
is @res, 1;
my $result = decode_json $res[0];
is($result->{from}, 'test');
};
done_testing;
|
