t/steps/inter/charset-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # inter/charset-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::inter::charset');
  13 use Parrot::Configure;
  14 use Parrot::Configure::Options qw( process_options );
  15 use Parrot::Configure::Test qw(
  16     test_step_thru_runstep
  17     test_step_constructor_and_description
  18 );
  19 use Tie::Filehandle::Preempt::Stdin;
  20
  21 ########## ask ##########
  22
  23 my ($args, $step_list_ref) = process_options(
  24     {
  25         argv => [],
  26         mode => q{configure},
  27     }
  28 );
  29
  30 my $conf = Parrot::Configure->new;
  31
  32 test_step_thru_runstep( $conf, q{init::defaults}, $args );
  33
  34 my $pkg = q{inter::charset};
  35
  36 $conf->add_steps($pkg);
  37
  38 my $serialized = $conf->pcfreeze();
  39
  40 $conf->options->set( %{$args} );
  41 my $step = test_step_constructor_and_description($conf);
  42 {
  43     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  44     my $ret = $step->runstep($conf);
  45     close STDOUT or croak "Unable to close after myout";
  46     ok( $ret, "runstep() returned true value" );
  47 }
  48
  49 $conf->replenish($serialized);
  50
  51 ########## ask ##########
  52
  53 ($args, $step_list_ref) = process_options(
  54     {
  55         argv => [ q{--ask} ],
  56         mode => q{configure},
  57     }
  58 );
  59 $conf->options->set( %{$args} );
  60 $step = test_step_constructor_and_description($conf);
  61
  62 my ( @prompts, $object );
  63
  64 $conf->options->set('intval' => 'alpha');
  65 $conf->options->set('floatval' => 'beta');
  66 $conf->options->set('opcode' => 'gamma');
  67 @prompts = qw( delta epsilon zeta );
  68
  69 $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts;
  70 can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );
  71 isa_ok( $object, 'Tie::Filehandle::Preempt::Stdin' );
  72
  73 {
  74     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  75     my $ret = $step->runstep($conf);
  76     close STDOUT or croak "Unable to close after myout";
  77     ok( $ret, "runstep() returned true value" );
  78 }
  79
  80 undef $object;
  81 untie *STDIN;
  82 @prompts = ();
  83
  84 pass("Completed all tests in $0");
  85
  86 ################### DOCUMENTATION ###################
  87
  88 =head1 NAME
  89
  90 inter/charset-01.t - test inter::charset
  91
  92 =head1 SYNOPSIS
  93
  94     % prove t/steps/inter/charset-01.t
  95
  96 =head1 DESCRIPTION
  97
  98 The files in this directory test functionality used by F<Configure.pl>.
  99
 100 The tests in this file test inter::charset.
 101
 102 =head1 AUTHOR
 103
 104 James E Keenan
 105
 106 =head1 SEE ALSO
 107
 108 config::inter::charset, F<Configure.pl>.
 109
 110 =cut
 111
 112 # Local Variables:
 113 #   mode: cperl
 114 #   cperl-indent-level: 4
 115 #   fill-column: 100
 116 # End:
 117 # vim: expandtab shiftwidth=4: