-# Copyright (c) 2005-2008 Zmanda Inc. All Rights Reserved.
+# Copyright (c) 2008, 2009, 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
# 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;
# 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();
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();