X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=installcheck%2FAmanda_Taper_Scan_lexical.pl;fp=installcheck%2FAmanda_Taper_Scan_lexical.pl;h=f6200f3580356de803a7542128035db0ec095f56;hb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;hp=0000000000000000000000000000000000000000;hpb=011a59f5a54864108a16af570a6b287410597cc2;p=debian%2Famanda

diff --git a/installcheck/Amanda_Taper_Scan_lexical.pl b/installcheck/Amanda_Taper_Scan_lexical.pl
new file mode 100644
index 0000000..f6200f3
--- /dev/null
+++ b/installcheck/Amanda_Taper_Scan_lexical.pl
@@ -0,0 +1,545 @@
+# 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 => 27;
+use File::Path;
+use Data::Dumper;
+use strict;
+use warnings;
+
+use lib "@amperldir@";
+use Installcheck;
+use Installcheck::Config;
+use Installcheck::Changer;
+use Amanda::Device qw( :constants );
+use Amanda::Debug;
+use Amanda::MainLoop;
+use Amanda::Config qw( :init :getconf config_dir_relative );
+use Amanda::Changer;
+use Amanda::Taper::Scan;
+
+# 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 $taperoot = "$Installcheck::TMP/Amanda_Taper_Scan_lexical";
+my $tapelist_filename = "$Installcheck::TMP/tapelist";
+`cat /dev/null > $Installcheck::TMP/tapelist`;
+my $tapelist = Amanda::Tapelist->new($tapelist_filename);
+
+# vtape support
+my %slot_label;
+
+sub reset_taperoot {
+    my ($nslots) = @_;
+
+    if (-d $taperoot) {
+	rmtree($taperoot);
+    }
+    mkpath($taperoot);
+
+    for my $slot (1 .. $nslots) {
+	mkdir("$taperoot/slot$slot")
+	    or die("Could not mkdir: $!");
+    }
+
+    # clear out the tapefile
+    open(my $fh, ">", $tapelist_filename) or die("opening tapelist_filename: $!");
+    %slot_label = ();
+}
+
+sub label_slot {
+    my ($slot, $label, $stamp, $reuse, $update_tapelist) = @_;
+
+    my $drivedir = "$taperoot/tmp";
+    -d $drivedir and rmtree($drivedir);
+    mkpath($drivedir);
+    symlink("$taperoot/slot$slot", "$drivedir/data");
+
+    my $dev = Amanda::Device->new("file:$drivedir");
+    die $dev->error_or_status() unless $dev->status == $DEVICE_STATUS_SUCCESS;
+
+    if (defined $label){
+	if (!$dev->start($ACCESS_WRITE, $label, $stamp)) {
+	    die $dev->error_or_status();
+	}
+    } else {
+	$dev->erase();
+    }
+
+    rmtree($drivedir);
+
+    if ($update_tapelist) {
+	if (exists $slot_label{$slot}) {
+	    $tapelist->remove_tapelabel($slot_label{$slot});
+	    delete $slot_label{$slot};
+	}
+	# tapelist uses '0' for new tapes; devices use 'X'..
+	$stamp = '0' if ($stamp eq 'X');
+	$reuse = $reuse ne 'no-reuse';
+	$tapelist->remove_tapelabel($label);
+	$tapelist->add_tapelabel($stamp, $label, "", $reuse);
+	$tapelist->write();
+	$slot_label{$slot} = $label;
+	#open(my $fh, ">>", $tapelist_filename) or die("opening tapelist_filename: $!");
+	#print $fh "$stamp $label $reuse\n";
+	#close($fh);
+    }
+}
+
+# run the mainloop around a scan
+sub run_scan {
+    my ($ts) = @_;
+    my ($error, $res, $label, $mode);
+
+    my $result_cb = make_cb(result_cb => sub {
+	($error, $res, $label, $mode) = @_;
+
+	$error = "$error" if defined $error;
+	if ($res) {
+	    $res->release(finished_cb => sub {
+		Amanda::MainLoop::quit();
+	    });
+	} else {
+	    Amanda::MainLoop::quit();
+	}
+    });
+
+    $ts->scan(result_cb => $result_cb);
+    Amanda::MainLoop::run();
+    return $error, $label, $mode;
+}
+
+# set the current slot on the changer
+sub set_current_slot {
+    my ($slot) = @_;
+
+    unlink("$taperoot/data");
+    symlink("slot$slot", "$taperoot/data");
+}
+
+# set up and load a config
+my $testconf = Installcheck::Config->new();
+$testconf->add_param("tapelist", "\"$tapelist\"");
+$testconf->add_param("labelstr", "\"TEST-[0-9]+\"");
+$testconf->write();
+my $cfg_result = config_init($CONFIG_INIT_EXPLICIT_NAME, 'TESTCONF');
+if ($cfg_result != $CFGERR_OK) {
+    my ($level, @errors) = Amanda::Config::config_errors();
+    die(join "\n", @errors);
+}
+
+reset_taperoot(6);
+$tapelist->clear_tapelist();
+$tapelist->write();
+label_slot(1, "TEST-10", "20090424173011", "reuse", 1);
+label_slot(2, "TEST-20", "20090424173022", "reuse", 1);
+label_slot(3, "TEST-30", "20090424173033", "reuse", 1);
+
+my $chg;
+my $taperscan;
+my @results;
+
+# set up a lexical taperscan
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist);
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 4,
+    changer => $chg);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ "No acceptable volumes found", undef, undef ],
+	  "no reusable tapes -> error")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist);
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 3,
+    changer => $chg);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-10", $ACCESS_WRITE ],
+	  "finds the best reusable tape")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist);
+set_current_slot(2);
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 1,
+    changer => $chg);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-10", $ACCESS_WRITE ],
+	  "finds the first reusable tape")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+label_slot(4, "TEST-40", "20090424173030", "reuse", 1);
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist);
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 1,
+    changer => $chg);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "finds the first reusable tape")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+label_slot(4, "TEST-40", "X", "reuse", 1);
+label_slot(5, "TEST-35", "X", "reuse", 1);
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist);
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 2,
+    changer => $chg);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-35", $ACCESS_WRITE ],
+	  "finds the first reusable tape")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot",
+			tapelist => $tapelist,
+			autolabel => { 'template'     => "TEST-%0",
+			               'empty'        => 1,
+			               'volume_error' => 1});
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 2,
+    changer => $chg);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-50", $ACCESS_WRITE ],
+	  "labels new tapes in blank slots")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot",
+			tapelist => $tapelist);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+# simulate "amlabel"
+label_slot(1, "TEST-60", "X", "reuse", 1);
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 2,
+    changer => $chg);
+set_current_slot(2);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-35", $ACCESS_WRITE ],
+	  "scans for volumes, even with a newly labeled volume available")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+# test new_labeled with autolabel
+reset_taperoot(5);
+$tapelist->clear_tapelist();
+$tapelist->write();
+label_slot(1, "TEST-10", "20090424173011", "reuse", 1);
+label_slot(2, "TEST-20", "20090424173033", "reuse", 1);
+label_slot(4, "TEST-30", "20090424173022", "reuse", 1);
+label_slot(3, "TEST-15", "X", "reuse", 1);
+label_slot(5, "TEST-25", "X", "reuse", 1);
+set_current_slot(2);
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist,
+			     autolabel => { 'template'     => "TEST-%0",
+					    'empty'        => 1,
+					    'volume_error' => 1});
+set_current_slot(1);
+
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 1,
+    changer => $chg);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'soon';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-25", $ACCESS_WRITE ],
+	  "autolabel soon")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-25", $ACCESS_WRITE ],
+	  "autolabel order")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'last';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-30", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+# test new_labeled with autolabel
+reset_taperoot(5);
+$tapelist->clear_tapelist();
+$tapelist->write();
+label_slot(1, "TEST-10", "20090424173011", "reuse", 1);
+label_slot(2, "TEST-20", "20090424173033", "reuse", 1);
+label_slot(4, "TEST-30", "20090424173022", "reuse", 1);
+label_slot(3, "TEST-15", "X", "reuse", 1);
+set_current_slot(2);
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist,
+			     autolabel => { 'template'     => "TEST-%0",
+					    'empty'        => 1,
+					    'volume_error' => 1});
+set_current_slot(1);
+
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 1,
+    changer => $chg);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'soon';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-15", $ACCESS_WRITE ],
+	  "autolabel soon")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-30", $ACCESS_WRITE ],
+	  "autolabel order")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'last';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-30", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-30", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+# test new_labeled with autolabel
+reset_taperoot(5);
+$tapelist->clear_tapelist();
+$tapelist->write();
+label_slot(1, "TEST-10", "20090424173011", "reuse", 1);
+label_slot(2, "TEST-20", "20090424173022", "reuse", 1);
+label_slot(4, "TEST-30", "20090424173033", "reuse", 1);
+label_slot(3, "TEST-15", "X", "reuse", 1);
+set_current_slot(2);
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist,
+			     autolabel => { 'template'     => "TEST-%0",
+					    'empty'        => 1,
+					    'volume_error' => 1});
+set_current_slot(1);
+
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 1,
+    changer => $chg);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'soon';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-15", $ACCESS_WRITE ],
+	  "autolabel soon")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel order")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'last';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-10", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+# test new_volume with autolabel
+reset_taperoot(5);
+$tapelist->clear_tapelist();
+$tapelist->write();
+label_slot(1, "TEST-10", "20090424173011", "reuse", 1);
+label_slot(2, "TEST-20", "20090424173033", "reuse", 1);
+label_slot(4, "TEST-30", "20090424173022", "reuse", 1);
+set_current_slot(2);
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist,
+			     autolabel => { 'template'     => "TEST-%0",
+					    'empty'        => 1,
+					    'volume_error' => 1});
+set_current_slot(1);
+
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 1,
+    changer => $chg);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'soon';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel soon")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-30", $ACCESS_WRITE ],
+	  "autolabel order")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'last';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-30", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist,
+			     autolabel => { 'template'     => "TEST-%0",
+					    'empty'        => 1,
+					    'volume_error' => 1});
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 4,
+    changer => $chg);
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'soon';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'soon';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel soon")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'order';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'order';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel order")
+	  or diag(Dumper(\@results));
+
+$taperscan->{'scan_conf'}->{'new_labeled'} = 'last';
+$taperscan->{'scan_conf'}->{'new_volume'} = 'last';
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-40", $ACCESS_WRITE ],
+	  "autolabel last")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+# test skipping no-reuse tapes
+reset_taperoot(5);
+$tapelist->clear_tapelist();
+$tapelist->write();
+label_slot(1, "TEST-1", "20090424173001", "no-reuse", 1);
+label_slot(2, "TEST-2", "20090424173002", "reuse", 1);
+label_slot(3, "TEST-3", "20090424173003", "reuse", 1);
+label_slot(4, "TEST-4", "20090424173004", "reuse", 1);
+
+$chg = Amanda::Changer->new("chg-disk:$taperoot", tapelist => $tapelist);
+set_current_slot(1);
+
+$taperscan = Amanda::Taper::Scan->new(
+    tapelist  => $tapelist,
+    algorithm => "lexical",
+    tapecycle => 2,
+    tapecycle => 1,
+    changer => $chg);
+@results = run_scan($taperscan);
+is_deeply([ @results ],
+	  [ undef, "TEST-2", $ACCESS_WRITE ],
+	  "skips a no-reuse volume")
+	  or diag(Dumper(\@results));
+$taperscan->quit();
+
+rmtree($taperoot);
+unlink($tapelist);