-# 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
# Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
-use Test::More tests => 20;
+use Test::More tests => 24;
use strict;
+use warnings;
use lib "@amperldir@";
use Installcheck::Config;
use Amanda::Tapelist;
use Amanda::Config qw( :init :getconf config_dir_relative );
+use POSIX ":sys_wait_h";
+
+# put the debug messages somewhere
+Amanda::Debug::dbopen("installcheck");
+Installcheck::log_test_output();
my $tl;
my $tl_ok;
);
mktapelist($tapelist, @lines);
-$tl = Amanda::Tapelist::read_tapelist($tapelist);
-$tl_ok = is_deeply($tl, [
+$tl = Amanda::Tapelist->new($tapelist);
+$tl_ok = is_deeply($tl, {
+ filename => $tapelist,
+ lockname => $tapelist . ".lock",
+ tles => [
{ 'datestamp' => '20071111010002', 'label' => 'TESTCONF004',
'reuse' => 1, 'position' => 1, 'comment' => undef },
{ 'datestamp' => '20071110010002', 'label' => 'TESTCONF003',
'reuse' => 1, 'position' => 3, 'comment' => 'comment 2' },
{ 'datestamp' => '20071108010001', 'label' => 'TESTCONF001',
'reuse' => '', 'position' => 4, 'comment' => 'comment 1' },
-], "A simple tapelist is parsed correctly");
+] }, "A simple tapelist is parsed correctly");
SKIP: {
skip "Tapelist is parsed incorrectly, so these tests are unlikely to work", 15,
"lookup_tapedate returns undef on an unknown datestamp");
# try some edits
- $tl->add_tapelabel("20080112010203", "TESTCONF007", "seven");
- is(scalar @$tl, 5, "add_tapelabel adds a new element to the tapelist");
+ $tl->add_tapelabel("20080112010203", "TESTCONF007", "seven", 1);
+ is(scalar @{$tl->{'tles'}}, 5, "add_tapelabel adds a new element to the tapelist");
is_deeply($tl->lookup_tapepos(1),
{ 'datestamp' => '20080112010203', 'label' => 'TESTCONF007',
'reuse' => 1, 'position' => 1, 'comment' => 'seven' },
".. lookup_tapedate finds it");
+ # try some edits
+ $tl->add_tapelabel("20080112010204", "TESTCONF008", "eight", 0);
+ is(scalar @{$tl->{'tles'}}, 6, "add_tapelabel adds a new element to the tapelist no-reuse");
+
+ is_deeply($tl->lookup_tapelabel("TESTCONF008"),
+ { 'datestamp' => '20080112010204', 'label' => 'TESTCONF008',
+ 'reuse' => 0, 'position' => 1, 'comment' => 'eight' },
+ ".. lookup_tapelabel finds it no-reuse");
+
+ $tl->remove_tapelabel("TESTCONF008");
+ is(scalar @{$tl->{'tles'}}, 5, "remove_tapelabel removes an element from the tapelist, no-reuse");
+
$tl->remove_tapelabel("TESTCONF002");
- is(scalar @$tl, 4, "remove_tapelabel removes an element from the tapelist");
+ is(scalar @{$tl->{'tles'}}, 4, "remove_tapelabel removes an element from the tapelist");
is_deeply($tl->lookup_tapepos(4), # used to be in position 5
{ 'datestamp' => '20071108010001', 'label' => 'TESTCONF001',
);
mktapelist($tapelist, @lines);
-$tl = Amanda::Tapelist::read_tapelist($tapelist);
-is_deeply($tl, [
+$tl = Amanda::Tapelist->new($tapelist);
+is_deeply($tl, {
+ filename => $tapelist,
+ lockname => $tapelist . ".lock",
+ tles => [
{ 'datestamp' => '2006123456', 'label' => 'FOO',
'reuse' => 1, 'position' => 1, 'comment' => undef },
-], "Invalid lines are ignored");
+] }, "Invalid lines are ignored");
# make sure clear_tapelist is empty
-$tl = Amanda::Tapelist::clear_tapelist();
-is_deeply($tl, [ ], "clear_tapelist returns an empty tapelist");
+$tl->clear_tapelist();
+is_deeply($tl, { filename => $tapelist,
+ lockname => $tapelist . ".lock",
+ tles => [] }, "clear_tapelist returns an empty tapelist");
+
+$tl->reload();
+is_deeply($tl, {
+ filename => $tapelist,
+ lockname => $tapelist . ".lock",
+ tles => [
+ { 'datestamp' => '2006123456', 'label' => 'FOO',
+ 'reuse' => 1, 'position' => 1, 'comment' => undef },
+] }, "reload works");
+