git.gag.com Git - debian/amanda/blob - installcheck/amvault.pl

   1 # Copyright (c) 2010 Zmanda, Inc.  All Rights Reserved.
   2 #
   3 # This program is free software; you can redistribute it and/or modify it
   4 # under the terms of the GNU General Public License version 2 as published
   5 # by the Free Software Foundation.
   6 #
   7 # This program is distributed in the hope that it will be useful, but
   8 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   9 # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  10 # for more details.
  11 #
  12 # You should have received a copy of the GNU General Public License along
  13 # with this program; if not, write to the Free Software Foundation, Inc.,
  14 # 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  15 #
  16 # Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
  17 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
  18
  19 use Test::More tests => 11;
  20 use strict;
  21 use warnings;
  22
  23 use lib "@amperldir@";
  24 use File::Path;
  25 use Data::Dumper;
  26 use Installcheck;
  27 use Installcheck::Dumpcache;
  28 use Installcheck::Config;
  29 use Installcheck::Mock;
  30 use Installcheck::Run qw(run run_err run_get $diskname);
  31 use Amanda::DB::Catalog;
  32 use Amanda::Paths;
  33 use Amanda::Config qw( :init );
  34 use Amanda::Changer;
  35 use Amanda::Debug;
  36
  37 Amanda::Debug::dbopen("installcheck");
  38
  39 my $vtape_root = "$Installcheck::TMP/tertiary";
  40 sub setup_chg_disk {
  41     rmtree $vtape_root if -d $vtape_root;
  42     mkpath "$vtape_root/slot1";
  43     return "chg-disk:$vtape_root";
  44 }
  45
  46 # set up a basic dump
  47 Installcheck::Dumpcache::load("basic");
  48
  49 config_init($CONFIG_INIT_EXPLICIT_NAME, "TESTCONF");
  50 my ($cfgerr_level, @cfgerr_errors) = config_errors();
  51 if ($cfgerr_level >= $CFGERR_WARNINGS) {
  52     config_print_errors();
  53     die "config errors";
  54 }
  55
  56 # and then set up a new vtape to vault onto
  57 my $tertiary_chg = setup_chg_disk();
  58
  59 # try a few failures first
  60 like(run_err("$sbindir/amvault",
  61                 '--autolabel=any',
  62                 '--label-template', "TESTCONF%%",
  63                 '--src-timestamp', 'latest',
  64                 '--dst-changer', $tertiary_chg,
  65                 'TESTCONF', 'someotherhost'),
  66     qr/No dumps to vault/,
  67     "amvault with a non-matching dumpspec dumps nothing")
  68     or diag($Installcheck::Run::stderr);
  69
  70 like(run_err("$sbindir/amvault",
  71                 '--autolabel=any',
  72                 '--label-template', "TESTCONF%%",
  73                 '--src-timestamp', 'latest',
  74                 '--fulls-only',
  75                 '--dst-changer', $tertiary_chg,
  76                 'TESTCONF', '*', '*', '*', '1-3'),
  77     qr/No dumps to vault/,
  78     "amvault with --fulls-only but specifying non-full dumpspecs dumps nothing")
  79     or diag($Installcheck::Run::stderr);
  80
  81 like(run_err("$sbindir/amvault",
  82                 '--autolabel=any',
  83                 '--label-template', "TESTCONF%%",
  84                 '--dst-changer', $tertiary_chg,
  85                 'TESTCONF'),
  86     qr/specify something to select/,
  87     "amvault without any limiting factors is an error"),
  88     or diag($Installcheck::Run::stderr);
  89
  90 # now a successful vaulting
  91 ok(run("$sbindir/amvault",
  92                 '--autolabel=any',
  93                 '--label-template', "TESTCONF%%",
  94                 '--src-timestamp', 'latest',
  95                 '--dst-changer', $tertiary_chg,
  96                 'TESTCONF'),
  97     "amvault runs!")
  98     or diag($Installcheck::Run::stderr);
  99
 100 my @tert_files = glob("$vtape_root/slot1/0*");
 101 ok(@tert_files > 0,
 102     "..and files appear on the tertiary volume!");
 103
 104 my @dumps = Amanda::DB::Catalog::sort_dumps([ 'write_timestamp' ],
 105         Amanda::DB::Catalog::get_dumps());
 106
 107 is(scalar @dumps, 2,
 108     "now there are two dumps in the catalog");
 109
 110 sub summarize {
 111     my ($dump) = @_;
 112     return {
 113         map { $_ => $dump->{$_} }
 114             qw(diskname hostname level dump_timestamp kb orig_kb)
 115     };
 116 }
 117 is_deeply(summarize($dumps[1]), summarize($dumps[0]),
 118     "and they match in all the right ways")
 119     or diag(Dumper(@dumps));
 120
 121 # clean up the tertiary vtapes before moving on
 122 rmtree $vtape_root;
 123 Installcheck::Run::cleanup();
 124
 125 # try the multi dump, to get a better idea of the filtering possibilities
 126 Installcheck::Dumpcache::load("multi");
 127 config_init($CONFIG_INIT_EXPLICIT_NAME, "TESTCONF");
 128 ($cfgerr_level, @cfgerr_errors) = config_errors();
 129 if ($cfgerr_level >= $CFGERR_WARNINGS) {
 130     config_print_errors();
 131     die "config errors";
 132 }
 133
 134 sub get_dry_run {
 135     my $stdout = run_get(@_);
 136     if (!$stdout) {
 137         diag($Installcheck::Run::stderr);
 138         return 'run-failed';
 139     }
 140
 141     my @rv;
 142     for my $line (split /\n/, $stdout) {
 143         next if ($line =~ /^Total Size:/);
 144         my ($tape, $file, $host, $disk, $datestamp, $level) =
 145             ($line =~ /^(\S+) (\d*) (\S+) (.+) (\d+) (\d+)$/);
 146         $tape = 'holding' if $file eq '';
 147         push @rv, [$tape, $file, $host, $disk,   $level]; # note: no datestamp
 148     }
 149     return @rv;
 150 }
 151
 152 is_deeply([ get_dry_run("$sbindir/amvault",
 153                 '--dry-run',
 154                 '--autolabel=any',
 155                 '--label-template', "TESTCONF%%",
 156                 '--fulls-only',
 157                 '--dst-changer', $tertiary_chg,
 158                 'TESTCONF') ], [
 159     [ "TESTCONF01", "1", "localhost", "$diskname/dir", "0" ],
 160     [ "TESTCONF01", "2", "localhost", "$diskname",     "0" ],
 161     [ "TESTCONF02", "2", "localhost", "$diskname",     "0" ]
 162     ], "amvault with --fulls-only only dumps fulls");
 163
 164 is_deeply([ get_dry_run("$sbindir/amvault",
 165                 '--dry-run',
 166                 '--autolabel=any',
 167                 '--label-template', "TESTCONF%%",
 168                 '--dst-changer', $tertiary_chg,
 169                 'TESTCONF', "localhost", "$diskname/dir") ], [
 170     [ "holding", "",     "localhost", "$diskname/dir",     "1" ],
 171     [ "TESTCONF01", "1", "localhost", "$diskname/dir",     "0" ],
 172     [ "TESTCONF02", "1", "localhost", "$diskname/dir",     "1" ]
 173     ], "amvault with a disk expression dumps only that disk");
 174
 175 # Test NDMP-to-NDMP vaulting.  This will test all manner of goodness:
 176 #  - specifying a named changer on the amvault command line
 177 #  - exporting
 178 #  - directtcp vaulting (well, not really, since we don't support connecting yet)
 179 SKIP: {
 180     skip "not built with ndmp and server", 2 unless
 181         Amanda::Util::built_with_component("ndmp") and Amanda::Util::built_with_component("server");
 182
 183     Installcheck::Dumpcache::load("ndmp");
 184
 185     my $ndmp = Installcheck::Mock::NdmpServer->new(no_reset => 1);
 186     $ndmp->edit_config();
 187
 188     # append a tertiary changer to the config file - it's just too hard to
 189     # specify a full ndmp changer on the command line
 190
 191     my $ndmp_port = $ndmp->{'port'};
 192     my $chg_dir = "$Installcheck::TMP/vtapes/ndmjob-tert";
 193     my $chg_spec = "chg-ndmp:127.0.0.1:$ndmp_port\@$chg_dir";
 194     my $drive_root = "ndmp:127.0.0.1:$ndmp_port\@$chg_dir";
 195
 196     -d $chg_dir && rmtree($chg_dir);
 197     mkpath($chg_dir);
 198
 199     my $amanda_conf_filename = "$CONFIG_DIR/TESTCONF/amanda.conf";
 200     open(my $fh, ">>", $amanda_conf_filename);
 201     print $fh <<EOF;
 202 define changer "tertiary" {
 203     tpchanger "$chg_spec"
 204     property        "tape-device" "0=$drive_root/drive0"
 205     property append "tape-device" "1=$drive_root/drive1"
 206     changerfile "$chg_dir-changerfile"
 207 }
 208 EOF
 209
 210     $tertiary_chg = "tertiary";
 211     ok(run("$sbindir/amvault",
 212                     '--export',
 213                     '--autolabel=any',
 214                     '--label-template', "TESTCONF%%",
 215                     '--src-timestamp', 'latest',
 216                     '--dst-changer', $tertiary_chg,
 217                     'TESTCONF'),
 218         "amvault runs with an NDMP device as secondary and tertiary, with --export")
 219         or diag($Installcheck::Run::stderr);
 220
 221     config_init($CONFIG_INIT_EXPLICIT_NAME, "TESTCONF");
 222     ($cfgerr_level, @cfgerr_errors) = config_errors();
 223     if ($cfgerr_level >= $CFGERR_WARNINGS) {
 224         config_print_errors();
 225         die "config errors";
 226     }
 227
 228     # query the tertiary changer to see where that dump ended up
 229     my $chg = Amanda::Changer->new($tertiary_chg);
 230     my $inventory;
 231     my $inventory_cb = sub {
 232         my ($err, $inv) = @_;
 233         die "$err" if $err;
 234
 235         $inventory = $inv;
 236         Amanda::MainLoop::quit();
 237     };
 238     Amanda::MainLoop::call_later(sub { $chg->inventory(inventory_cb => $inventory_cb); });
 239     Amanda::MainLoop::run();
 240
 241     # find TESTCONF02 in the inventory, and check that it is in an i/e slot
 242     my $notfound = "tertiary volume not found";
 243     for my $i (@$inventory) {
 244         if ($i->{'label'} && $i->{'label'} eq 'TESTCONF02') {
 245             if ($i->{'import_export'}) {
 246                 $notfound = undef;
 247             } else {
 248                 $notfound = "tertiary volume not properly exported";
 249             }
 250             #last;
 251         }
 252     }
 253
 254     ok(!$notfound, "tertiary volume exists and was properly exported");
 255     if ($notfound) {
 256         diag($notfound);
 257         diag("amvault stderr:");
 258         diag($Installcheck::Run::stderr);
 259     }
 260
 261 }
 262
 263 # clean up
 264 Installcheck::Run::cleanup();