From 1932c998cac488d6ba27789fea56bcf3a554a35c Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 4 Mar 2011 12:22:22 +0100
Subject: Switch from Makefile to Build.PL

---
 test/50-comirror.t | 59 ------------------------------------------------------
 1 file changed, 59 deletions(-)
 delete mode 100755 test/50-comirror.t

(limited to 'test/50-comirror.t')

diff --git a/test/50-comirror.t b/test/50-comirror.t
deleted file mode 100755
index 8ccb334..0000000
--- a/test/50-comirror.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.010;
-use Cwd;
-use Test::More tests => 26;
-use Test::Cmd;
-
-sub check_key {
-	my ($test, $filetype, $key, $value) = @_;
-	my @lines;
-	$test->read(\@lines, "comirror.${filetype}");
-
-	if(grep { $_ eq "$key\t$value\n" } @lines) {
-		pass("${filetype}: ${key} = ${value}");
-	}
-	else {
-		fail("${filetype}: ${key} = ${value}");
-	}
-}
-
-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('comirror.conf', "image_re\t${next_base}/.+\n");
-
-	$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');
-
-	check_key($test, 'state', 'uri', "${next_base}/4.xhtml");
-
-	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');
-}
-- 
cgit v1.2.3