t/steps/gen/config_h-01.t

   1 #! perl
   2 # Copyright (C) 2007-2009, Parrot Foundation.
   3 # $Id$
   4 # gen/config_h-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 11;
   9 use Carp;
  10 use Cwd;
  11 use File::Temp qw( tempdir );
  12 use lib qw( lib );
  13 use_ok('config::gen::config_h');
  14 use Parrot::Configure::Options qw( process_options );
  15 use Parrot::Configure::Step::Test;
  16 use Parrot::Configure::Test qw(
  17     test_step_constructor_and_description
  18 );
  19 use Parrot::Configure::Utils qw( _slurp );
  20
  21 ########## regular ##########
  22
  23 my ($args, $step_list_ref) = process_options(
  24     {
  25         argv => [ ],
  26         mode => q{configure},
  27     }
  28 );
  29
  30 my $conf = Parrot::Configure::Step::Test->new;
  31 $conf->include_config_results( $args );
  32
  33 my $serialized = $conf->pcfreeze();
  34
  35 my $pkg = q{gen::config_h};
  36 $conf->add_steps($pkg);
  37 $conf->options->set( %{$args} );
  38 my $step = test_step_constructor_and_description($conf);
  39 ok(-f $step->{templates}->{config_h}, "Template for config_h located");
  40 ok(-f $step->{templates}->{feature_h}, "Template for feature_h located");
  41 ok(-f $step->{templates}->{has_header_h}, "Template for has_header_h located");
  42
  43 $conf->replenish($serialized);
  44
  45 ($args, $step_list_ref) = process_options( {
  46     argv => [ q{--define=inet_aton} ],
  47     mode => q{configure},
  48 } );
  49 $conf->add_steps($pkg);
  50 $conf->options->set( %{$args} );
  51 $step = test_step_constructor_and_description($conf);
  52
  53 pass("Completed all tests in $0");
  54
  55 ################### DOCUMENTATION ###################
  56
  57 =head1 NAME
  58
  59 gen/config_h-01.t - test gen::config_h
  60
  61 =head1 SYNOPSIS
  62
  63     % prove t/steps/gen/config_h-01.t
  64
  65 =head1 DESCRIPTION
  66
  67 The files in this directory test functionality used by F<Configure.pl>.
  68
  69 The tests in this file test configuration step gen::config_h.  Since this step
  70 is primarily concerned with printing to files based on reading certain source
  71 files and reading data stored in the Parrot::Configure object over the course
  72 of configuration, no complete simulation by a test file is feasible.  We
  73 therefore content ourselves with seeing whether the source files needed by the
  74 step can be located.
  75
  76 =head1 AUTHOR
  77
  78 James E Keenan
  79
  80 =head1 SEE ALSO
  81
  82 config::gen::config_h, F<Configure.pl>.
  83
  84 =cut
  85
  86 # Local Variables:
  87 #   mode: cperl
  88 #   cperl-indent-level: 4
  89 #   fill-column: 100
  90 # End:
  91 # vim: expandtab shiftwidth=4: