X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=installcheck%2FAmanda_Changer_disk.pl;h=e88d214b0b72b679ce67454679b4c6885b0b6346;hb=949b8910a5e23c4285d0b1aedacfc82a14dc97a5;hp=2b6b3fb3e27b6c383f1389a82e29517ab6847ed2;hpb=011a59f5a54864108a16af570a6b287410597cc2;p=debian%2Famanda diff --git a/installcheck/Amanda_Changer_disk.pl b/installcheck/Amanda_Changer_disk.pl index 2b6b3fb..e88d214 100644 --- a/installcheck/Amanda_Changer_disk.pl +++ b/installcheck/Amanda_Changer_disk.pl @@ -1,4 +1,4 @@ -# Copyright (c) 2008, 2009, 2010 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 @@ -16,7 +16,7 @@ # Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com -use Test::More tests => 18; +use Test::More tests => 19; 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"); +is($chg->have_inventory(), '1', "changer have inventory"); sub test_reserved { my ($finished_cb, @slots) = @_; @@ -421,4 +422,5 @@ Amanda::MainLoop::run(); Amanda::MainLoop::run(); } +$chg->quit(); rmtree($taperoot);