Merge branch 'master' into squeeze

[debian/amanda] / installcheck / amflush.pl

diff --git a/installcheck/amflush.pl b/installcheck/amflush.pl
new file mode 100644 (file)
index 0000000..526b92e
--- /dev/null
+++ b/installcheck/amflush.pl
@@ -0,0 +1,95 @@
+# Copyright (c) 2010 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. Mathilda Ave., Suite 300
+# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
+
+use Test::More tests => 4;
+use strict;
+use warnings;
+
+use lib "@amperldir@";
+use File::Path;
+use Data::Dumper;
+use Installcheck;
+use Installcheck::Config;
+use Installcheck::Run qw(run run_err $diskname);
+use Amanda::Paths;
+use Amanda::Header;
+use Amanda::Debug;
+
+Amanda::Debug::dbopen("installcheck");
+
+my $testconf;
+my $vtape_dir;
+
+# write a fake holding file to holding disk, for amflush to flush
+sub write_holding_file {
+    my ($host, $disk) = @_;
+
+    my $datestamp = "20100102030405";
+    my $filename = "$Installcheck::Run::holdingdir/$datestamp/$host-somefile";
+
+    my $hdr = Amanda::Header->new();
+    $hdr->{'type'} = $Amanda::Header::F_DUMPFILE;
+    $hdr->{'datestamp'} = $datestamp;
+    $hdr->{'dumplevel'} = 0;
+    $hdr->{'name'} = $host;
+    $hdr->{'disk'} = $disk;
+    $hdr->{'program'} = "INSTALLCHECK";
+
+    mkpath($Installcheck::Run::holdingdir);
+    mkpath("$Installcheck::Run::holdingdir/$datestamp");
+    open(my $fh, ">", $filename) or die("opening '$filename': $!");
+    print $fh $hdr->to_string(32768,32768);
+    print $fh "some data!\n";
+    close($fh);
+}
+
+Installcheck::Run::cleanup();
+$testconf = Installcheck::Run::setup();
+$testconf->add_param("autolabel", '"TESTCONF%%" any');
+$testconf->add_dle("localhost $diskname installcheck-test");
+$testconf->write();
+
+# add a holding file that's in the disklist
+write_holding_file("localhost", $Installcheck::Run::diskname);
+
+ok(run("$sbindir/amflush", '-f', '-b', 'TESTCONF'),
+    "amflush runs successfully")
+    or diag($Installcheck::Run::stderr);
+
+# check that there's a vtape file where we expect to see one
+$vtape_dir = Installcheck::Run::vtape_dir(1);
+ok(<$vtape_dir/00001.*>, "..and dump appears on vtapes");
+
+Installcheck::Run::cleanup();
+$testconf = Installcheck::Run::setup();
+$testconf->add_param("autolabel", '"TESTCONF%%" any');
+# don't add anything to the disklist; it should still flush it
+$testconf->write();
+
+# add a holding file that's not in the disklist
+write_holding_file("localhost", $Installcheck::Run::diskname);
+
+ok(run("$sbindir/amflush", '-f', '-b', 'TESTCONF'),
+    "amflush runs successfully")
+    or diag($Installcheck::Run::stderr);
+
+# check that there's a vtape file where we expect to see one
+$vtape_dir = Installcheck::Run::vtape_dir(1);
+ok(<$vtape_dir/00001.*>, "..and dump appears on vtapes");
+
+#Installcheck::Run::cleanup();