Imported Upstream version 3.3.2

[debian/amanda] / installcheck / Amanda_Changer.pl

diff --git a/installcheck/Amanda_Changer.pl b/installcheck/Amanda_Changer.pl
index ce3dbab57f7ad84032ef0e3e1dfe343b0644c277..416586591c0eabd2239fa8f5e6a35d5fa8349d10 100644 (file)
--- a/installcheck/Amanda_Changer.pl
+++ b/installcheck/Amanda_Changer.pl
@@ -1,4 +1,4 @@
-# Copyright (c) 2007, 2008, 2009, 2010 Zmanda, Inc.  All Rights Reserved.
+# Copyright (c) 2007-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
@@ -256,7 +256,8 @@ my $chg = Amanda::Changer->new("mychanger", tapelist => $tl);
 is($chg->{'config'}->get_property("testprop"), "testval",
     "changer properties are correctly represented");
 is($chg->have_inventory(), 1, "changer have inventory");
-is($chg->make_new_tape_label(), undef, "no make_new_tape_label");
+my @new_tape_label = $chg->make_new_tape_label();
+is_deeply(\@new_tape_label, [undef, "template is not set, you must set autolabel"], "no make_new_tape_label");
 is($chg->make_new_meta_label(), undef, "no make_new_meta_label");
 
 $chg = Amanda::Changer->new("mychanger", tapelist => $tl,