t/steps/inter/progs-04.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # inter/progs-04.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests =>  8;
  10 use Carp;
  11 use lib qw( lib t/configure/testlib );
  12 use_ok('config::inter::progs');
  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 use IO::CaptureOutput qw| capture |;
  20
  21 =for hints_for_testing Testing and refactoring of inter::progs should
  22 entail understanding of issues discussed in
  23 https://trac.parrot.org/parrot/ticket/854
  24
  25 =cut
  26
  27 ########## ask ##########
  28
  29 my ($args, $step_list_ref) = process_options(
  30     {
  31         argv => [q{--ask}],
  32         mode => q{configure},
  33     }
  34 );
  35
  36 my $conf = Parrot::Configure::Step::Test->new;
  37 $conf->include_config_results( $args );
  38
  39 my $pkg = q{inter::progs};
  40
  41 $conf->add_steps($pkg);
  42
  43 $conf->options->set( %{$args} );
  44 my $step = test_step_constructor_and_description($conf);
  45
  46 my @prompts;
  47 my $object;
  48 my ($stdout, $debug, $debug_validity);
  49
  50 foreach my $p (
  51     qw|
  52         cc
  53         link
  54         ld
  55         ccflags
  56         linkflags
  57         ldflags
  58         libs
  59     |
  60     )
  61 {
  62     push @prompts, $conf->data->get($p);
  63 }
  64 push @prompts, q{0};
  65
  66 $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts;
  67 can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );
  68 isa_ok( $object, 'Tie::Filehandle::Preempt::Stdin' );
  69
  70 my $rv;
  71 capture( sub {
  72     $rv = $step->runstep($conf);
  73 }, \$stdout);
  74 ok( ! defined $rv, "runstep returned undef as expected" );
  75
  76 $object = undef;
  77 untie *STDIN;
  78
  79 pass("Completed all tests in $0");
  80
  81 ################### DOCUMENTATION ###################
  82
  83 =head1 NAME
  84
  85 inter/progs-04.t - test inter::progs
  86
  87 =head1 SYNOPSIS
  88
  89     % prove t/steps/inter/progs-04.t
  90
  91 =head1 DESCRIPTION
  92
  93 The files in this directory test functionality used by F<Configure.pl>.
  94
  95 The tests in this file test inter::progs.
  96
  97 =head1 AUTHOR
  98
  99 James E Keenan
 100
 101 =head1 SEE ALSO
 102
 103 config::inter::progs, F<Configure.pl>.
 104
 105 =cut
 106
 107 # Local Variables:
 108 #   mode: cperl
 109 #   cperl-indent-level: 4
 110 #   fill-column: 100
 111 # End:
 112 # vim: expandtab shiftwidth=4: