Imported Upstream version 3.3.3

[debian/amanda] / installcheck / Amanda_Changer_single.pl

diff --git a/installcheck/Amanda_Changer_single.pl b/installcheck/Amanda_Changer_single.pl
index f4b8f8329783ee6cf559ab7f2c00924f878b1f3e..606cffbff300e927d5c0e9b380518cef309a6e29 100644 (file)
--- a/installcheck/Amanda_Changer_single.pl
+++ b/installcheck/Amanda_Changer_single.pl
@@ -1,8 +1,9 @@
-# Copyright (c) 2005-2008 Zmanda Inc.  All Rights Reserved.
+# Copyright (c) 2008-2012 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 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
@@ -13,15 +14,17 @@
 # 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 Mathlida Ave, Suite 300
+# 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 Test::More tests => 6;
 use File::Path;
 use strict;
+use warnings;
 
 use lib "@amperldir@";
 use Installcheck::Config;
+use Installcheck::Changer;
 use Amanda::Paths;
 use Amanda::Device;
 use Amanda::Debug;
@@ -31,6 +34,7 @@ use Amanda::Changer;
 
 # 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();
@@ -44,48 +48,67 @@ if ($cfg_result != $CFGERR_OK) {
     die(join "\n", @errors);
 }
 
-my $chg = Amanda::Changer->new("chg-single:tape:/foo");
+my $chg = Amanda::Changer->new("chg-single:null:/foo");
+die "$chg" if $chg->isa("Amanda::Changer::Error");
 
 {
     my ($held_res);
     my ($get_info, $get_res, $got_res, $got_second_res);
 
-    $get_info = sub {
-        $chg->info(info_cb => $get_res, info => [ 'num_slots' ]);
-    };
+    $get_info = make_cb('get_info' => sub {
+        $chg->info(info_cb => $get_res, info => [ 'num_slots', 'fast_search' ]);
+    });
 
-    $get_res = sub {
+    $get_res = make_cb('get_res' => sub {
         my $err = shift;
         my %results = @_;
         die($err) if defined($err);
 
         is($results{'num_slots'}, 1, "info() returns the correct num_slots");
+        is($results{'fast_search'}, 0, "info() returns the correct fast_slots");
 
-       $chg->load(slot => "current",
+       $chg->load(relative_slot => "current",
                   res_cb => $got_res);
-    };
+    });
 
-    $got_res = sub {
+    $got_res = make_cb('got_res' => sub {
        my ($err, $res) = @_;
-       ok(!$err, "no error loading slot 'current'")
+       ok(!$err, "no error loading relative slot 'current'")
            or diag($err);
-       is($res->{'device_name'}, 'tape:/foo',
+       is($res->{'device'}->device_name(), 'null:/foo',
            "returns correct device name");
 
        $held_res = $res; # hang onto it while loading another slot
 
        $chg->load(label => "FOO!",
                   res_cb => $got_second_res);
-    };
+    });
 
-    $got_second_res = sub {
+    $got_second_res = make_cb('got_second_res' => sub {
        my ($err, $res) = @_;
-       ok($err, "second simultaneous reservation rejected");
+       chg_err_like($err,
+           { message => qr{'null:/foo' is already reserved},
+             type => 'failed',
+             reason => 'volinuse' },
+           "second simultaneous reservation rejected");
 
-       Amanda::MainLoop::quit();
-    };
+       # release the first reservation
+       $held_res->release(finished_cb => sub {
+           my ($err) = @_;
+           die $err if $err;
+
+           Amanda::MainLoop::quit();
+       });
+    });
 
     # start the loop
-    Amanda::MainLoop::call_later($get_info);
+    $get_info->();
     Amanda::MainLoop::run();
 }
+$chg->quit();
+
+$chg = Amanda::Changer->new("chg-single:bogus:device");
+is("$chg",
+    "chg-single: error opening device 'bogus:device': Device type bogus is not known.",
+    "bogus device name detected early");
+$chg->quit();