X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fspamcheck_spamc.t;h=ab46d62b79d2e26c8381051b509190bf68248175;hb=502297d2cda95376b38e7d510f1d34fe89a3ec0e;hp=edfacc62ddef895f0e240dc6347b707f7985ad08;hpb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;p=public-inbox.git
diff --git a/t/spamcheck_spamc.t b/t/spamcheck_spamc.t
index edfacc62..ab46d62b 100644
--- a/t/spamcheck_spamc.t
+++ b/t/spamcheck_spamc.t
@@ -1,9 +1,9 @@
-# Copyright (C) 2016-2020 all contributors
+# Copyright (C) 2016-2021 all contributors
# License: AGPL-3.0+
use strict;
use warnings;
use Test::More;
-use Email::Simple;
+use PublicInbox::Eml;
use IO::File;
use Fcntl qw(:DEFAULT SEEK_SET);
use PublicInbox::TestCommon;
@@ -28,19 +28,19 @@ Subject: test
Message-ID:
EOF
-ok($spamc->spamcheck(Email::Simple->new($src), \$dst), 'Email::Simple works');
+ok($spamc->spamcheck(PublicInbox::Eml->new($src), \$dst), 'PublicInbox::Eml works');
is($dst, $src, 'input == output');
$dst = '';
$spamc->{checkcmd} = ['sh', '-c', 'cat; false'];
-ok(!$spamc->spamcheck(Email::Simple->new($src), \$dst), 'Failed check works');
+ok(!$spamc->spamcheck(PublicInbox::Eml->new($src), \$dst), 'Failed check works');
is($dst, $src, 'input == output for spammy example');
for my $l (qw(ham spam)) {
my $file = "$tmpdir/$l.out";
$spamc->{$l.'cmd'} = ['tee', $file ];
my $method = $l.'learn';
- ok($spamc->$method(Email::Simple->new($src)), "$method OK");
+ ok($spamc->$method(PublicInbox::Eml->new($src)), "$method OK");
open my $fh, '<', $file or die "failed to open $file: $!";
is(eval { local $/, <$fh> }, $src, "$l command ran alright");
}