Imported Upstream version 3.3.0

[debian/amanda] / installcheck / Amanda_Disklist.pl

diff --git a/installcheck/Amanda_Disklist.pl b/installcheck/Amanda_Disklist.pl
index 278d83d33925c87272b7700bd0be73f5031282bb..4d649349703c08ac2ef7c5fd8ea5ebaf01a74c6a 100644 (file)
--- a/installcheck/Amanda_Disklist.pl
+++ b/installcheck/Amanda_Disklist.pl
@@ -1,4 +1,4 @@
-# Copyright (c) 2008 Zmanda, Inc.  All Rights Reserved.
+# Copyright (c) 2008, 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
@@ -17,6 +17,8 @@
 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
 
 use Test::More tests => 13;
+use strict;
+use warnings;
 
 use lib "@amperldir@";
 use Amanda::Config qw( :init :getconf );
@@ -55,7 +57,7 @@ my ($x, $d, @list);
 
 $x = Amanda::Disklist::get_host("otherbox");
 ok($x, "get_host returns a host");
-is($x->{'auth'}, 'BSD', "..host has correct auth");
+is($x->{'auth'}, 'BSDTCP', "..host has correct auth");
 is_deeply([ sort @{$x->{'disks'}} ],
          [ sort "/disk1", "/disk2", "/home" ],
          "..and three disks");