t/steps/inter/make-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # inter/make-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 13;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::inter::make');
  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 Tie::Filehandle::Preempt::Stdin;
  19
  20 ########## ask  ##########
  21
  22 my ($args, $step_list_ref) = process_options(
  23     {
  24         argv => [q{--ask}],
  25         mode => q{configure},
  26     }
  27 );
  28
  29 my $conf = Parrot::Configure::Step::Test->new;
  30 $conf->include_config_results( $args );
  31
  32 my $pkg = q{inter::make};
  33
  34 $conf->add_steps($pkg);
  35
  36 my $serialized = $conf->pcfreeze();
  37
  38 $conf->options->set( %{$args} );
  39 my $step = test_step_constructor_and_description($conf);
  40
  41 my ( @prompts, $object );
  42 @prompts = (q{make});
  43 $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts;
  44 can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );
  45 isa_ok( $object, 'Tie::Filehandle::Preempt::Stdin' );
  46
  47 my $ret = $step->runstep($conf);
  48 ok( defined $ret, "runstep() returned defined value" );
  49
  50 $object = undef;
  51 untie *STDIN;
  52
  53 $conf->replenish($serialized);
  54
  55 ########## ask  ##########
  56
  57 ($args, $step_list_ref) = process_options(
  58     {
  59         argv => [q{--ask}],
  60         mode => q{configure},
  61     }
  62 );
  63
  64 $conf->options->set( %{$args} );
  65 $step = test_step_constructor_and_description($conf);
  66
  67 $conf->data->set('gmake_version' => '4.1');
  68 my $prog = 'gmake';
  69 inter::make::_set_make_c($conf, $prog);
  70 is($conf->data->get('make_c'), 'gmake -C',
  71     "make_c correctly set when gmake");
  72
  73 $conf->data->set('gmake_version' => undef);
  74 my $str = q|$(PERL) -e 'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$?  >> 8;'|;
  75 $conf->data->set(make_c => $str);
  76 $prog = 'make';
  77 inter::make::_set_make_c($conf, $prog);
  78 is($conf->data->get('make_c'),
  79     q|$(PERL) -e 'chdir shift @ARGV; system q{make}, @ARGV; exit $$?  >> 8;'|,
  80     "make_c correctly set when gmake");
  81
  82 pass("Completed all tests in $0");
  83
  84 ################### DOCUMENTATION ###################
  85
  86 =head1 NAME
  87
  88 inter/make-01.t - test inter::make
  89
  90 =head1 SYNOPSIS
  91
  92     % prove t/steps/inter/make-01.t
  93
  94 =head1 DESCRIPTION
  95
  96 The files in this directory test functionality used by F<Configure.pl>.
  97
  98 The tests in this file test inter::make.
  99
 100 B<Note:>  Since F<inter::make> probes for the F<make> program
 101 found on a particular OS, it will probably be difficult to achieve high
 102 branch or condition coverage.  The module is likely to discover a
 103 F<make> program long before it reaches the point where it must prompt
 104 the user for a response.
 105
 106 =head1 AUTHOR
 107
 108 James E Keenan
 109
 110 =head1 SEE ALSO
 111
 112 config::inter::make, F<Configure.pl>.
 113
 114 =cut
 115
 116 # Local Variables:
 117 #   mode: cperl
 118 #   cperl-indent-level: 4
 119 #   fill-column: 100
 120 # End:
 121 # vim: expandtab shiftwidth=4: