Imported Upstream version 2.6.1

[debian/amanda] / installcheck / amservice.pl

diff --git a/installcheck/amservice.pl b/installcheck/amservice.pl
new file mode 100644 (file)
index 0000000..27d1df2
--- /dev/null
+++ b/installcheck/amservice.pl
@@ -0,0 +1,105 @@
+# Copyright (c) 2005-2008 Zmanda Inc.  All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License version 2 as published
+# by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+#
+# Contact information: Zmanda Inc, 465 S Mathlida Ave, Suite 300
+# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
+
+use Test::More tests => 3;
+
+use lib "@amperldir@";
+use Installcheck::Run qw( run run_get );
+use Amanda::Paths;
+use Amanda::Constants;
+
+my $input_filename = "$AMANDA_TMPDIR/amservice_input.txt";
+my $testconf = Installcheck::Run::setup();
+my $input;
+
+sub write_input_file {
+    my ($contents) = @_;
+    open my $fh, ">", $input_filename
+       or die("Could not write to $input_filename");
+    print $fh $contents;
+    close $fh;
+}
+
+sub all_lines_ok {
+    my ($output) = @_;
+    my $ok = 1;
+
+    return 0 if not $output;
+
+    for (split /\n/, $output) {
+       next if /^OPTIONS /;
+       next if /^OK /;
+       diag "Got unexpected line: $_";
+       $ok = 0;
+    }
+
+    return $ok;
+}
+
+# a simple run of amservice to begin with
+like(run_get('amservice', '-f', '/dev/null', 'localhost', 'local', 'noop'),
+    qr/^OPTIONS features=/,
+    "amservice runs noop successfully");
+
+$input = <<EOF;
+<dle>
+  <program>GNUTAR</program>
+  <disk>$AMANDA_TMPDIR</disk>
+</dle>
+EOF
+
+SKIP: {
+    skip "GNUTAR not installed", 1 unless $Amanda::Constants::GNUTAR;
+    write_input_file($input);
+    ok(all_lines_ok(
+       run_get('amservice', '-f', $input_filename, 'localhost', 'local', 'selfcheck')),
+       "GNUTAR program selfchecks successfully");
+}
+
+# (can't test DUMP, since we don't have a device)
+
+$input = <<EOF;
+<dle>
+  <program>APPLICATION</program>
+  <backup-program>
+    <plugin>amgtar</plugin>
+  </backup-program>
+  <disk>$AMANDA_TMPDIR</disk>
+</dle>
+EOF
+
+SKIP: {
+    skip "GNUTAR not installed", 1 unless $Amanda::Constants::GNUTAR;
+    write_input_file($input);
+    ok(all_lines_ok(
+       run_get('amservice', '-f', $input_filename, 'localhost', 'local', 'selfcheck')),
+       "amgtar application selfchecks successfully");
+}
+
+$input = <<EOF;
+<dle>
+  <program>APPLICATION</program>
+  <backup-program>
+    <plugin>amstar</plugin>
+  </backup-program>
+  <disk>$AMANDA_TMPDIR</disk>
+</dle>
+EOF
+
+Installcheck::Run::cleanup();
+unlink($input_filename);