← Back to branch summary

~ubuntu-branches/ubuntu/wily/parrot/wily-proposed

« back to all changes in this revision

Viewing changes to t/op/calling.t

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont
  • Date: 2014-04-26 08:41:44 UTC
  • mfrom: (1.1.20)
  • Revision ID: package-import@ubuntu.com-20140426084144-ycocevtjth7nij5s
Tags: 6.3.0-1
Imported Upstream version 6.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/op/calling.t
1
1
#!perl
2
 
# Copyright (C) 2001-2011, Parrot Foundation.
 
2
# Copyright (C) 2001-2014, Parrot Foundation.
3
3
 
4
4
use strict;
5
5
use warnings;
1323
1323
Foo!
1324
1324
OUTPUT
1325
1325
 
1326
 
# bug - repeated calls to eval'd sub crashes (pmichaud, 2005.10.27)
 
1326
# fixed bug - repeated calls to eval'd sub crashes (pmichaud, 2005.10.27)
1327
1327
pir_output_is( <<'CODE', <<'OUTPUT', "repeated calls to eval'd sub" );
1328
1328
.sub main :main
1329
1329
    .local string s
1669
1669
ok 2
1670
1670
OUTPUT
1671
1671
 
1672
 
pir_output_is( <<'CODE', <<'OUTPUT', "newclosure followed by tailcall" );
 
1672
TODO: {
 
1673
  local $TODO = 'bad -O1 test 63' if $ENV{TEST_PROG_ARGS}
 
1674
    and $ENV{TEST_PROG_ARGS} =~ / -O[12]/;
 
1675
  pir_output_is( <<'CODE', <<'OUTPUT', "newclosure followed by tailcall" );
1673
1676
## regression test for newclosure followed by tailcall, which used to recycle
1674
1677
## the context too soon.  it looks awful because (a) the original version was
1675
1678
## produced by a compiler, and (b) in order to detect regression, we must force
1712
1715
.end
1713
1716
 
1714
1717
 
 
1718
# TODO -O1 error
1715
1719
.sub _try_it
1716
1720
        .param int n
1717
1721
        .param pmc closure
1734
1738
[in test]
1735
1739
got 9.
1736
1740
OUTPUT
 
1741
}
1737
1742
 
1738
1743
pir_output_is( <<'CODE', <<'OUTPUT', "call evaled vtable code" );
1739
1744
.sub main :main