t/steps/auto/format-01.t

   1 #! perl
   2 # Copyright (C) 2008, Parrot Foundation.
   3 # $Id$
   4 # auto/format-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 17;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::init::defaults');
  12 use_ok('config::auto::format');
  13 use Parrot::BuildUtil;
  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
  20 ########## _set_intvalfmt() ##########
  21
  22 my ($args, $step_list_ref) = process_options( {
  23     argv            => [],
  24     mode            => q{configure},
  25 } );
  26
  27 my $conf = Parrot::Configure::Step::Test->new;
  28 $conf->include_config_results( $args );
  29
  30 my ($task, $step_name, $step, $ret);
  31 my $pkg = q{auto::format};
  32
  33 $conf->add_steps($pkg);
  34 $conf->options->set(%{$args});
  35 $step = test_step_constructor_and_description($conf);
  36 {
  37     $conf->data->set( iv => 'int' );
  38     auto::format::_set_intvalfmt($conf);
  39     is($conf->data->get( 'intvalfmt' ), '%d',
  40         "intvalfmt set as expected");
  41     # reset for next test
  42     $conf->data->set( iv => undef );
  43 }
  44 {
  45     $conf->data->set( iv => 'long' );
  46     auto::format::_set_intvalfmt($conf);
  47     is($conf->data->get( 'intvalfmt' ), '%ld',
  48         "intvalfmt set as expected");
  49     # reset for next test
  50     $conf->data->set( iv => undef );
  51 }
  52 {
  53     $conf->data->set( iv => 'long int' );
  54     auto::format::_set_intvalfmt($conf);
  55     is($conf->data->get( 'intvalfmt' ), '%ld',
  56         "intvalfmt set as expected");
  57     # reset for next test
  58     $conf->data->set( iv => undef );
  59 }
  60 {
  61     $conf->data->set( iv => 'long long' );
  62     auto::format::_set_intvalfmt($conf);
  63     is($conf->data->get( 'intvalfmt' ), '%lld',
  64         "intvalfmt set as expected");
  65     # reset for next test
  66     $conf->data->set( iv => undef );
  67 }
  68 {
  69     $conf->data->set( iv => 'long long int' );
  70     auto::format::_set_intvalfmt($conf);
  71     is($conf->data->get( 'intvalfmt' ), '%lld',
  72         "intvalfmt set as expected");
  73     # reset for next test
  74     $conf->data->set( iv => undef );
  75 }
  76 {
  77     my $type = 'foobar';
  78     $conf->data->set( iv => $type );
  79     eval { auto::format::_set_intvalfmt($conf); };
  80     like($@,
  81         qr/Can't find a printf-style format specifier for type '$type'/, #'
  82         "Got expected error message");
  83 }
  84
  85 ########## _set_floatvalfmt_nvsize() ##########
  86
  87 {
  88     $conf->data->set( nv => 'double' );
  89     auto::format::_set_floatvalfmt_nvsize($conf);
  90     is($conf->data->get( 'floatvalfmt' ), '%.15g',
  91         "floatvalfmt set as expected");
  92     is($conf->data->get( 'nvsize' ), $conf->data->get( 'doublesize' ),
  93         "nvsize set as expected");
  94     $conf->data->set(
  95         nv          => undef,
  96         floatvalfmt => undef,
  97         nvsize      => undef,
  98     );
  99 }
 100 {
 101     my $p5format = '%.15' . $conf->data->get('sPRIgldbl_provisional');
 102     $p5format =~ s/"//g; # Perl 5's Config value has embedded double quotes
 103     $conf->data->set( nv => 'long double' );
 104     eval {
 105     auto::format::_set_floatvalfmt_nvsize($conf);
 106 };
 107     is($conf->data->get( 'floatvalfmt' ), $p5format,
 108         "floatvalfmt set as expected: nv long double");
 109     is($conf->data->get( 'nvsize' ), $conf->data->get( 'hugefloatvalsize' ),
 110         "nvsize set as expected: nv long double");
 111     $conf->data->set(
 112         nv          => undef,
 113         floatvalfmt => undef,
 114         nvsize      => undef,
 115     );
 116 }
 117 {
 118     my $type = 'foobar';
 119     $conf->data->set( nv => 'foobar' );
 120     eval { auto::format::_set_floatvalfmt_nvsize($conf); };
 121     like($@,
 122         qr/Can't find a printf-style format specifier for type '$type'/, #'
 123         "Got expected error message");
 124 }
 125
 126 pass("Completed all tests in $0");
 127
 128 ################### DOCUMENTATION ###################
 129
 130 =head1 NAME
 131
 132 auto/format-01.t - test auto::format
 133
 134 =head1 SYNOPSIS
 135
 136     % prove t/steps/auto/format-01.t
 137
 138 =head1 DESCRIPTION
 139
 140 The files in this directory test functionality used by F<Configure.pl>.
 141
 142 The tests in this file test auto::format.
 143
 144 =head1 AUTHOR
 145
 146 James E Keenan
 147
 148 =head1 SEE ALSO
 149
 150 config::auto::format, F<Configure.pl>.
 151
 152 =cut
 153
 154 # Local Variables:
 155 #   mode: cperl
 156 #   cperl-indent-level: 4
 157 #   fill-column: 100
 158 # End:
 159 # vim: expandtab shiftwidth=4: