t/steps/auto/headers-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/headers-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests =>  20;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::headers');
  12 use Parrot::Configure;
  13 use Parrot::Configure::Options qw( process_options );
  14 use Parrot::Configure::Step::Test;
  15 use Parrot::Configure::Test qw(
  16     test_step_constructor_and_description
  17 );
  18 use IO::CaptureOutput qw | capture |;
  19
  20 ########## regular ##########
  21
  22 my ($args, $step_list_ref) = process_options(
  23     {
  24         argv => [ ],
  25         mode => q{configure},
  26     }
  27 );
  28
  29 my $conf = Parrot::Configure::Step::Test->new;
  30 $conf->include_config_results( $args );
  31 my $serialized = $conf->pcfreeze();
  32
  33 my $pkg = q{auto::headers};
  34
  35 $conf->add_steps($pkg);
  36 $conf->options->set( %{$args} );
  37 my $step = test_step_constructor_and_description($conf);
  38
  39 my $ret = $step->runstep($conf);
  40 ok( $ret, "runstep() returned true value" );
  41 is($step->result(), q{}, "Result is empty string as expected");
  42
  43 $conf->replenish($serialized);
  44
  45 ########## --verbose ##########
  46
  47 ($args, $step_list_ref) = process_options(
  48     {
  49         argv => [ q{--verbose} ],
  50         mode => q{configure},
  51     }
  52 );
  53
  54 $conf->add_steps($pkg);
  55 $conf->options->set( %{$args} );
  56 $step = test_step_constructor_and_description($conf);
  57 {
  58     my $rv;
  59     my $stdout;
  60     capture ( sub {$rv = $step->runstep($conf) }, \$stdout);
  61     ok( $stdout, "verbose output captured" );
  62     ok( $rv, "runstep() returned true value" );
  63     is($step->result(), q{}, "Result is empty string as expected");
  64 }
  65
  66 $conf->replenish($serialized);
  67
  68 ########## _set_from_Config(); _list_extra_headers() ##########
  69
  70 ($args, $step_list_ref) = process_options(
  71     {
  72         argv => [ ],
  73         mode => q{configure},
  74     }
  75 );
  76
  77 $conf->add_steps($pkg);
  78 $conf->options->set( %{$args} );
  79 $step = test_step_constructor_and_description($conf);
  80
  81 auto::headers::_set_from_Config($conf);
  82 ok(! $conf->data->get('i_niin'), "Mapping made correctly");
  83
  84 {
  85     my $os = 'msys';
  86     $conf->data->set( OSNAME_provisional => $os );
  87     my %extra_headers =
  88         map {$_, 1} auto::headers::_list_extra_headers($conf);
  89     ok($extra_headers{'sysmman.h'}, "Special header set for $os");
  90     ok($extra_headers{'netdb.h'}, "Special header set for $os");
  91 }
  92
  93 {
  94     my $os = 'MSWin32';
  95     $conf->data->set( OSNAME_provisional => $os );
  96     my %extra_headers =
  97         map {$_, 1} auto::headers::_list_extra_headers($conf);
  98     ok($extra_headers{'sal.h'}, "Special header set for $os");
  99 }
 100
 101 pass("Completed all tests in $0");
 102
 103 ################### DOCUMENTATION ###################
 104
 105 =head1 NAME
 106
 107 auto/headers-01.t - test auto::headers
 108
 109 =head1 SYNOPSIS
 110
 111     % prove t/steps/auto/headers-01.t
 112
 113 =head1 DESCRIPTION
 114
 115 The files in this directory test functionality used by F<Configure.pl>.
 116
 117 The tests in this file test auto::headers.
 118
 119 =head1 AUTHOR
 120
 121 James E Keenan
 122
 123 =head1 SEE ALSO
 124
 125 config::auto::headers, F<Configure.pl>.
 126
 127 =cut
 128
 129 # Local Variables:
 130 #   mode: cperl
 131 #   cperl-indent-level: 4
 132 #   fill-column: 100
 133 # End:
 134 # vim: expandtab shiftwidth=4: