Permalink
Browse files

Add in a test for explict self in methods

  • Loading branch information...
1 parent 201d047 commit 7691e5caaf71c02c8cf38e3f1de524f5343c485c @Whiteknight Whiteknight committed Feb 11, 2012
Showing with 15 additions and 1 deletion.
  1. +15 −1 t/compilers/imcc/syn/pcc.t
View
@@ -6,7 +6,7 @@ use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Config;
-use Parrot::Test tests => 26;
+use Parrot::Test tests => 27;
##############################
# Parrot Calling Conventions
@@ -624,6 +624,20 @@ CODE
4
OUT
+pir_output_is( <<'CODE', <<'OUT', 'Explicit self param should not conflict');
+.sub foo :method
+ .param pmc self
+ say self
+.end
+
+.sub main :main
+ $P0 = box 'hello'
+ 'foo'($P0)
+.end
+CODE
+hello
+OUT
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4

0 comments on commit 7691e5c

Please sign in to comment.