t/steps/inter/shlibs-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # inter/shlibs-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 16;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::inter::shlibs');
  12 use Parrot::Configure::Options qw( process_options );
  13 use Parrot::Configure::Step::Test;
  14 use Parrot::Configure::Test qw(
  15     test_step_constructor_and_description
  16 );
  17 use Tie::Filehandle::Preempt::Stdin;
  18
  19 ########## ask; mock response to prompt  ##########
  20
  21 my ($args, $step_list_ref) = process_options(
  22     {
  23         argv => [q{--ask}],
  24         mode => q{configure},
  25     }
  26 );
  27
  28 my $conf = Parrot::Configure::Step::Test->new;
  29 $conf->include_config_results( $args );
  30
  31 my $pkg = q{inter::shlibs};
  32 $conf->add_steps($pkg);
  33
  34 my $serialized = $conf->pcfreeze();
  35
  36 $conf->options->set( %{$args} );
  37 my $step = test_step_constructor_and_description($conf);
  38
  39 my ( @prompts, $prompt, $object );
  40 $prompt = q{foobar};
  41 push @prompts, $prompt;
  42
  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 {
  48     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  49     my $ret = $step->runstep($conf);
  50     close STDOUT or croak "Unable to close after myout";
  51     ok( $ret, "runstep() returned true value" );
  52     is( $step->result(), $prompt, "Expected result was set" );
  53 }
  54
  55 undef $object;
  56 untie *STDIN;
  57 @prompts = ();
  58
  59 $conf->replenish($serialized);
  60
  61 ########## ask; empty response to prompt  ##########
  62
  63 ($args, $step_list_ref) = process_options(
  64     {
  65         argv => [q{--ask}],
  66         mode => q{configure},
  67     }
  68 );
  69 $conf->options->set( %{$args} );
  70 $step = test_step_constructor_and_description($conf);
  71 $prompt = q{ };
  72 push @prompts, $prompt;
  73
  74 $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts;
  75 can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );
  76 isa_ok( $object, 'Tie::Filehandle::Preempt::Stdin' );
  77
  78 {
  79     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  80     my $ret = $step->runstep($conf);
  81     close STDOUT or croak "Unable to close after myout";
  82     ok( $ret, "runstep() returned true value" );
  83     is( $step->result(), q{done}, "Expected result was set" );
  84 }
  85
  86 undef $object;
  87 untie *STDIN;
  88 @prompts = ();
  89
  90 pass("Completed all tests in $0");
  91
  92 ################### DOCUMENTATION ###################
  93
  94 =head1 NAME
  95
  96 inter/shlibs-01.t - test inter::shlibs
  97
  98 =head1 SYNOPSIS
  99
 100     % prove t/steps/inter/shlibs-01.t
 101
 102 =head1 DESCRIPTION
 103
 104 The files in this directory test functionality used by F<Configure.pl>.
 105
 106 The tests in this file test inter::shlibs.
 107
 108 =head1 AUTHOR
 109
 110 James E Keenan
 111
 112 =head1 SEE ALSO
 113
 114 config::inter::shlibs, F<Configure.pl>.
 115
 116 =cut
 117
 118 # Local Variables:
 119 #   mode: cperl
 120 #   cperl-indent-level: 4
 121 #   fill-column: 100
 122 # End:
 123 # vim: expandtab shiftwidth=4: