languages/pipp/t/php/pcre.t

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/php/pcre.t - Library pcre
   8
   9 =head1 SYNOPSIS
  10
  11     % perl -I../lib pipp/t/php/pcre.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests PHP Library pcre
  16 (implemented in F<languages/pipp/src/common/php_pcre.pir>).
  17
  18 See L<http://www.php.net/manual/en/ref.pcre.php>.
  19
  20 =cut
  21
  22 use strict;
  23 use warnings;
  24
  25 use FindBin;
  26 use lib "$FindBin::Bin/../../lib";
  27
  28 use Test::More;
  29 use Parrot::Test;
  30 use Parrot::Config;
  31
  32 if ( $PConfig{HAS_PCRE} ) {
  33     plan tests => 8;
  34 }
  35 else {
  36     plan skip_all => "no PCRE";
  37 }
  38
  39
  40 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'constants' );
  41 <?php
  42   echo PREG_NO_ERROR, "\n";
  43   echo PREG_INTERNAL_ERROR, "\n";
  44   echo PREG_BACKTRACK_LIMIT_ERROR, "\n";
  45   echo PREG_RECURSION_LIMIT_ERROR, "\n";
  46   echo PREG_BAD_UTF8_ERROR, "\n";
  47 ?>
  48 CODE
  49 0
  50 1
  51 2
  52 3
  53 4
  54 OUTPUT
  55
  56 language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'version' );
  57 <?php
  58   echo PCRE_VERSION;
  59 ?>
  60 CODE
  61 /^\d\.\d/
  62 OUTPUT
  63
  64 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match()' );
  65 <?php
  66   echo preg_match('/b/', 'abc'), "\n";
  67   echo preg_match('/b/', 'aaa'), "\n";
  68   echo preg_match('{b}', 'abc'), "\n";
  69   echo preg_match('/b/i', 'ABC'), "\n";
  70 ?>
  71 CODE
  72 1
  73 0
  74 1
  75 1
  76 OUTPUT
  77
  78 language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() empty regex' );
  79 <?php
  80   echo preg_match('   ', 'abc'), "\n";
  81 ?>
  82 CODE
  83 /Empty regular expression/
  84 OUTPUT
  85
  86 language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() bad delim' );
  87 <?php
  88   echo preg_match(' 7b7', 'abc'), "\n";
  89 ?>
  90 CODE
  91 /Delimiter must not be alphanumeric or backslash/
  92 OUTPUT
  93
  94 language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() no end' );
  95 <?php
  96   echo preg_match(' |b', 'abc'), "\n";
  97 ?>
  98 CODE
  99 / No ending delimiter '|' found/
 100 OUTPUT
 101
 102 language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() unknown modif' );
 103 <?php
 104   echo preg_match(' /b/ia', 'abc'), "\n";
 105 ?>
 106 CODE
 107 /Unknown modifier 'a'/
 108 OUTPUT
 109
 110 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_quote()' );
 111 <?php
 112   echo preg_quote('{}[]()'), "\n";
 113 ?>
 114 CODE
 115 \{\}\[\]\(\)
 116 OUTPUT
 117
 118 # Local Variables:
 119 #   mode: cperl
 120 #   cperl-indent-level: 4
 121 #   fill-column: 100
 122 # End:
 123 # vim: expandtab shiftwidth=4: