t/steps/auto/pod2man-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto_pod2man-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 10;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::pod2man');
  12 use Parrot::BuildUtil;
  13 use Parrot::Configure::Options qw( process_options );
  14 use Parrot::Configure::Step::Test;
  15 use Parrot::Configure::Test qw(
  16     test_step_constructor_and_description
  17 );
  18
  19 ########## regular ##########
  20
  21 my ($args, $step_list_ref) = process_options( {
  22     argv            => [],
  23     mode            => q{configure},
  24 } );
  25
  26 my $conf = Parrot::Configure::Step::Test->new;
  27 $conf->include_config_results( $args );
  28
  29 my $pkg = q{auto::pod2man};
  30
  31 $conf->add_steps($pkg);
  32
  33 my $serialized = $conf->pcfreeze();
  34
  35 $conf->options->set(%{$args});
  36 my $step = test_step_constructor_and_description($conf);
  37 ok($step->runstep($conf), "runstep() completed successfully");
  38 ok(defined($step->result), "Result was defined");
  39 my $has = $conf->data->get('has_pod2man');
  40 ok( ( ($has == 1) or ($has == 0) ),
  41     "Got an acceptable value for 'has_pod2man'");
  42
  43 $conf->replenish($serialized);
  44
  45 ########## _initial_content_check() ##########
  46
  47 my $content = undef;
  48 my $rv = $step->_initial_content_check($conf, $content);
  49 ok(! defined $rv, "Got expected return value when content was undefined");
  50 is($step->result(),
  51     q{no}, "Got expected result when content was undefined");
  52
  53 pass("Completed all tests in $0");
  54
  55 ################### DOCUMENTATION ###################
  56
  57 =head1 NAME
  58
  59 auto_pod2man-01.t - test auto::pod2man
  60
  61 =head1 SYNOPSIS
  62
  63     % prove t/steps/auto_pod2man-01.t
  64
  65 =head1 DESCRIPTION
  66
  67 The files in this directory test functionality used by F<Configure.pl>.
  68
  69 The tests in this file test auto::pod2man.
  70
  71 =head1 SEE ALSO
  72
  73 config::auto::pod2man, F<Configure.pl>.
  74
  75 =cut
  76
  77 # Local Variables:
  78 #   mode: cperl
  79 #   cperl-indent-level: 4
  80 #   fill-column: 100
  81 # End:
  82 # vim: expandtab shiftwidth=4: