projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 3.3.0
[debian/amanda]
/
installcheck
/
Amanda_Changer_disk.pl
diff --git
a/installcheck/Amanda_Changer_disk.pl
b/installcheck/Amanda_Changer_disk.pl
index 2b6b3fb3e27b6c383f1389a82e29517ab6847ed2..c5b144baf4c0e1d48784d185a8d2e184bd35abbf 100644
(file)
--- a/
installcheck/Amanda_Changer_disk.pl
+++ b/
installcheck/Amanda_Changer_disk.pl
@@
-16,7
+16,7
@@
# Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
# Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
-use Test::More tests => 1
8
;
+use Test::More tests => 1
9
;
use File::Path;
use strict;
use warnings;
use File::Path;
use strict;
use warnings;
@@
-84,6
+84,7
@@
chg_err_like($chg,
$chg = Amanda::Changer->new("chg-disk:$taperoot");
die($chg) if $chg->isa("Amanda::Changer::Error");
$chg = Amanda::Changer->new("chg-disk:$taperoot");
die($chg) if $chg->isa("Amanda::Changer::Error");
+is($chg->have_inventory(), '1', "changer have inventory");
sub test_reserved {
my ($finished_cb, @slots) = @_;
sub test_reserved {
my ($finished_cb, @slots) = @_;
@@
-421,4
+422,5
@@
Amanda::MainLoop::run();
Amanda::MainLoop::run();
}
Amanda::MainLoop::run();
}
+$chg->quit();
rmtree($taperoot);
rmtree($taperoot);