[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