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.1
[debian/amanda]
/
installcheck
/
Amanda_Changer_null.pl
diff --git
a/installcheck/Amanda_Changer_null.pl
b/installcheck/Amanda_Changer_null.pl
index dad5e8a3aed6370495e8246ec7216e51cd8bc3d1..50a98c190bf889deaf169f635a7405eadc69fbc0 100644
(file)
--- a/
installcheck/Amanda_Changer_null.pl
+++ b/
installcheck/Amanda_Changer_null.pl
@@
-1,4
+1,4
@@
-# Copyright (c) 2009 Zmanda, Inc. All Rights Reserved.
+# Copyright (c) 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
#
# 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
@@
-16,9
+16,10
@@
# 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 =>
4
;
+use Test::More tests =>
5
;
use File::Path;
use strict;
use File::Path;
use strict;
+use warnings;
use lib "@amperldir@";
use Installcheck::Config;
use lib "@amperldir@";
use Installcheck::Config;
@@
-47,6
+48,7
@@
if ($cfg_result != $CFGERR_OK) {
}
my $chg = Amanda::Changer->new("chg-null:");
}
my $chg = Amanda::Changer->new("chg-null:");
+is($chg->have_inventory(), '', "changer have inventory");
{
my ($get_info, $check_info, $do_load, $got_res);
{
my ($get_info, $check_info, $do_load, $got_res);
@@
-104,3
+106,5
@@
my $chg = Amanda::Changer->new("chg-null:");
$try_eject->();
Amanda::MainLoop::run();
}
$try_eject->();
Amanda::MainLoop::run();
}
+
+$chg->quit();