Ticket #1334: compilers_pge_02_match_t.patch

File compilers_pge_02_match_t.patch, 1.9 KB (added by bubaflub, 5 years ago)

patch to convert t/compilers/pge/02-match.t to PIR

  • t/compilers/pge/02-match.t

    diff --git t/compilers/pge/02-match.t t/compilers/pge/02-match.t
    index 03cd448..ed05968 100644
     
    1 #!perl 
    2 # Copyright (C) 2006-2007, Parrot Foundation. 
     1#!parrot 
     2# Copyright (C) 2006-2009, Parrot Foundation. 
    33# $Id$ 
    44 
    5 use strict; 
    6 use warnings; 
    7 use lib qw( . lib ../lib ../../lib ); 
    8 use Test::More; 
    9 use Parrot::Test tests => 2; 
    10  
    115=head1 NAME 
    126 
    137t/compilers/pge/02-match.t - test the Match class 
     
    2317 
    2418=cut 
    2519 
    26 pir_output_is( <<'CODE', <<'OUTPUT', 'concat on a Match object (rt#39135)' ); 
    2720.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 
    2829    load_bytecode 'PGE.pbc' 
    2930 
    3031    $P0 = compreg 'PGE::Perl6Regex' 
    3132    $P1 = $P0('.+') 
    3233    $P2 = $P1('world') 
    3334 
    34     say $P2              # world 
     35    is($P2, 'world', 'concat on a Match object (rt#39135)') 
    3536 
    3637    $P3 = new 'String' 
    3738    $P3 = 'hello ' 
    3839 
    3940    $P4 = concat $P3, $P2 
    40     say $P4              # hello world 
     41    is($P4, 'hello world', 'concat on a Match object (rt#39135)') 
    4142.end 
    4243 
    43 CODE 
    44 world 
    45 hello world 
    46 OUTPUT 
    47  
    48 pir_output_is( <<'CODE', <<'OUTPUT', 'push on a Match object' ); 
    49 .sub main :main 
     44.sub test_push_on_a_match_object 
    5045    .local pmc match, str, arr 
    5146    load_bytecode 'PGE.pbc' 
    5247    match = new ['PGE';'Match'] 
     
    5550    push match, str 
    5651    arr = match.'list'() 
    5752    $I0 = elements arr 
    58     print $I0 
    59     print "\n" 
     53    is($I0, 1, 'push on a Match object') 
    6054    $P3 = match[0] 
    61     say $P3 
     55    is($P3, 'foo', 'push on a Match object') 
    6256.end 
    63 CODE 
    64 1 
    65 foo 
    66 OUTPUT 
    6757 
    6858# Local Variables: 
    6959#   mode: cperl 
    7060#   cperl-indent-level: 4 
    7161#   fill-column: 100 
    7262# End: 
    73 # vim: expandtab shiftwidth=4: 
     63# vim: expandtab shiftwidth=4 filetype=pir: