t/configure/025-options_test.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 025-options_test.t
   5
   6 use strict;
   7 use warnings;
   8 use Carp;
   9 use Cwd;
  10 use File::Temp qw( tempdir );
  11 use Test::More tests =>  7;
  12 use lib qw( lib );
  13 use IO::CaptureOutput qw| capture |;
  14 use Parrot::Configure::Options qw| process_options |;
  15 use Parrot::Configure::Options::Test;
  16
  17 my ( $args, $step_list_ref ) = process_options(
  18     {
  19         argv => [q{--test}],
  20         mode => q{configure},
  21     }
  22 );
  23 ok( defined $args,
  24     "process_options() returned successfully when options were specified" );
  25
  26 my $opttest = Parrot::Configure::Options::Test->new($args);
  27 ok( defined $opttest, "Constructor returned successfully" );
  28
  29 # Running the actual pre- and post-configuration tests would be too
  30 # time-consuming.  So instead, we want to redefine the lists of tests to be
  31 # run to include only dummy test files found in temporary directories.
  32
  33 my $cwd = cwd();
  34
  35 my $teststring = <<"TEST";
  36 use Test::More tests => 1;
  37 {
  38     pass("Dummy test passed");
  39 }
  40 TEST
  41
  42 {
  43     my $tdir = tempdir( CLEANUP => 1 );
  44     ok( ( chdir $tdir ), "Changed to temporary directory for testing" );
  45     my $test = q{testfile};
  46     open my $T, ">", $test
  47         or die "Unable to open dummy test file for writing";
  48     print $T $teststring;
  49     close $T or die "Unable to close dummy test file after writing";
  50
  51     no warnings 'once';
  52
  53     my $reason = q{Devel::Cover gags on this test};
  54
  55     {
  56         my ($rv, $stdout);
  57     SKIP: {
  58             skip $reason, 1 if $ENV{PERL5OPT};
  59             capture (
  60                 sub { $rv = $opttest->run_configure_tests($test); },
  61                 \$stdout
  62             );
  63             ok( $rv, "Configuration tests are runnable" );
  64         }
  65     }
  66
  67     {
  68         my ($rv, $stdout);
  69     SKIP: {
  70             skip $reason, 1 if $ENV{PERL5OPT};
  71             capture (
  72                 sub { $rv = $opttest->run_build_tests($test); },
  73                 \$stdout
  74             );
  75             ok( $rv, "Build tests are runnable" );
  76         }
  77     }
  78     unlink $test or croak "Unable to delete $test";
  79
  80     ok( ( chdir $cwd ), "Changed back to starting directory after testing" );
  81 }
  82
  83 pass("Completed all tests in $0");
  84
  85 ################### DOCUMENTATION ###################
  86
  87 =head1 NAME
  88
  89 025-options_test.t - test Parrot::Configure::Options::Test
  90
  91 =head1 SYNOPSIS
  92
  93     % prove t/configure/025-options_test.t
  94
  95 =head1 DESCRIPTION
  96
  97 The files in this directory test functionality used by F<Configure.pl>.
  98
  99 The tests in this file test Parrot::Configure::Options::Test methods.
 100
 101 =head1 AUTHOR
 102
 103 James E Keenan
 104
 105 =head1 SEE ALSO
 106
 107 Parrot::Configure::Options, F<Configure.pl>.
 108
 109 =cut
 110
 111 # Local Variables:
 112 #   mode: cperl
 113 #   cperl-indent-level: 4
 114 #   fill-column: 100
 115 # End:
 116 # vim: expandtab shiftwidth=4: