t/steps/auto/byteorder-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/byteorder-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 24;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::byteorder');
  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
  18 ########## _evaluate_byteorder() ##########
  19
  20 my ($args, $step_list_ref) = process_options(
  21     {
  22         argv => [ ],
  23         mode => q{configure},
  24     }
  25 );
  26
  27 my $conf = Parrot::Configure::Step::Test->new;
  28 $conf->include_config_results( $args );
  29
  30 my $pkg = q{auto::byteorder};
  31
  32 $conf->add_steps($pkg);
  33
  34 my $serialized = $conf->pcfreeze();
  35
  36 $conf->options->set( %{$args} );
  37 my $step = test_step_constructor_and_description($conf);
  38
  39 my $byteorder = q{1234};
  40 my $rv = $step->_evaluate_byteorder($conf, $byteorder);
  41 ok( $rv, "_evaluate_byteorder() returned true value as expected");
  42 is( $conf->data->get( 'byteorder'), $byteorder, "Got expected byteorder");
  43 ok( ! $conf->data->get( 'bigendian' ), "Not big-endian");
  44 is( $step->result, 'little-endian', "Rather, little-endian");
  45
  46 $conf->replenish($serialized);
  47
  48 ########## _evaluate_byteorder() ##########
  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
  60 $byteorder = q{8765};
  61 $rv = $step->_evaluate_byteorder($conf, $byteorder);
  62 ok( $rv, "_evaluate_byteorder() returned true value as expected");
  63 is( $conf->data->get( 'byteorder'), $byteorder, "Got expected byteorder");
  64 ok( $conf->data->get( 'bigendian' ), "big-endian");
  65 is( $step->result, 'big-endian', "Indeed, big-endian");
  66
  67 $byteorder = q{4321};
  68 $rv = $step->_evaluate_byteorder($conf, $byteorder);
  69 ok( $rv, "_evaluate_byteorder() returned true value as expected");
  70 is( $conf->data->get( 'byteorder'), $byteorder, "Got expected byteorder");
  71 ok( $conf->data->get( 'bigendian' ), "big-endian");
  72 is( $step->result, 'big-endian', "Indeed, big-endian");
  73
  74 $conf->replenish($serialized);
  75
  76 ########## _evaluate_byteorder(); phony byte order ##########
  77
  78 ($args, $step_list_ref) = process_options(
  79     {
  80         argv => [ ],
  81         mode => q{configure},
  82     }
  83 );
  84
  85 $conf->options->set( %{$args} );
  86 $step = test_step_constructor_and_description($conf);
  87
  88 $byteorder = q{foobar};
  89 eval {
  90     $rv = $step->_evaluate_byteorder($conf, $byteorder);
  91 };
  92 like($@,
  93     qr/Unsupported byte-order \[$byteorder\]!/,
  94     "Got error message expected with bad byte-order");
  95
  96 pass("Completed all tests in $0");
  97
  98 ################### DOCUMENTATION ###################
  99
 100 =head1 NAME
 101
 102 auto/byteorder-01.t - test auto::byteorder
 103
 104 =head1 SYNOPSIS
 105
 106     % prove t/steps/auto/byteorder-01.t
 107
 108 =head1 DESCRIPTION
 109
 110 The files in this directory test functionality used by F<Configure.pl>.
 111
 112 The tests in this file test auto::byteorder.
 113
 114 =head1 AUTHOR
 115
 116 James E Keenan
 117
 118 =head1 SEE ALSO
 119
 120 config::auto::byteorder, F<Configure.pl>.
 121
 122 =cut
 123
 124 # Local Variables:
 125 #   mode: cperl
 126 #   cperl-indent-level: 4
 127 #   fill-column: 100
 128 # End:
 129 # vim: expandtab shiftwidth=4: