xt: add fsck script over over.sqlite3

[public-inbox.git] / xt / net_writer-imap.t

diff --git a/xt/net_writer-imap.t b/xt/net_writer-imap.t
index ec8f80d1444f6e1dd2f798ef3bf6a1592c4d6eef..f12280908b94daaef996e26a759f2e995453dd03 100644 (file)
--- a/xt/net_writer-imap.t
+++ b/xt/net_writer-imap.t
@@ -19,7 +19,8 @@ require_mods('Mail::IMAPClient');
 require_ok 'PublicInbox::NetWriter';
 my $host = (split(/\./, hostname))[0];
 my ($base) = ($0 =~ m!\b([^/]+)\.[^\.]+\z!);
-my $folder = "INBOX.$base-$host-".strftime('%Y%m%d%H%M%S', gmtime(time)).
+my $SEP = $ENV{IMAP_SEPARATOR} || '.';
+my $folder = "INBOX$SEP$base-$host-".strftime('%Y%m%d%H%M%S', gmtime(time)).
                "-$$-".sprintf('%x', int(rand(0xffffffff)));
 my $nwr = PublicInbox::NetWriter->new;
 chop($imap_url) if substr($imap_url, -1) eq '/';
@@ -239,6 +240,10 @@ EOM
        lei_ok qw(q m:forwarded@test.example.com);
        is_deeply(json_utf8->decode($lei_out)->[0]->{kw}, ['forwarded'],
                'forwarded kw imported from IMAP');
+
+       lei_ok qw(q m:testmessage --no-external -o), $folder_url;
+       lei_ok qw(up), $folder_url;
+       lei_ok qw(up --all=remote);
 });
 
 undef $cleanup; # remove temporary folder