t/10_base.t

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 8;
   7 use Test::NoWarnings;
   8
   9 BEGIN {
  10     use_ok ("Config::Perl::V");
  11     }
  12
  13 ok (my $conf = Config::Perl::V::myconfig,       "Read config");
  14 for (qw( build environment config inc )) {
  15     ok (exists $conf->{build},                  "Has build entry");
  16     }
  17 is (lc $conf->{build}{osname}, lc $conf->{config}{osname}, "osname");