t/compilers/pge/pge_globs.t

   1 #! perl
   2 # Copyright (C) 2001-2005, Parrot 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 => 28;
  10 use Parrot::Test::PGE;
  11
  12 =head1 NAME
  13
  14 t/library/pge_globs.t
  15
  16 =head1 SYNOPSIS
  17
  18         % prove -Ilib t/library/pge_globs.t
  19
  20 =head1 DESCRIPTION
  21
  22 Parrot Grammar Engine tests of globs
  23
  24 =cut
  25
  26 ## literal match
  27 pgeglob_is( '', '', 'literal: empty string, empty pattern' );
  28 pgeglob_isnt( '0', '',  'literal: empty pattern' );
  29 pgeglob_isnt( '',  '0', 'literal: empty string' );
  30 pgeglob_is( 'abc', 'abc', 'literal' );
  31 pgeglob_isnt( 'abc', 'abd', 'literal' );
  32
  33 ## wildcards
  34 pgeglob_is( 'bznza', 'b?n*a', "glob wildcards" );
  35 pgeglob_is( 'bana',  'b?n*a', "glob wildcards" );
  36 pgeglob_isnt( 'bnana', 'b?n*a', "glob wildcards" );
  37 pgeglob_is( 'bnan', '?n?*', "glob wildcards" );
  38 pgeglob_is( 'ana',  '?n?*', "glob wildcards" );
  39 pgeglob_isnt( 'an', '?n?*', "glob wildcards" );
  40
  41 ## enumerated chars
  42 pgeglob_is( 'orange', '[go]range', 'glob enumerated characters' );
  43 pgeglob_is( 'grange', '[go]range', 'glob enumerated characters' );
  44 pgeglob_isnt( 'ggrange', '[go]range', 'glob enumerated characters' );
  45 pgeglob_isnt( 'borange', '[go]range', 'glob enumerated characters' );
  46 pgeglob_isnt( 'arange',  '[go]range', 'glob enumerated characters' );
  47 pgeglob_is( 'a', '[^0-9]', 'glob enumerated characters' );
  48 pgeglob_isnt( '4',  '[^0-9]', 'glob enumerated characters' );
  49 pgeglob_isnt( '0',  '[^0-9]', 'glob enumerated characters' );
  50 pgeglob_isnt( '9',  '[^0-9]', 'glob enumerated characters' );
  51 pgeglob_isnt( '4a', '[^0-9]', 'glob enumerated characters' );
  52 pgeglob_isnt( 'aa', '[^0-9]', 'glob enumerated characters' );
  53 pgeglob_is( '_', '[A-z]', '_ is between A and z' );
  54
  55 ## empty string
  56 pgeglob_is( '', '*', 'glob empty string' );
  57 pgeglob_isnt( '', '?',    'glob empty string' );
  58 pgeglob_isnt( '', '[0]',  'glob empty string' );
  59 pgeglob_isnt( '', '[^0]', 'glob empty string' );
  60
  61 ## alternate
  62 pir_output_is( <<'CODE', <<'OUT', "Glob, alternate" );
  63
  64 .sub _main
  65   load_bytecode "PGE.pbc"
  66   load_bytecode "PGE/Glob.pbc"
  67
  68   .local pmc rule, globc
  69   globc = compreg "PGE::Glob"
  70   rule = globc.'compile'("{app,bet,cod}a")
  71
  72   $P1 = rule("appa")
  73   if $P1 goto ok1
  74   print "not "
  75 ok1:
  76   print "ok1\n"
  77
  78   $P1 = rule("coda")
  79   if $P1 goto ok2
  80   print "not "
  81 ok2:
  82   print "ok2\n"
  83
  84   $P1 = rule("beta")
  85   if $P1 goto ok3
  86   print "not "
  87 ok3:
  88   print "ok3\n"
  89
  90   $P1 = rule("bet")
  91   unless $P1 goto ok4
  92   print "not "
  93 ok4:
  94   print "ok4\n"
  95
  96   $P1 = rule("alfa")
  97   unless $P1 goto ok5
  98   print "not "
  99 ok5:
 100   print "ok5\n"
 101
 102   rule = globc.'compile'("*{1,two,three}")
 103
 104   $P1 = rule("1")
 105   if $P1 goto ok6
 106   print "not "
 107 ok6:
 108   print "ok6\n"
 109
 110   $P1 = rule("ptwo")
 111   if $P1 goto ok7
 112   print "not "
 113 ok7:
 114   print "ok7\n"
 115
 116   $P1 = rule("al")
 117   unless $P1 goto ok8
 118   print "not "
 119 ok8:
 120   print "ok8\n"
 121
 122   $P1 = rule("three")
 123   if $P1 goto ok9
 124   print "not "
 125 ok9:
 126   print "ok9\n"
 127
 128   $P1 = rule("twop")
 129   unless $P1 goto ok10
 130   print "not "
 131 ok10:
 132   print "ok10\n"
 133
 134   $P1 = rule("1atwo")
 135   if $P1 goto ok11
 136   print "not "
 137 ok11:
 138   print "ok11\n"
 139
 140 .end
 141 CODE
 142 ok1
 143 ok2
 144 ok3
 145 ok4
 146 ok5
 147 ok6
 148 ok7
 149 ok8
 150 ok9
 151 ok10
 152 ok11
 153 OUT
 154
 155 # Local Variables:
 156 #   mode: cperl
 157 #   cperl-indent-level: 4
 158 #   fill-column: 100
 159 # End:
 160 # vim: expandtab shiftwidth=4: