t/compilers/pge/pge_util.t

   1 #! perl
   2 # Copyright (C) 2001-2007, The Perl Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( t . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 8;
  10 use Parrot::Test::PGE;
  11
  12 =head1 NAME
  13
  14 t/library/pge_util.t - Parrot Grammar Engine tests of utility rules
  15
  16 =head1 SYNOPSIS
  17
  18         % prove -Ilib t/library/pge_util.t
  19
  20 =cut
  21
  22 my $str = "How will this\nstring choose\nto explode?\n\nTest";
  23 p6rule_error_like(
  24     $str,
  25     "expl <PGE::Util::die: 'kaboom'>",
  26     qr/^kaboom at line 3, near "ode\?\\n\\n/, "die"
  27 );
  28
  29 pir_output_is( <<'CODE', <<'OUT', "split /\\:+/, 'Foo::Bar::baz'" );
  30
  31 .sub main :main
  32   load_bytecode 'PGE.pbc'
  33   load_bytecode 'PGE/Util.pir'
  34
  35   .local pmc split, p6rule, regex
  36   split  = get_global ['PGE::Util'], 'split'
  37   p6rule = compreg 'PGE::Perl6Regex'
  38   regex  = p6rule('\:+')
  39
  40   $P0 = split(regex, "Foo::Bar::baz")
  41   $S0 = join "\n", $P0
  42   print $S0
  43   print "\n"
  44 .end
  45
  46 CODE
  47 Foo
  48 Bar
  49 baz
  50 OUT
  51
  52 pir_output_is( <<'CODE', <<'OUT', "split /\\:+/, 'Foo::'" );
  53
  54 .sub main :main
  55   load_bytecode 'PGE.pbc'
  56   load_bytecode 'PGE/Util.pir'
  57
  58   .local pmc split, p6rule, regex
  59   split  = get_global ['PGE::Util'], 'split'
  60   p6rule = compreg 'PGE::Perl6Regex'
  61   regex  = p6rule('\:+')
  62
  63   $P0 = split(regex, "Foo::")
  64   $S0 = join "\n", $P0
  65   print $S0
  66   print "\n"
  67 .end
  68
  69 CODE
  70 Foo
  71 OUT
  72
  73 pir_output_is( <<'CODE', <<'OUT', "split /\\:+/, '::Foo'" );
  74
  75 .sub main :main
  76   load_bytecode 'PGE.pbc'
  77   load_bytecode 'PGE/Util.pir'
  78
  79   .local pmc split, p6rule, regex
  80   split  = get_global ['PGE::Util'], 'split'
  81   p6rule = compreg 'PGE::Perl6Regex'
  82   regex  = p6rule('\:+')
  83
  84   $P0 = split(regex, "::Foo")
  85   $S0 = join "\n", $P0
  86   print $S0
  87   print "\n"
  88 .end
  89
  90 CODE
  91
  92 Foo
  93 OUT
  94
  95 pir_output_is( <<'CODE', <<'OUT', "split /\\:+/, 'Foo'" );
  96
  97 .sub main :main
  98   load_bytecode 'PGE.pbc'
  99   load_bytecode 'PGE/Util.pir'
 100
 101   .local pmc split, p6rule, regex
 102   split  = get_global ['PGE::Util'], 'split'
 103   p6rule = compreg 'PGE::Perl6Regex'
 104   regex  = p6rule('\:+')
 105
 106   $P0 = split(regex, "Foo")
 107   $S0 = join "\n", $P0
 108   print $S0
 109   print "\n"
 110 .end
 111
 112 CODE
 113 Foo
 114 OUT
 115
 116 pir_output_is( <<'CODE', <<'OUT', "split /\\:/, 'Foo::Bar'" );
 117
 118 .sub main :main
 119   load_bytecode 'PGE.pbc'
 120   load_bytecode 'PGE/Util.pir'
 121
 122   .local pmc split, p6rule, regex
 123   split  = get_global ['PGE::Util'], 'split'
 124   p6rule = compreg 'PGE::Perl6Regex'
 125   regex  = p6rule('\:')
 126
 127   $P0 = split(regex, "Foo::Bar")
 128   $S0 = join "\n", $P0
 129   print $S0
 130   print "\n"
 131 .end
 132
 133 CODE
 134 Foo
 135
 136 Bar
 137 OUT
 138
 139 pir_output_is( <<'CODE', <<'OUT', "split /\\:/, 'Foo::Bar::Baz', 2" );
 140
 141 .sub main :main
 142   load_bytecode 'PGE.pbc'
 143   load_bytecode 'PGE/Util.pir'
 144
 145   .local pmc split, p6rule, regex
 146   split  = get_global ['PGE::Util'], 'split'
 147   p6rule = compreg 'PGE::Perl6Regex'
 148   regex  = p6rule('\:+')
 149
 150   $P0 = split(regex, "Foo::Bar::Baz", 2)
 151   $S0 = join "\n", $P0
 152   print $S0
 153   print "\n"
 154 .end
 155
 156 CODE
 157 Foo
 158 Bar::Baz
 159 OUT
 160
 161 pir_output_is( <<'CODE', <<'OUT', "split /(a)(b)/, 'abracadabra'" );
 162
 163 .sub main :main
 164   load_bytecode 'PGE.pbc'
 165   load_bytecode 'PGE/Util.pir'
 166
 167   .local pmc split, p6rule, regex
 168   split  = get_global ['PGE::Util'], 'split'
 169   p6rule = compreg 'PGE::Perl6Regex'
 170   regex  = p6rule('(a)(b)')
 171
 172   $P0 = split(regex, "abracadabra")
 173   $S0 = join "-", $P0
 174   print $S0
 175   print "\n"
 176 .end
 177
 178 CODE
 179 -a-b-racad-a-b-ra
 180 OUT
 181
 182 # Local Variables:
 183 #   mode: cperl
 184 #   cperl-indent-level: 4
 185 #   fill-column: 100
 186 # End:
 187 # vim: expandtab shiftwidth=4: