1 # Copyright (c) 2010-2012 Zmanda, Inc. All Rights Reserved.
3 # This program is free software; you can redistribute it and/or
4 # modify it under the terms of the GNU General Public License
5 # as published by the Free Software Foundation; either version 2
6 # of the License, or (at your option) any later version.
8 # This program is distributed in the hope that it will be useful, but
9 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
10 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 # You should have received a copy of the GNU General Public License along
14 # with this program; if not, write to the Free Software Foundation, Inc.,
15 # 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 # Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
18 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
20 use Test::More tests => 11;
24 use lib "@amperldir@";
28 use Installcheck::Dumpcache;
29 use Installcheck::Config;
30 use Installcheck::Mock;
31 use Installcheck::Run qw(run run_err run_get $diskname);
32 use Amanda::DB::Catalog;
34 use Amanda::Config qw( :init );
38 Amanda::Debug::dbopen("installcheck");
40 my $vtape_root = "$Installcheck::TMP/tertiary";
42 rmtree $vtape_root if -d $vtape_root;
43 mkpath "$vtape_root/slot1";
44 return "chg-disk:$vtape_root";
48 Installcheck::Dumpcache::load("basic");
50 config_init($CONFIG_INIT_EXPLICIT_NAME, "TESTCONF");
51 my ($cfgerr_level, @cfgerr_errors) = config_errors();
52 if ($cfgerr_level >= $CFGERR_WARNINGS) {
53 config_print_errors();
57 # and then set up a new vtape to vault onto
58 my $tertiary_chg = setup_chg_disk();
60 # try a few failures first
61 like(run_err("$sbindir/amvault",
63 '--label-template', "TESTCONF%%",
64 '--src-timestamp', 'latest',
65 '--dst-changer', $tertiary_chg,
66 'TESTCONF', 'someotherhost'),
67 qr/No dumps to vault/,
68 "amvault with a non-matching dumpspec dumps nothing")
69 or diag($Installcheck::Run::stderr);
71 like(run_err("$sbindir/amvault",
73 '--label-template', "TESTCONF%%",
74 '--src-timestamp', 'latest',
76 '--dst-changer', $tertiary_chg,
77 'TESTCONF', '*', '*', '*', '1-3'),
78 qr/No dumps to vault/,
79 "amvault with --fulls-only but specifying non-full dumpspecs dumps nothing")
80 or diag($Installcheck::Run::stderr);
82 like(run_err("$sbindir/amvault",
84 '--label-template', "TESTCONF%%",
85 '--dst-changer', $tertiary_chg,
87 qr/specify something to select/,
88 "amvault without any limiting factors is an error"),
89 or diag($Installcheck::Run::stderr);
91 # now a successful vaulting
92 ok(run("$sbindir/amvault",
94 '--label-template', "TESTCONF%%",
95 '--src-timestamp', 'latest',
96 '--dst-changer', $tertiary_chg,
99 or diag($Installcheck::Run::stderr);
100 my @tert_files = glob("$vtape_root/slot1/0*");
102 "..and files appear on the tertiary volume!");
104 my @dumps = Amanda::DB::Catalog::sort_dumps([ 'write_timestamp' ],
105 Amanda::DB::Catalog::get_dumps());
108 "now there are two dumps in the catalog");
113 map { $_ => $dump->{$_} }
114 qw(diskname hostname level dump_timestamp kb orig_kb)
117 is_deeply(summarize($dumps[1]), summarize($dumps[0]),
118 "and they match in all the right ways")
119 or diag(Dumper(@dumps));
121 # clean up the tertiary vtapes before moving on
123 Installcheck::Run::cleanup();
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();
135 my $stdout = run_get(@_);
137 diag($Installcheck::Run::stderr);
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
152 is_deeply([ get_dry_run("$sbindir/amvault",
155 '--label-template', "TESTCONF%%",
157 '--dst-changer', $tertiary_chg,
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");
164 is_deeply([ get_dry_run("$sbindir/amvault",
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");
175 # Test NDMP-to-NDMP vaulting. This will test all manner of goodness:
176 # - specifying a named changer on the amvault command line
178 # - directtcp vaulting (well, not really, since we don't support connecting yet)
180 skip "not built with ndmp and server", 2 unless
181 Amanda::Util::built_with_component("ndmp") and Amanda::Util::built_with_component("server");
183 Installcheck::Dumpcache::load("ndmp");
185 my $ndmp = Installcheck::Mock::NdmpServer->new(no_reset => 1);
186 $ndmp->edit_config();
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
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";
196 -d $chg_dir && rmtree($chg_dir);
199 my $amanda_conf_filename = "$CONFIG_DIR/TESTCONF/amanda.conf";
200 open(my $fh, ">>", $amanda_conf_filename);
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"
210 $tertiary_chg = "tertiary";
211 ok(run("$sbindir/amvault",
214 '--label-template', "TESTCONF%%",
215 '--src-timestamp', 'latest',
216 '--dst-changer', $tertiary_chg,
218 "amvault runs with an NDMP device as secondary and tertiary, with --export")
219 or diag($Installcheck::Run::stderr);
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();
228 # query the tertiary changer to see where that dump ended up
229 my $chg = Amanda::Changer->new($tertiary_chg);
231 my $inventory_cb = sub {
232 my ($err, $inv) = @_;
236 Amanda::MainLoop::quit();
238 Amanda::MainLoop::call_later(sub { $chg->inventory(inventory_cb => $inventory_cb); });
239 Amanda::MainLoop::run();
242 # find TESTCONF02 in the inventory, and check that it is in an i/e slot
243 my $notfound = "tertiary volume not found";
244 for my $i (@$inventory) {
245 if ($i->{'label'} && $i->{'label'} eq 'TESTCONF02') {
246 if ($i->{'import_export'}) {
249 $notfound = "tertiary volume not properly exported";
255 ok(!$notfound, "tertiary volume exists and was properly exported");
258 diag("amvault stderr:");
259 diag($Installcheck::Run::stderr);
265 Installcheck::Run::cleanup();