t/steps/init/hints-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # init/hints-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 21;
   9 use Carp;
  10 use Cwd;
  11 use File::Path ();
  12 use File::Spec::Functions qw/catfile/;
  13 use File::Temp qw(tempdir);
  14 use lib qw( lib t/configure/testlib );
  15 use_ok('config::init::hints');
  16 use Parrot::Configure::Options qw( process_options );
  17 use Parrot::Configure::Step::Test;
  18 use Parrot::Configure::Test qw(
  19     test_step_constructor_and_description
  20 );
  21 use IO::CaptureOutput qw | capture |;
  22
  23 ########## --verbose ##########
  24
  25 my ($args, $step_list_ref) = process_options(
  26     {
  27         argv => [q{--verbose}],
  28         mode => q{configure},
  29     }
  30 );
  31
  32 my $conf = Parrot::Configure::Step::Test->new;
  33 $conf->include_config_results( $args );
  34
  35 my $pkg = q{init::hints};
  36
  37 $conf->add_steps($pkg);
  38
  39 my $serialized = $conf->pcfreeze();
  40
  41 $conf->options->set( %{$args} );
  42 my $step = test_step_constructor_and_description($conf);
  43
  44 # need to capture the --verbose output, because the fact that it does not end
  45 # in a newline confuses Test::Harness
  46 {
  47     my $rv;
  48     my $stdout;
  49     capture ( sub {$rv = $step->runstep($conf)}, \$stdout);
  50     ok( $stdout, "verbose output:  hints were captured" );
  51     ok( defined $rv, "runstep() returned defined value" );
  52 }
  53
  54 $conf->replenish($serialized);
  55
  56 ########## --verbose; local hints directory ##########
  57
  58 ($args, $step_list_ref) = process_options(
  59     {
  60         argv => [q{--verbose}],
  61         mode => q{configure},
  62     }
  63 );
  64
  65 $conf->options->set( %{$args} );
  66 $step = test_step_constructor_and_description($conf);
  67
  68 my $cwd = cwd();
  69 {
  70     my $tdir = tempdir( CLEANUP => 1 );
  71     File::Path::mkpath(qq{$tdir/init/hints})
  72         or croak "Unable to create directory for local hints";
  73     my $localhints = qq{$tdir/init/hints/local.pm};
  74     open my $FH, '>', $localhints
  75         or croak "Unable to open temp file for writing";
  76     print $FH <<END;
  77 package init::hints::local;
  78 use strict;
  79 sub runstep {
  80     return 1;
  81 }
  82 1;
  83 END
  84     close $FH or croak "Unable to close temp file after writing";
  85     unshift( @INC, $tdir );
  86
  87     {
  88      my $rv;
  89      my $stdout;
  90      capture ( sub {$rv = $step->runstep($conf)}, \$stdout);
  91      ok( $stdout, "verbose output:  hints were captured" );
  92      ok( defined $rv, "runstep() returned defined value" );
  93     }
  94     unlink $localhints or croak "Unable to delete $localhints";
  95 }
  96
  97 $conf->replenish($serialized);
  98
  99 ########## --verbose; local hints directory; no runstep() in local hints ##########
 100
 101 ($args, $step_list_ref) = process_options(
 102     {
 103         argv => [q{--verbose}],
 104         mode => q{configure},
 105     }
 106 );
 107
 108 $conf->options->set( %{$args} );
 109 $step = test_step_constructor_and_description($conf);
 110
 111 $cwd = cwd();
 112 {
 113     my $tdir = tempdir( CLEANUP => 1 );
 114     File::Path::mkpath(qq{$tdir/init/hints})
 115         or croak "Unable to create directory for local hints";
 116     my $localhints = qq{$tdir/init/hints/local.pm};
 117     open my $FH, '>', $localhints
 118         or croak "Unable to open temp file for writing";
 119     print $FH <<END;
 120 package init::hints::local;
 121 use strict;
 122 1;
 123 END
 124     close $FH or croak "Unable to close temp file after writing";
 125     unshift( @INC, $tdir );
 126
 127     {
 128      my $rv;
 129      my $stdout;
 130      capture ( sub {$rv = $step->runstep($conf)}, \$stdout);
 131      ok( $stdout, "verbose output:  hints were captured" );
 132      ok( defined $rv, "runstep() returned defined value" );
 133     }
 134     unlink $localhints or croak "Unable to delete $localhints";
 135 }
 136
 137 $conf->replenish($serialized);
 138
 139 ########## --verbose; imaginary OS ##########
 140
 141 ($args, $step_list_ref) = process_options(
 142     {
 143         argv => [ q{--verbose} ],
 144         mode => q{configure},
 145     }
 146 );
 147
 148 $conf->options->set( %{$args} );
 149 $step = test_step_constructor_and_description($conf);
 150 {
 151     my ($stdout, $stderr, $ret);
 152     $conf->data->set( OSNAME_provisional => q{imaginaryOS} );
 153     my $osname = lc( $conf->data->get( 'OSNAME_provisional' ) );
 154     my $hints_file = catfile('config', 'init', 'hints', "$osname.pm");
 155     capture (
 156         sub { $ret = $step->runstep($conf); },
 157         \$stdout,
 158         \$stderr,
 159     );
 160     like(
 161         $stdout,
 162         qr/No \Q$hints_file\E found/s,
 163         "Got expected verbose output when no hints file found"
 164     );
 165 }
 166
 167 pass("Completed all tests in $0");
 168
 169 ################### DOCUMENTATION ###################
 170
 171 =head1 NAME
 172
 173 init/hints-01.t - test init::hints
 174
 175 =head1 SYNOPSIS
 176
 177     % prove t/steps/init/hints-01.t
 178
 179 =head1 DESCRIPTION
 180
 181 The files in this directory test functionality used by F<Configure.pl>.
 182
 183 The tests in this file test init::hints.
 184
 185 =head1 AUTHOR
 186
 187 James E Keenan
 188
 189 =head1 SEE ALSO
 190
 191 config::init::hints, F<Configure.pl>.
 192
 193 =cut
 194
 195 # Local Variables:
 196 #   mode: cperl
 197 #   cperl-indent-level: 4
 198 #   fill-column: 100
 199 # End:
 200 # vim: expandtab shiftwidth=4: