# Copyright (c) 2007-2012 Zmanda, Inc. All Rights Reserved.
# Copyright (c) 2013-2016 Carbonite, 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
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# 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: Carbonite Inc., 756 N Pastoria Ave
# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
use Test::More tests => 8;
use strict;
use warnings;
use lib '@amperldir@';
use Installcheck::Config;
use Installcheck::Dumpcache;
use Installcheck::Run qw(run run_get run_err $diskname);
use Amanda::Paths;
# set up debugging so debug output doesn't interfere with test results
Amanda::Debug::dbopen("installcheck");
Installcheck::log_test_output();
# and disable Debug's die() and warn() overrides
Amanda::Debug::disable_die_override();
my $testconf;
##
# First, try amgetconf out without a config
ok(!run('amcheckdump'),
"amcheckdump with no arguments returns an error exit status");
like($Installcheck::Run::stdout, qr/\AUSAGE:/i,
".. and gives usage message");
like(run_err('amcheckdump', 'this-probably-doesnt-exist'), qr(could not open conf file)i,
"run with non-existent config fails with an appropriate error message.");
##
# Now use a config with a vtape and without usetimestamps
$testconf = Installcheck::Run::setup();
$testconf->write();
ok(!run('amcheckdump', 'TESTCONF'),
"amcheckdump with a new config succeeds");
like($Installcheck::Run::stdout, qr(No matching dumps found)i,
"..but finds no dumps.");
##
# and check command-line handling
Installcheck::Dumpcache::load("basic");
like(run_get('amcheckdump', 'TESTCONF', '-oorg=installcheck'), qr(Validating),
"amcheckdump accepts '-o' options on the command line");
##
# Try with usetimestamps enabled
like(run_get('amcheckdump', 'TESTCONF'), qr(Validating),
"amcheckdump succeeds, claims to validate something (usetimestamps=yes)");
##
# now try zeroing out the dumps
my $vtape1 = Installcheck::Run::vtape_dir(1);
opendir(my $vtape_dir, $vtape1) || die "can't opendir $vtape1: $!";
my @dump1 = grep { /^0+1/ } readdir($vtape_dir);
closedir $vtape_dir;
for my $dumpfile (@dump1) {
open(my $dumpfh, "+<", "$vtape1/$dumpfile");
sysseek($dumpfh, 32768, 0); # jump past the header
syswrite($dumpfh, "\0" x 100); # and write some zeroes
close($dumpfh);
}
ok(!run('amcheckdump', 'TESTCONF'),
"amcheckdump detects a failure from a zeroed-out dumpfile");
Installcheck::Run::cleanup();