-# 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
# 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 );
$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");