t/examples/namespace.t

   1 #!perl
   2 # Copyright (C) 2005-2008, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8
   9 use Parrot::Test tests => 1;
  10
  11 =head1 NAME
  12
  13 t/examples/namespace.t - Test examples in F<examples/namespace>
  14
  15 =head1 SYNOPSIS
  16
  17     % prove t/examples/namespace.t
  18
  19 =head1 DESCRIPTION
  20
  21 Test the examples in F<examples/namespace>.
  22
  23 =head1 SEE ALSO
  24
  25 F<t/examples/pir.t>
  26
  27 =head1 AUTHOR
  28
  29 Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>
  30
  31 =cut
  32
  33 # Set up expected output for examples
  34
  35 # cannot test the exact result, just adding one method somewhere
  36 # changes all. Also namespaces are hashes.  And we do not gurantee any specific
  37 # order of keys.  test the name of the 2 toplevel names,  parrot is using
  38 my %expected = (
  39     'namespace_dump.pir' => << 'END_EXPECTED',
  40 /(?:^parrot.*
  41 ^MULTI\s=>\sMULTI)|(?:^MULTI\s=>\sMULTI.*
  42 ^parrot.*)/sm
  43 END_EXPECTED
  44 );
  45
  46 while ( my ( $example, $expected ) = each %expected ) {
  47     example_output_like( "examples/namespace/$example", $expected );
  48 }
  49
  50 # Local Variables:
  51 #   mode: cperl
  52 #   cperl-indent-level: 4
  53 #   fill-column: 100
  54 # End:
  55 # vim: expandtab shiftwidth=4: