[perl #75822] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S14-roles/instantiation.t

commit 0b2a7086619160623896c339ca51832fd8ca4e26
Author: jnthn <jn...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Jun 19 20:13:14 2010 +0000

    [t/spec] Add a test for RT#75822 and correct another test so we can un-todo 
it.
    
    git-svn-id: http://svn.pugscode.org/p...@31380 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S14-roles/instantiation.t b/t/spec/S14-roles/instantiation.t
index a20f016..0acce9c 100644
--- a/t/spec/S14-roles/instantiation.t
+++ b/t/spec/S14-roles/instantiation.t
@@ -8,7 +8,7 @@ use Test;
 # classes. Hence, RoleName.new() instantiates an object that will probably fail
 # on all stubs.
 
-plan 18;
+plan 19;
 
 role SampleRole {
   method sample_method () { 42 }
@@ -25,8 +25,7 @@ role SampleRole {
   my $obj2 = SampleRole.new;
   ok $obj.WHAT === $obj2.WHAT, "Punned role classes have the same .WHAT";
 
-  #?rakudo todo 'protoobject regression'
-  is ~$obj.WHAT, 'SampleRole', '.WHAT as a string gives the name of the role';
+  is ~$obj.WHAT, 'SampleRole()', '.WHAT as a string gives the name of the 
role';
 }
 
 role WithAttr {
@@ -57,6 +56,12 @@ role ParaRole[$x] {
     is $obj2.get_x, 100, "instantiated object has method with correct 
associated role parameter";
 }
 
+role ParaRole2Args[$x, $y] {
+    method x { $x + $y }
+}
+
+is ParaRole2Args[4, 5].new.x, 9, 'instantiating a parametric role with two 
arguments works';
+
 # Can also pun a role and inherit from the punned class.
 {
     class TestA is SampleRole { }