Refactor and fix current test cases.
[matthijs/upstream/blosxom.git] / t / 05_plugin_list.t
diff --git a/t/05_plugin_list.t b/t/05_plugin_list.t
deleted file mode 100644 (file)
index 5e4e952..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-# blosxom $plugin_list testing
-
-use strict;
-use Test::More tests => 1;
-use Test::Differences;
-use Cwd;
-use IO::File;
-
-my $blosxom_root = 'plugin_list';
-$blosxom_root = "t/$blosxom_root" if -d "t/$blosxom_root";
-$blosxom_root = cwd . "/$blosxom_root";
-die "cannot find root '$blosxom_root'" 
-  unless -d $blosxom_root;
-
-my $blosxom_config_dir = "$blosxom_root/config";
-die "cannot find blosxom config dir '$blosxom_config_dir'" unless -d $blosxom_config_dir;
-$ENV{BLOSXOM_CONFIG_DIR} = $blosxom_config_dir;
-
-my $blosxom_cgi = "$blosxom_root/../../blosxom.cgi";
-die "cannot find blosxom.cgi '$blosxom_cgi'" unless -f $blosxom_cgi;
-die "blosxom.cgi '$blosxom_cgi' is not executable" unless -x $blosxom_cgi;
-
-my $fh = IO::File->new("$blosxom_root/expected.html", 'r')
-  or die "cannot open expected output file '$blosxom_root/expected.html': $!";
-my $expected;
-{
-  local $/ = undef;
-  $expected = <$fh>;
-  $fh->close;
-}
-
-my $output = qx($blosxom_cgi);
-
-eq_or_diff($output, $expected, 'html output ok');
-