t/examples/library.t

   1 #!perl
   2 # Copyright (C) 2005-2006, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 4;
  10 use Parrot::Config;
  11
  12 =head1 NAME
  13
  14 t/examples/library.t - Test examples in F<examples/library>
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/examples/library.t
  19
  20 =head1 DESCRIPTION
  21
  22 Test the examples in F<examples/library>.
  23
  24 =head1 SEE ALSO
  25
  26 F<t/examples/japh.t>
  27
  28 =cut
  29
  30 # Set up expected output of the examples
  31 my %expected = (
  32     'getopt_demo.pir' => <<'END_EXPECTED',
  33 Hi, I am 'getopt_demo.pir'.
  34
  35 You haven't passed the option '--bool'. This is fine with me.
  36 You haven't passed the option '--string'. This is fine with me.
  37 You haven't passed the option '--integer'. This is fine with me.
  38 All args have been parsed.
  39 END_EXPECTED
  40
  41     # '
  42 );
  43
  44 while ( my ( $example, $expected ) = each %expected ) {
  45     example_output_is( "examples/library/$example", $expected );
  46 }
  47
  48 my $PARROT = File::Spec->catfile( File::Spec->curdir(), $PConfig{test_prog} );
  49
  50 # For testing md5sum.pir we need to pass a filename
  51 {
  52     my $md5sum_fn = File::Spec->catfile(qw( examples library md5sum.pir ));
  53     my $sample_fn = File::Spec->catfile(qw( t library perlhist.txt ));
  54     my $sum       = `$PARROT $md5sum_fn $sample_fn`;
  55     is( $sum, "fb171bd1a17bf6cd08d73105ad738a35\t$sample_fn\n", $md5sum_fn );
  56 }
  57
  58 SKIP:
  59 {
  60     skip( 'no pcre-config', 1 ); # Original check for PCRE flawed (TT #406)
  61
  62     my $pcre_fn  = File::Spec->catfile(qw( examples library pcre.pir ));
  63     my $test_out = `$PARROT $pcre_fn asdf as`;
  64     is( $test_out, <<'END_EXPECTED', $pcre_fn );
  65 asdf =~ /as/
  66 1 match(es):
  67 as
  68 END_EXPECTED
  69 }
  70
  71 TODO:
  72 {
  73     local $TODO = 'ncurses_life.pir not testable yet';
  74     fail('ncurses_life.pir');
  75 }
  76
  77 # Local Variables:
  78 #   mode: cperl
  79 #   cperl-indent-level: 4
  80 #   fill-column: 100
  81 # End:
  82 # vim: expandtab shiftwidth=4: