1 # Copyright (c) Zmanda Inc. All Rights Reserved.
3 # This program is free software; you can redistribute it and/or modify it
4 # under the terms of the GNU General Public License version 2 as published
5 # by the Free Software Foundation.
7 # This program is distributed in the hope that it will be useful, but
8 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
9 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
12 # You should have received a copy of the GNU General Public License along
13 # with this program; if not, write to the Free Software Foundation, Inc.,
14 # 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
16 # Contact information: Zmanda Inc, 465 S. Mathilda Ave., Suite 300
17 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
19 use Test::More tests => 35;
25 use lib "@amperldir@";
27 use Installcheck::Config;
28 use Installcheck::Changer;
31 use Amanda::Config qw( :init :getconf config_dir_relative );
32 use Amanda::Taper::Scan;
34 # set up debugging so debug output doesn't interfere with test results
35 Amanda::Debug::dbopen("installcheck");
36 Installcheck::log_test_output();
38 # and disable Debug's die() and warn() overrides
39 Amanda::Debug::disable_die_override();
41 my $tapelist_filename = "$Installcheck::TMP/tapelist";
42 my $tapelist = Amanda::Tapelist->new($tapelist_filename);
45 open(my $fh, ">", $tapelist_filename) or die("opening '$tapelist_filename': $!");
50 # we use a "traditional" Amanda::Taper::Scan object, only because instantiating
51 # the parent class alone is difficult. We never call scan(), so traditional's
52 # methods are never invoked in this test.
53 my $taperscan = Amanda::Taper::Scan->new(
54 algorithm => "traditional",
55 changer => undef, # (not used)
56 tapelist => $tapelist,
57 tapecycle => 1, # will be changed periodically below
58 labelstr => "TEST-[0-9]",
59 autolabel => { 'template' => "TEST-%",
65 20090424173001 TEST-1 reuse
66 20090424173002 TEST-2 reuse
67 20090424173003 TEST-3 reuse
68 20090424173004 TEST-4 reuse
70 $taperscan->read_tapelist();
72 $taperscan->{'tapecycle'} = 2;
73 is($taperscan->oldest_reusable_volume(new_label_ok => 1), "TEST-1",
74 "simple tapelist, tapecycle = 2: oldest_resuable_volume correct");
75 ok( $taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 1), " TEST-1 reusable");
76 ok( $taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 1), " TEST-2 reusable");
77 ok( $taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 1), " TEST-3 reusable");
78 ok(!$taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 1), " TEST-4 not reusable");
80 $taperscan->{'tapecycle'} = 3;
81 is($taperscan->oldest_reusable_volume(new_label_ok => 1), "TEST-1",
82 "simple tapelist, tapecycle = 3: oldest_resuable_volume correct");
83 ok( $taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 1), " TEST-1 reusable");
84 ok( $taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 1), " TEST-2 reusable");
85 ok(!$taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 1), " TEST-3 not reusable");
86 ok(!$taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 1), " TEST-4 not reusable");
88 $taperscan->{'tapecycle'} = 5;
89 is($taperscan->oldest_reusable_volume(new_label_ok => 1), undef,
90 "simple tapelist, tapecycle = 5: oldest_resuable_volume correct (undef)");
91 ok(!$taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 1), " TEST-1 not reusable");
92 ok(!$taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 1), " TEST-2 not reusable");
93 ok(!$taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 1), " TEST-3 not reusable");
94 ok(!$taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 1), " TEST-4 not reusable");
97 20090424173001 TEST-1 no-reuse
98 20090424173002 TEST-2 reuse
99 20090424173003 TEST-3 reuse
100 20090424173004 TEST-4 reuse
102 $taperscan->read_tapelist();
104 $taperscan->{'tapecycle'} = 2;
105 is($taperscan->oldest_reusable_volume(new_label_ok => 1), "TEST-2",
106 "no-reuse in tapelist, tapecycle = 2: oldest_resuable_volume correct");
107 ok(!$taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 1), " TEST-1 not reusable");
108 ok( $taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 1), " TEST-2 reusable");
109 ok( $taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 1), " TEST-3 reusable");
110 ok(!$taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 1), " TEST-4 not reusable");
112 $taperscan->{'tapecycle'} = 4;
113 is($taperscan->oldest_reusable_volume(new_label_ok => 1), undef,
114 "no-reuse in tapelist, tapecycle = 3: oldest_resuable_volume correct (undef)");
115 ok(!$taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 1), " TEST-1 not reusable");
116 ok(!$taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 1), " TEST-2 not reusable");
117 ok(!$taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 1), " TEST-3 not reusable");
118 ok(!$taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 1), " TEST-4 not reusable");
121 20090424173001 TEST-1 reuse
122 20090424173002 TEST-2 reuse
123 20090424173003 TEST-3 reuse
126 $taperscan->read_tapelist();
128 $taperscan->{'tapecycle'} = 3;
129 is($taperscan->oldest_reusable_volume(new_label_ok => 1), "TEST-4",
130 "newly labeled in tapelist, tapecycle = 3, new_label_ok: oldest_resuable_volume correct");
131 ok( $taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 1), " TEST-1 reusable");
132 ok(!$taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 1), " TEST-2 not reusable");
133 ok(!$taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 1), " TEST-3 not reusable");
134 ok( $taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 1), " TEST-4 reusable");
136 $taperscan->{'tapecycle'} = 3;
137 is($taperscan->oldest_reusable_volume(new_label_ok => 0), "TEST-1",
138 "newly labeled in tapelist, tapecycle = 3, !new_label_ok: oldest_resuable_volume correct");
139 ok( $taperscan->is_reusable_volume(label => "TEST-1", new_label_ok => 0), " TEST-1 reusable");
140 ok(!$taperscan->is_reusable_volume(label => "TEST-2", new_label_ok => 0), " TEST-2 not reusable");
141 ok(!$taperscan->is_reusable_volume(label => "TEST-3", new_label_ok => 0), " TEST-3 not reusable");
142 ok(!$taperscan->is_reusable_volume(label => "TEST-4", new_label_ok => 0), " TEST-4 not reusable");