Add some comirror-specific tests

1 files changed, 46 insertions, 0 deletions

diff --git a/test/50-comirror.t b/test/50-comirror.t
new file mode 100755
index 0000000..3dc25b7
--- /dev/null
+++ b/test/50-comirror.t
@@ -0,0 +1,46 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.010;
+use Cwd;
+use Test::More tests => 26;
+use Test::Cmd;
+
+for my $next_type (qw/ loop none /) {
+
+	my $test = Test::Cmd->new( prog => 'bin/comirror', workdir => q{} );
+	my $cwd  = $test->workdir();
+
+	my $next_base = 'file://' . getcwd() . "/test/next-${next_type}";
+	my ($str, $exit);
+
+	ok($test, "Create Test::Cmd object ($next_type)");
+
+	$test->write('image_re', "${next_base}/.+");
+	$exit = $test->run(
+		chdir => $cwd,
+		args => "${next_base}/1.xhtml",
+	);
+
+	ok($exit == 0, 'First run: return 0');
+
+	isnt($test->stdout, q{}, 'First run: Non-empty stdout');
+	is  ($test->stderr, q{}, 'First run: Empty stderr');
+
+	$test->read(\$str, 'last_uri');
+	is($str, "${next_base}/4.xhtml", "Correct last_uri ($next_type)");
+
+	for my $i (1 .. 5) {
+		ok(-e "$cwd/$i.jpg",
+			"$i.jpg was downloaded successfully ($next_type)");
+	}
+
+	$exit = $test->run(
+		chdir => $cwd,
+	);
+
+	ok(($exit >> 8) == 1, 'Second run: return 1 (no new images loaded)');
+
+	isnt($test->stdout, q{}, 'Second run: Non-empty stdout');
+	is  ($test->stderr, q{}, 'Second run: Empty stderr');
+}