t/steps/auto/pmc-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/pmc-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests =>  33;
   9 use Carp;
  10 use Cwd;
  11 use File::Path qw| mkpath |;
  12 use File::Temp qw| tempdir |;
  13 use lib qw( lib t/configure/testlib );
  14 use_ok('config::auto::pmc');
  15 use Parrot::Configure::Options qw( process_options );
  16 use Parrot::Configure::Step::Test;
  17 use Parrot::Configure::Test qw(
  18     test_step_constructor_and_description
  19 );
  20 use IO::CaptureOutput qw( capture );
  21
  22 ########## regular ##########
  23
  24 my ($args, $step_list_ref) = process_options(
  25     {
  26         argv => [ ],
  27         mode => q{configure},
  28     }
  29 );
  30
  31 my $conf = Parrot::Configure::Step::Test->new;
  32 $conf->include_config_results( $args );
  33
  34 my $pkg = q{auto::pmc};
  35
  36 $conf->add_steps($pkg);
  37
  38 my $serialized = $conf->pcfreeze();
  39
  40 $conf->options->set( %{$args} );
  41 my $step = test_step_constructor_and_description($conf);
  42
  43 my $ret = $step->runstep($conf);
  44 ok( $ret, "runstep() returned true value" );
  45
  46 $conf->replenish($serialized);
  47
  48 ########## contains_pccmethod()  ##########
  49
  50 ($args, $step_list_ref) = process_options(
  51     {
  52         argv => [ ],
  53         mode => q{configure},
  54     }
  55 );
  56
  57 $conf->options->set( %{$args} );
  58 $step = test_step_constructor_and_description($conf);
  59 my $cwd = cwd();
  60 {
  61     my $tdir = tempdir( CLEANUP => 1 );
  62     ok( chdir $tdir, 'changed to temp directory for testing' );
  63
  64     my $pmc_with_PCCMETHOD = q{yes.pmc};
  65     open my $IN1, ">", $pmc_with_PCCMETHOD
  66         or croak "Unable to open file for writing: $!";
  67     print $IN1 "PCCMETHOD\n";
  68     close $IN1 or croak "Unable to close file after writing: $!";
  69     ok(auto::pmc::contains_pccmethod($pmc_with_PCCMETHOD),
  70         "Internal subroutine contains_pccmethod returns true as expected");
  71
  72     my $pmc_sans_PCCMETHOD = q{no.pmc};
  73     open my $IN2, ">", $pmc_sans_PCCMETHOD
  74         or croak "Unable to open file for writing: $!";
  75     print $IN2 "Hello world\n";
  76     close $IN2 or croak "Unable to close file after writing: $!";
  77     ok( !  defined (
  78             auto::pmc::contains_pccmethod($pmc_sans_PCCMETHOD)
  79         ), "Internal subroutine contains_pccmethod returns true as expected"
  80     );
  81
  82     my $file = 'foobar';
  83     eval { auto::pmc::contains_pccmethod($file); };
  84     like($@, qr/Can't read '$file'/, "Got expected 'die' message"); #'
  85
  86     ok( chdir $cwd, 'changed back to original directory after testing' );
  87 }
  88
  89 ########## get_pmc_order()  ##########
  90
  91 {
  92     my $tdir = tempdir( CLEANUP => 1 );
  93     ok( chdir $tdir, 'changed to temp directory for testing' );
  94
  95     my $pmcdir = qq{$tdir/src/pmc};
  96     ok(mkpath($pmcdir, { mode => 0755 }), "Able to make directory for testing");
  97     my $num = qq{$pmcdir/pmc.num};
  98     open my $OUT3, ">", $num or croak "Unable to open file for writing: $!";
  99     print $OUT3 "# comment line\n";
 100     print $OUT3 "\n";
 101     print $OUT3 "default.pmc\t0\n";
 102     print $OUT3 "null.pmc    1\n";
 103     print $OUT3 "env.pmc 2\n";
 104     print $OUT3 "notapmc 3\n";
 105     close $OUT3 or croak "Unable to close file after writing: $!";
 106     my $order_ref = auto::pmc::get_pmc_order();
 107     is_deeply(
 108         $order_ref,
 109         {
 110             'default.pmc' => 0,
 111             'null.pmc' => 1,
 112             'env.pmc' => 2,
 113         },
 114         "Able to read src/pmc/pmc.num correctly"
 115     );
 116
 117     my @pmcs = qw| env.pmc default.pmc null.pmc other.pmc |;
 118     my $pseudoman = 'MANIFEST';
 119     open my $MAN, '>', $pseudoman or croak "Unable to open $pseudoman";
 120     print $MAN "src/pmc/$_\n" for @pmcs;
 121     close $MAN or croak;
 122     my @sorted_pmcs =
 123         split / /, auto::pmc::get_sorted_pmc_str(@pmcs);
 124     is_deeply(
 125         \@sorted_pmcs,
 126         [ qw| default.pmc null.pmc env.pmc other.pmc | ],
 127         "PMCs sorted correctly"
 128     );
 129
 130     ok( chdir $cwd, 'changed back to original directory after testing' );
 131 }
 132
 133 {
 134     my $tdir = tempdir( CLEANUP => 1 );
 135     ok( chdir $tdir, 'changed to temp directory for testing' );
 136
 137     my $pmcdir = qq{$tdir/src/pmc};
 138     ok(mkpath($pmcdir, { mode => 0755 }), "Able to make directory for testing");
 139     my $num = qq{$pmcdir/pmc.num};
 140     open my $OUT4, ">", $num or croak "Unable to open file for writing: $!";
 141     print $OUT4 "# comment line\n";
 142     print $OUT4 "\n";
 143     print $OUT4 "default.pmc\t0\n";
 144     print $OUT4 "null.pmc    1\n";
 145     print $OUT4 "env.pmc 2\n";
 146     print $OUT4 "notapmc 3\n";
 147     close $OUT4 or croak "Unable to close file after writing: $!";
 148     my $order_ref = auto::pmc::get_pmc_order();
 149     is_deeply(
 150         $order_ref,
 151         {
 152             'default.pmc' => 0,
 153             'null.pmc' => 1,
 154             'env.pmc' => 2,
 155         },
 156         "Able to read src/pmc/pmc.num correctly"
 157     );
 158
 159     my @pmcs = qw| env.pmc default.pmc null.pmc other.pmc |;
 160     my $pseudoman = 'MANIFEST';
 161     open my $MAN, '>', $pseudoman or croak "Unable to open $pseudoman";
 162     print $MAN "src/pmc/$_\n" for @pmcs[0..2];
 163     close $MAN or croak;
 164     {
 165         my ($stdout, $stderr);
 166         my @sorted_pmcs;
 167         capture( sub {
 168             @sorted_pmcs = split / /,
 169                 auto::pmc::get_sorted_pmc_str(@pmcs);
 170             },
 171             \$stdout,
 172             \$stderr,
 173         );
 174         like( $stderr,
 175             qr/PMCs found in \/src\/pmc not found in MANIFEST: $pmcs[3]/,
 176             "Got expected warning",
 177         );
 178         is_deeply(
 179             \@sorted_pmcs,
 180             [ qw| default.pmc null.pmc env.pmc other.pmc | ],
 181             "PMCs sorted correctly"
 182         );
 183     }
 184
 185     ok( chdir $cwd, 'changed back to original directory after testing' );
 186 }
 187
 188 {
 189     my $tdir = tempdir( CLEANUP => 1 );
 190     ok( chdir $tdir, 'changed to temp directory for testing' );
 191
 192     my $pmcdir = qq{$tdir/src/pmc};
 193     ok(mkpath($pmcdir, { mode => 0755 }), "Able to make directory for testing");
 194     eval { my $order_ref = auto::pmc::get_pmc_order(); };
 195     like($@,
 196         qr/Can't read src\/pmc\/pmc\.num/, "Got expected 'die' message");
 197 #'
 198
 199     ok( chdir $cwd, 'changed back to original directory after testing' );
 200 }
 201
 202 my $seen_man = auto::pmc::pmcs_in_manifest();
 203 ok( keys %{$seen_man}, 'src/pmc/*.pmc files were seen in MANIFEST' );
 204
 205 {
 206     my $tdir = tempdir( CLEANUP => 1 );
 207     ok( chdir $tdir, 'changed to temp directory for testing' );
 208
 209     my @pmcs = qw| env.pmc default.pmc null.pmc other.pmc |;
 210     my $pseudoman = 'foobar';
 211     open my $MAN, '>', $pseudoman or croak "Unable to open $pseudoman";
 212     print $MAN "src/pmc/$_\n" for @pmcs;
 213     close $MAN or croak;
 214
 215     my $seen_manifest = auto::pmc::pmcs_in_manifest($pseudoman);
 216     is_deeply(
 217         $seen_manifest,
 218         { map { $_ => 1} @pmcs },
 219         "Got expected files in differently named MANIFEST",
 220     );
 221     ok( chdir $cwd, 'changed back to original directory after testing' );
 222 }
 223
 224 pass("Completed all tests in $0");
 225
 226 ################### DOCUMENTATION ###################
 227
 228 =head1 NAME
 229
 230 auto/pmc-01.t - test auto::pmc
 231
 232 =head1 SYNOPSIS
 233
 234     % prove t/steps/auto/pmc-01.t
 235
 236 =head1 DESCRIPTION
 237
 238 The files in this directory test functionality used by F<Configure.pl>.
 239
 240 The tests in this file test auto::pmc.
 241
 242 =head1 AUTHOR
 243
 244 James E Keenan
 245
 246 =head1 SEE ALSO
 247
 248 config::auto::pmc, F<Configure.pl>.
 249
 250 =cut
 251
 252 # Local Variables:
 253 #   mode: cperl
 254 #   cperl-indent-level: 4
 255 #   fill-column: 100
 256 # End:
 257 # vim: expandtab shiftwidth=4: