t/examples/past.t

   1 #!perl
   2 # Copyright (C) 2006-2007, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8
   9 use Parrot::Test tests => 2;
  10
  11 =head1 NAME
  12
  13 t/examples/past.t - Test examples in F<examples/past>
  14
  15 =head1 SYNOPSIS
  16
  17     % prove t/examples/past.t
  18     % prove -v t/examples/past.t
  19
  20 =head1 DESCRIPTION
  21
  22 Test the examples in F<examples/past>.
  23
  24 =head1 SEE ALSO
  25
  26 F<t/examples/pir.t>
  27
  28 =head1 AUTHOR
  29
  30 Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>
  31
  32 =cut
  33
  34 # Set up expected output for examples
  35
  36 # A stub for future PAST examples
  37 my %expected = (
  38     '01-sub.pir'        => "5\n",
  39     'four_plus_one.pir' => "5\n",
  40 );
  41
  42 while ( my ( $example, $expected ) = each %expected ) {
  43     example_output_is( "examples/past/$example", $expected );
  44 }
  45
  46 # Local Variables:
  47 #   mode: cperl
  48 #   cperl-indent-level: 4
  49 #   fill-column: 100
  50 # End:
  51 # vim: expandtab shiftwidth=4: