tests/FAIBASE_TEST

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Faitest;
   6 package FAITEST;
   7
   8 setup_test();
   9 #  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
  10 # now comes the test itself
  11
  12 my $dev = &getDevByMount("/target/home");
  13 &checkE2fsAttribute($dev,"Filesystem volume name","home");
  14 &checkE2fsAttribute($dev,"Maximum mount count","-1");
  15 &checkE2fsAttribute($dev,"Check interval","0 (<none>)");
  16
  17 exit printresult();
  18 #  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
  19 __END__
  20
  21 =head1 NAME
  22
  23 FAIBASE_TEST - regression test for setup-storage disk layout FAIBASE
  24
  25 =head1 SYNOPSIS
  26
  27 FAIBASE_TEST checks some important aspects of setup-storage. The
  28 disk_config/FAIBASE tunes some filesystem parameters upon creation. We
  29 check only the last partition since we expect prior errors to make
  30 creation of the last partition fail.
  31
  32  Options:
  33  -help          simple help
  34  -verbose=n     increase verbosity of test script
  35
  36 =head1 OPTIONS
  37
  38 =over 8
  39
  40 =item B<-help>
  41 simple help
  42
  43 =item B<-verbose>
  44 increase verbosity of test script