t/compilers/pge/02-match.t

   1 #!./parrot
   2 # Copyright (C) 2006-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/compilers/pge/02-match.t - test the Match class
   8
   9
  10 =head1 SYNOPSIS
  11
  12         % prove t/compilers/pge/02-match.t
  13
  14 =head1 DESCRIPTION
  15
  16 Tests the Match class directly.
  17
  18 =cut
  19
  20 .sub main :main
  21     .include 'test_more.pir'
  22     plan(4)
  23
  24     test_concat_on_a_match_object()
  25     test_push_on_a_match_object()
  26 .end
  27
  28 .sub test_concat_on_a_match_object
  29     load_bytecode 'PGE.pbc'
  30
  31     $P0 = compreg 'PGE::Perl6Regex'
  32     $P1 = $P0('.+')
  33     $P2 = $P1('world')
  34
  35     is($P2, 'world', 'concat on a Match object (rt#39135)')
  36
  37     $P3 = new 'String'
  38     $P3 = 'hello '
  39
  40     $P4 = concat $P3, $P2
  41     is($P4, 'hello world', 'concat on a Match object (rt#39135)')
  42 .end
  43
  44 .sub test_push_on_a_match_object
  45     .local pmc match, str, arr
  46     load_bytecode 'PGE.pbc'
  47     match = new ['PGE';'Match']
  48     str = new 'String'
  49     str = 'foo'
  50     push match, str
  51     arr = match.'list'()
  52     $I0 = elements arr
  53     is($I0, 1, 'push on a Match object')
  54     $P3 = match[0]
  55     is($P3, 'foo', 'push on a Match object')
  56 .end
  57
  58 # Local Variables:
  59 #   mode: pir
  60 #   fill-column: 100
  61 # End:
  62 # vim: expandtab shiftwidth=4 ft=pir: