#!perl
# Copyright (C) 2006-2007, The Perl Foundation.
# $Id: 02-match.t 20639 2007-08-16 05:32:57Z chromatic $

use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 2;

=head1 NAME

t/compilers/pge/02-match.t - test the Match class


=head1 SYNOPSIS

        % prove t/compilers/pge/02-match.t

=head1 DESCRIPTION

Tests the Match class directly.

=cut

pir_output_is( <<'CODE', <<'OUTPUT', 'concat on a Match object (rt#39135)' );
.sub main :main
    load_bytecode 'PGE.pbc'

    $P0 = compreg 'PGE::P6Regex'
    $P1 = $P0('.+')
    $P2 = $P1('world')

    say $P2              # world

    $P3 = new 'String'
    $P3 = 'hello '

    $P4 = n_concat $P3, $P2
    say $P4              # hello world
.end

CODE
world
hello world
OUTPUT

pir_output_is( <<'CODE', <<'OUTPUT', 'push on a Match object' );
.sub main :main
    .local pmc match, str, arr
    load_bytecode 'PGE.pbc'
    match = new 'PGE::Match'
    str = new 'String'
    str = 'foo'
    push match, str
    arr = match.'get_array'()
    $I0 = elements arr
    print $I0
    print "\n"
    $P3 = match[0]
    say $P3
.end
CODE
1
foo
OUTPUT

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4: