git.gag.com Git - debian/amanda/blob - installcheck/Amanda_Cmdline.pl

   1 # Copyright (c) 2005-2008 Zmanda Inc.  All Rights Reserved.
   2 #
   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.
   6 #
   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
  10 # for more details.
  11 #
  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
  15 #
  16 # Contact information: Zmanda Inc, 465 S Mathlida Ave, Suite 300
  17 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
  18
  19 use Test::More tests => 24;
  20
  21 use lib "@amperldir@";
  22 use Amanda::Paths;
  23 use Amanda::Cmdline;
  24
  25 # convert a dumpspec_t object to an array, for easy is_deeply() comparisons
  26 sub ds2av {
  27     my ($ds) = @_;
  28     return (
  29         $ds->{'host'},
  30         $ds->{'disk'},
  31         $ds->{'datestamp'},
  32         $ds->{'level'},
  33     );
  34 }
  35
  36 # test dumpspec_t objects
  37
  38 is_deeply([ ds2av(Amanda::Cmdline::dumpspec_t->new("h", "di", "ds", "l")) ],
  39           [ "h", "di", "ds", "l" ],
  40           "dumpspec_t constructor returns a valid dumpspec");
  41
  42 is_deeply([ ds2av(Amanda::Cmdline::dumpspec_t->new("h", "di", "ds", undef)) ],
  43           [ "h", "di", "ds", undef ],
  44           "dumpspec_t constructor returns a valid dumpspec with only 3 args");
  45
  46 is_deeply([ ds2av(Amanda::Cmdline::dumpspec_t->new("h", "di", undef, undef)) ],
  47           [ "h", "di", undef, undef ],
  48           "dumpspec_t constructor returns a valid dumpspec with only 2 args");
  49
  50 is_deeply([ ds2av(Amanda::Cmdline::dumpspec_t->new("h", undef, undef, undef)) ],
  51           [ "h", undef, undef, undef ],
  52           "dumpspec_t constructor returns a valid dumpspec with only 1 arg");
  53
  54 # TODO: test parse_dumpspecs
  55 my @specs;
  56
  57 @specs = Amanda::Cmdline::parse_dumpspecs(["h1", "d1", "h2", "d2"], 0);
  58 is(@specs, 2, "parse of four elements with no flags yields 2 specs");
  59 is_deeply([ ds2av($specs[0]) ], [ "h1", "d1", undef, undef ], "..first spec is correct");
  60 is_deeply([ ds2av($specs[1]) ], [ "h2", "d2", undef, undef ], "..second spec is correct");
  61
  62 @specs = Amanda::Cmdline::parse_dumpspecs(["h1", "d1", "ds1", "h2", "d2", "ds2" ], $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP);
  63 is(@specs, 2, "parse of six elements with CMDLINE_PARSE_DATESTAMP yields 2 specs");
  64 is_deeply([ ds2av($specs[0]) ], [ "h1", "d1", "ds1", undef ], "..first spec is correct");
  65 is_deeply([ ds2av($specs[1]) ], [ "h2", "d2", "ds2", undef ], "..second spec is correct");
  66
  67 @specs = Amanda::Cmdline::parse_dumpspecs(["h1", "d1", "ds1", "lv1", "h2", "d2", "ds2", "lv2" ],
  68                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL);
  69 is(@specs, 2, "parse of eight elements with CMDLINE_PARSE_DATESTAMP and CMDLINE_PARSE_LEVEL yields 2 specs");
  70 is_deeply([ ds2av($specs[0]) ], [ "h1", "d1", "ds1", "lv1" ], "..first spec is correct");
  71 is_deeply([ ds2av($specs[1]) ], [ "h2", "d2", "ds2", "lv2" ], "..second spec is correct");
  72
  73 @specs = Amanda::Cmdline::parse_dumpspecs(["h1", "d1", "ds1", "lv1" ],
  74                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL);
  75 is(@specs, 1, "parse of four elements with CMDLINE_PARSE_DATESTAMP and CMDLINE_PARSE_LEVEL yields one spec");
  76 is_deeply([ ds2av($specs[0]) ], [ "h1", "d1", "ds1", "lv1" ], "..which is correct");
  77
  78 @specs = Amanda::Cmdline::parse_dumpspecs(["h1", "d1", "ds1" ],
  79                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL);
  80 is(@specs, 1, "parse of three elements with CMDLINE_PARSE_DATESTAMP and CMDLINE_PARSE_LEVEL yields one spec");
  81 is_deeply([ ds2av($specs[0]) ], [ "h1", "d1", "ds1", undef ], "..which is correct");
  82
  83 @specs = Amanda::Cmdline::parse_dumpspecs(["h1", "d1" ],
  84                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL);
  85 is(@specs, 1, "parse of two elements with CMDLINE_PARSE_DATESTAMP and CMDLINE_PARSE_LEVEL yields one spec");
  86 is_deeply([ ds2av($specs[0]) ], [ "h1", "d1", undef, undef ], "..which is correct");
  87
  88 @specs = Amanda::Cmdline::parse_dumpspecs(["h1" ],
  89                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL);
  90 is(@specs, 1, "parse of one element with CMDLINE_PARSE_DATESTAMP and CMDLINE_PARSE_LEVEL yields one spec");
  91 is_deeply([ ds2av($specs[0]) ], [ "h1", undef, undef, undef ], "..which is correct");
  92
  93 @specs = Amanda::Cmdline::parse_dumpspecs([],
  94                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL);
  95 is(@specs, 0, "parse of no elements with CMDLINE_PARSE_DATESTAMP and CMDLINE_PARSE_LEVEL yields no specs");
  96
  97 @specs = Amanda::Cmdline::parse_dumpspecs([],
  98                 $Amanda::Cmdline::CMDLINE_PARSE_DATESTAMP | $Amanda::Cmdline::CMDLINE_PARSE_LEVEL
  99                 | $Amanda::Cmdline::CMDLINE_EMPTY_TO_WILDCARD);
 100 is(@specs, 1, "parse of no elements with CMDLINE_EMPTY_TO_WILDCARD yields one spec");
 101
 102 # test format_dumpspec_components
 103
 104 is(Amanda::Cmdline::format_dumpspec_components("h", "di", "ds", "l"),
 105    "h di ds l",
 106    "format_dumpspec_components works ok");