t/steps/auto/cpu-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/cpu-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests =>  14;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::cpu');
  12 use Parrot::Configure::Options qw( process_options );
  13 use Parrot::Configure::Step::Test;
  14 use Parrot::Configure::Test qw(
  15     test_step_constructor_and_description
  16 );
  17 use IO::CaptureOutput qw( capture );
  18
  19 ########### --verbose ###########
  20
  21 my ($args, $step_list_ref) = process_options( {
  22     argv => [ q{--verbose} ],
  23     mode => q{configure},
  24 } );
  25
  26 my $conf = Parrot::Configure::Step::Test->new;
  27 $conf->include_config_results( $args );
  28
  29 my ($pkg, $step);
  30 my $serialized = $conf->pcfreeze();
  31
  32 $pkg = q{auto::cpu};
  33 $conf->add_steps($pkg);
  34 $conf->options->set( %{$args} );
  35 $step = test_step_constructor_and_description($conf);
  36 {
  37     $conf->data->set('cpuarch' => 'foobar');
  38     my ($ret, $stdout);
  39     capture(
  40         sub { $ret = $step->runstep($conf); },
  41         \$stdout,
  42     );
  43     ok($ret, "runstep() returned true value" );
  44     ok(! $step->result(), "Got (default) false result as expected");
  45     like($stdout, qr/cpu hints = 'auto::cpu::foobar::auto'/s,
  46         "Got expected verbose output");
  47     like($stdout, qr/no cpu specific hints/s,
  48         "Got expected verbose output");
  49 }
  50
  51 $conf->replenish($serialized);
  52 $conf->options->set( 'verbose' => undef );
  53
  54 ########### mock cpuarch ###########
  55
  56 ($args, $step_list_ref) = process_options( {
  57     argv => [ ],
  58     mode => q{configure},
  59 } );
  60
  61 $conf->add_steps($pkg);
  62 $conf->options->set( %{$args} );
  63 $step = test_step_constructor_and_description($conf);
  64 $conf->data->set('cpuarch' => 'foobar');
  65 my $ret = $step->runstep($conf);
  66 ok($ret, "runstep() returned true value" );
  67 ok(! $step->result(), "Got (default) false result as expected");
  68
  69 pass("Completed all tests in $0");
  70
  71 ################### DOCUMENTATION ###################
  72
  73 =head1 NAME
  74
  75 auto/cpu-01.t - test auto::cpu
  76
  77 =head1 SYNOPSIS
  78
  79     % prove t/steps/auto/cpu-01.t
  80
  81 =head1 DESCRIPTION
  82
  83 The files in this directory test functionality used by F<Configure.pl>.
  84
  85 The tests in this file test auto::cpu.
  86
  87 =head1 AUTHOR
  88
  89 James E Keenan
  90
  91 =head1 SEE ALSO
  92
  93 config::auto::cpu, F<Configure.pl>.
  94
  95 =cut
  96
  97 # Local Variables:
  98 #   mode: cperl
  99 #   cperl-indent-level: 4
 100 #   fill-column: 100
 101 # End:
 102 # vim: expandtab shiftwidth=4: