t/steps/auto/signal-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/signal-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests =>  27;
   9 use Carp;
  10 use Cwd;
  11 use File::Temp qw(tempdir);
  12 use lib qw( lib t/configure/testlib );
  13 use_ok('config::auto::signal');
  14 use Parrot::Configure::Options qw( process_options );
  15 use Parrot::Configure::Step::Test;
  16 use Parrot::Configure::Test qw(
  17     test_step_constructor_and_description
  18 );
  19 use IO::CaptureOutput qw| capture |;
  20
  21 ########### _handle__sighandler_t() ###########
  22
  23 my ($args, $step_list_ref) = process_options( {
  24     argv => [ ],
  25     mode => q{configure},
  26 } );
  27
  28 my $conf = Parrot::Configure::Step::Test->new;
  29 $conf->include_config_results( $args );
  30
  31 my $serialized = $conf->pcfreeze();
  32
  33 my $pkg = q{auto::signal};
  34
  35 $conf->add_steps($pkg);
  36 $conf->options->set( %{$args} );
  37 my $step = test_step_constructor_and_description($conf);
  38
  39 ok(auto::signal::_handle__sighandler_t($conf),
  40     "_handle__sighandler_t() returned true value");
  41 is($conf->data->get( 'has___sighandler_t'), 'define',
  42     "Got expected value for has__sighandler_t");
  43
  44 ########### _handle_sigaction() ###########
  45
  46 ok(auto::signal::_handle_sigaction($conf),
  47     "_handle_sigaction() returned true value");
  48 is($conf->data->get( 'has_sigaction'), 'define',
  49     "Got expected value for has_sigaction");
  50
  51 ########### _handle_setitimer() ###########
  52
  53 ok(auto::signal::_handle_setitimer($conf),
  54     "_handle_setitimer() returned true value");
  55 is($conf->data->get( 'has_setitimer'), 'define',
  56     "Got expected value for has_setitimer");
  57 is($conf->data->get( 'has_sig_atomic_t'), 'define',
  58     "Got expected value for has_sig_atomic_t");
  59
  60 ########### _print_signalpasm() ###########
  61
  62 my $cwd = cwd();
  63 {
  64     my $tdir = tempdir( CLEANUP => 1);
  65     chdir $tdir or croak "Unable to change to $tdir";
  66     my $signalpasm = q{signal.pasm};
  67     ok(auto::signal::_print_signalpasm($conf, $signalpasm),
  68         "_print_signalpasm returned true value");
  69     ok(-s $signalpasm, "File with nonzero size created");
  70     unlink $signalpasm or croak "Unable to delete file after testing";
  71     chdir $cwd or croak "Unable to change back to $cwd";
  72 }
  73
  74 $conf->replenish($serialized);
  75
  76 ########### --verbose; _handle__sighandler_t() ###########
  77
  78 ($args, $step_list_ref) = process_options( {
  79     argv => [ q{--verbose} ],
  80     mode => q{configure},
  81 } );
  82
  83 $conf->add_steps($pkg);
  84 $conf->options->set( %{$args} );
  85 $step = test_step_constructor_and_description($conf);
  86
  87 my $verbose = 1;
  88 {
  89     my ($rv, $stdout);
  90     capture(
  91         sub { $rv = auto::signal::_handle__sighandler_t($conf, $verbose); },
  92         \$stdout,
  93     );
  94     ok($rv, "_handle__sighandler_t() returned true value");
  95     is($conf->data->get( 'has___sighandler_t'), 'define',
  96         "Got expected value for has__sighandler_t");
  97     like($stdout, qr/__sighandler_t/, "Got expected verbose output");
  98 }
  99
 100 ########### --verbose; _handle_sigaction() ###########
 101
 102 {
 103     my ($rv, $stdout);
 104     capture(
 105         sub { $rv = auto::signal::_handle_sigaction($conf, $verbose); },
 106         \$stdout,
 107     );
 108     ok($rv, "_handle_sigaction() returned true value");
 109     is($conf->data->get( 'has_sigaction'), 'define',
 110         "Got expected value for has_sigaction");
 111     like($stdout, qr/sigaction/, "Got expected verbose output");
 112 }
 113
 114 ########### --verbose; _handle_setitimer() ###########
 115
 116 {
 117     my ($rv, $stdout);
 118     capture(
 119         sub { $rv = auto::signal::_handle_setitimer($conf, $verbose); },
 120         \$stdout,
 121     );
 122     ok($rv, "_handle_setitimer() returned true value");
 123     is($conf->data->get( 'has_setitimer'), 'define',
 124         "Got expected value for has_setitimer");
 125     is($conf->data->get( 'has_sig_atomic_t'), 'define',
 126         "Got expected value for has_sig_atomic_t");
 127     like($stdout, qr/setitimer/s, "Got expected verbose output");
 128 }
 129
 130 $conf->cc_clean();
 131
 132 pass("Completed all tests in $0");
 133
 134 ################### DOCUMENTATION ###################
 135
 136 =head1 NAME
 137
 138 auto/signal-01.t - test auto::signal
 139
 140 =head1 SYNOPSIS
 141
 142     % prove t/steps/auto/signal-01.t
 143
 144 =head1 DESCRIPTION
 145
 146 The files in this directory test functionality used by F<Configure.pl>.
 147
 148 The tests in this file test auto::signal.
 149
 150 =head1 AUTHOR
 151
 152 James E Keenan
 153
 154 =head1 SEE ALSO
 155
 156 config::auto::signal, F<Configure.pl>.
 157
 158 =cut
 159
 160 # Local Variables:
 161 #   mode: cperl
 162 #   cperl-indent-level: 4
 163 #   fill-column: 100
 164 # End:
 165 # vim: expandtab shiftwidth=4: