t/configure/035-step.t

   1 #!perl
   2 # Copyright (C) 2001-2005, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 use Test::More tests =>  8;
   9 use Carp;
  10 use Cwd;
  11 use File::Temp 0.13 qw/ tempdir /;
  12 use lib qw( lib t/configure/testlib );
  13 use IO::CaptureOutput qw| capture |;
  14
  15 BEGIN { use Parrot::Configure::Utils; }
  16
  17 my $cwd = cwd();
  18 my $command;
  19
  20 $command = q{echo Hello world};
  21 {
  22     my $tdir = tempdir( CLEANUP => 1 );
  23     chdir $tdir or croak "Unable to change to temporary directory";
  24     my $out     = q{out};
  25     my $err     = q{err};
  26     my $verbose = 0;
  27     my $rv      = Parrot::Configure::Utils::_run_command( $command, $out, $err, $verbose );
  28     is( $rv, 0, "Got expected exit code of 0" );
  29
  30     chdir $cwd or croak "Unable to change back to starting directory";
  31 }
  32
  33 $command = q{echo Hello world};
  34 {
  35     my $tdir = tempdir( CLEANUP => 1 );
  36     chdir $tdir or croak "Unable to change to temporary directory";
  37     my $out     = q{out};
  38     my $err     = q{err};
  39     my $verbose = 1;
  40
  41     my ($rv, $stdout);
  42     capture(
  43         sub { $rv = Parrot::Configure::Utils::_run_command(
  44                 $command, $out, $err, $verbose ); },
  45         \$stdout,
  46     );
  47     is( $rv, 0, "Got expected exit code of 0" );
  48
  49     chdir $cwd or croak "Unable to change back to starting directory";
  50 }
  51
  52
  53 $command = q{echo Hello world};
  54 {
  55     my $tdir = tempdir( CLEANUP => 1 );
  56     chdir $tdir or croak "Unable to change to temporary directory";
  57     my $out     = q{out};
  58     my $err     = $out;
  59     my $verbose = 0;
  60     my $rv      = Parrot::Configure::Utils::_run_command( $command, $out, $err, $verbose );
  61     is( $rv, 0, "Got expected exit code of 0" );
  62
  63     chdir $cwd or croak "Unable to change back to starting directory";
  64 }
  65
  66 $command = q{echo Hello world};
  67 {
  68     my $tdir = tempdir( CLEANUP => 1 );
  69     chdir $tdir or croak "Unable to change to temporary directory";
  70     my $out     = q{out};
  71     my $err     = q{/dev/null};
  72     my $verbose = 0;
  73     my $rv      = Parrot::Configure::Utils::_run_command( $command, $out, $err, $verbose );
  74     is( $rv, 0, "Got expected exit code of 0" );
  75
  76     chdir $cwd or croak "Unable to change back to starting directory";
  77 }
  78
  79 $command = $^O eq 'MSWin32' ? q{dir} : q{date};
  80 {
  81     my $tdir = tempdir( CLEANUP => 1 );
  82     chdir $tdir or croak "Unable to change to temporary directory";
  83     my $out     = undef;
  84     my $err     = q{err};
  85     my $verbose = 0;
  86     my ($rv, $stdout);
  87     capture(
  88         sub { $rv = Parrot::Configure::Utils::_run_command(
  89                 $command, $out, $err, $verbose );
  90         },
  91         \$stdout,
  92     );
  93     is( $rv, 0, "Got expected exit code of 0" );
  94
  95     chdir $cwd or croak "Unable to change back to starting directory";
  96 }
  97
  98 $command = $^O eq 'MSWin32' ? q{dir} : q{date};
  99 {
 100     my $tdir = tempdir( CLEANUP => 1 );
 101     chdir $tdir or croak "Unable to change to temporary directory";
 102     my $out     = undef;
 103     my $err     = q{err};
 104     my $verbose = 1;
 105     my ($rv, $stdout, $stderr);
 106     capture(
 107         sub { $rv = Parrot::Configure::Utils::_run_command(
 108                 $command, $out, $err, $verbose );
 109         },
 110         \$stdout,
 111         \$stderr,
 112     );
 113     is( $rv, 0, "Got expected exit code of 0" );
 114
 115     chdir $cwd or croak "Unable to change back to starting directory";
 116 }
 117
 118 $command = $^O eq 'MSWin32' ? q{dir} : q{date};
 119 {
 120     my $tdir = tempdir( CLEANUP => 1 );
 121     chdir $tdir or croak "Unable to change to temporary directory";
 122     my $out     = q{out};
 123     my $err     = q{/dev/null};
 124     my $verbose = 1;
 125     my ($rv, $stdout, $stderr);
 126     capture(
 127         sub { $rv = Parrot::Configure::Utils::_run_command(
 128                 $command, $out, $err, $verbose );
 129         },
 130         \$stdout,
 131         \$stderr,
 132     );
 133     is( $rv, 0, "Got expected exit code of 0" );
 134
 135     chdir $cwd or croak "Unable to change back to starting directory";
 136 }
 137
 138 $command = $^O eq 'MSWin32' ? q{dir} : q{date};
 139 {
 140     my $tdir = tempdir( CLEANUP => 1 );
 141     chdir $tdir or croak "Unable to change to temporary directory";
 142     my $out     = q{&go};
 143     my $err     = q{err};
 144     my $verbose = 1;
 145     my ($rv, $stdout, $stderr);
 146     capture(
 147         sub { $rv = Parrot::Configure::Utils::_run_command(
 148                 $command, $out, $err, $verbose );
 149         },
 150         \$stdout,
 151         \$stderr,
 152     );
 153     is( $rv, 0, "Got expected exit code of 0" );
 154
 155     chdir $cwd or croak "Unable to change back to starting directory";
 156 }
 157
 158 ################### DOCUMENTATION ###################
 159
 160 =head1 NAME
 161
 162 t/configure/035-step.t - tests Parrot::Configure::Utils
 163
 164 =head1 SYNOPSIS
 165
 166     prove t/configure/035-step.t
 167
 168 =head1 DESCRIPTION
 169
 170 Regression tests for the L<Parrot::Configure::Utils> module.  This file holds
 171 tests for Parrot::Configure::Utils::_run_command().
 172
 173 =cut
 174
 175 # Local Variables:
 176 #   mode: cperl
 177 #   cperl-indent-level: 4
 178 #   fill-column: 100
 179 # End:
 180 # vim: expandtab shiftwidth=4: