[perl #66204] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-construction/new.t

commit c580fe86e3cb3b391a413b1cffdbe3bcf266c92d
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Nov 4 20:09:15 2009 +0000

    [t/spec] Test for RT #66204: NewClass .= new  should die
    
    git-svn-id: http://svn.pugscode.org/p...@28984 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-construction/new.t b/t/spec/S12-construction/new.t
index d4c93a3..0be3f8e 100644
--- a/t/spec/S12-construction/new.t
+++ b/t/spec/S12-construction/new.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 12;
+plan *;
 
 class Parent {
     has $.x;
@@ -36,4 +36,15 @@ lives_ok { $o = GrandChild.new( Parent{ :x<5> }, Child{ 
:y(4) }) },
 is $o.y, 4, '... worked for the class Child (other order)';
 is $o.x, 5, '... worked for the class Parent (other order)';
 
+# RT #66204
+{
+    class RT66204 {}
+    ok ! RT66204.defined, 'NewClass is not .defined';
+    #?rakudo 2 todo 'RT 66204'
+    dies_ok { RT66204 .= new }, 'class asked to build itself refuses';
+    ok ! RT66204.defined, 'NewClass is still not .defined';
+}
+
+done_testing;
+
 # vim: ft=perl6