[mb2md] 02/04: Also check that the right amount of mails is in the converted maildirs
Axel Beckert
abe at deuxchevaux.org
Sun May 22 16:41:40 UTC 2016
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to branch master
in repository mb2md.
commit 68cfe1bbae86f937951124df471656e9add47800
Author: Axel Beckert <abe at deuxchevaux.org>
Date: Sun May 22 18:23:54 2016 +0200
Also check that the right amount of mails is in the converted maildirs
Gbp-Dch: Ignore
---
debian/tests/t/mb2md.t | 3 +++
1 file changed, 3 insertions(+)
diff --git a/debian/tests/t/mb2md.t b/debian/tests/t/mb2md.t
index 8b97fa3..42b5ca4 100755
--- a/debian/tests/t/mb2md.t
+++ b/debian/tests/t/mb2md.t
@@ -35,12 +35,14 @@ sub replace_prefix {
run_ok("$mb2md -s example.mbox -d example.maildir");
is(stdout, replace_prefix($output_template, $fakehome), 'Stdout as expected ($HOME)');
is(stderr, '', 'No stderr ($HOME)');
+is(0+path("$fakehome/example.maildir/cur")->children, 2, '2 mails in maildir ($HOME)');
# With absolute paths
run_ok("$mb2md -s $dir1/example.mbox -d $dir1/example.maildir");
is(stdout, replace_prefix($output_template, $dir1),
'Stdout as expected (/…)');
is(stderr, '', 'No stderr (/…)');
+is(0+path("$dir1/example.maildir/cur")->children, 2, '2 mails in maildir (/…)');
# With ./ prefix
my $cwd = cwd;
@@ -49,5 +51,6 @@ run_ok("$mb2md -s ./example.mbox -d ./example.maildir");
ok(chdir($cwd), "Change to directory back to '$cwd'.");
is(stdout, replace_prefix($output_template, '.'), 'Stdout as expected (./…)');
is(stderr, '', 'No stderr (./…)');
+is(0+path("$dir2/example.maildir/cur")->children, 2, '2 mails in maildir (./…)');
done_testing();
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/mb2md.git
More information about the Pkg-perl-cvs-commits
mailing list