cpan/CPANPLUS-Dist-Build/t/01_CPANPLUS-Dist-Build-Constants.t

   1 ### make sure we can find our conf.pl file
   2 BEGIN {
   3     use FindBin;
   4     require "$FindBin::Bin/inc/conf.pl";
   5 }
   6
   7
   8
   9 BEGIN { chdir 't' if -d 't' };
  10
  11 ### this is to make devel::cover happy ###
  12 BEGIN {
  13     use File::Spec;
  14     require lib;
  15     for (qw[../lib inc]) {
  16         my $l = 'lib'; $l->import(File::Spec->rel2abs($_))
  17     }
  18 }
  19
  20 use strict;
  21 use Test::More 'no_plan';
  22
  23 my $Class = 'CPANPLUS::Dist::Build::Constants';
  24
  25
  26 use_ok( $Class );
  27
  28 for my $name ( qw[BUILD BUILD_DIR] ) {
  29
  30     my $sub = $Class->can( $name );
  31     ok( $sub,                   "$Class can $name" );
  32     ok( $sub->(),               "   $name called OK" );
  33 }