From 2d723b88f16450411b8f732eee642404484323ff Mon Sep 17 00:00:00 2001
From: kyle <kyle@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Thu, 16 Jul 2009 15:39:16 +0000
Subject: [PATCH] [t/spec] Test for RT #62732

git-svn-id: http://svn.pugscode.org/pugs@27573 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 S12-class/instantiate.t | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/S12-class/instantiate.t b/S12-class/instantiate.t
index 0c4630b6a6..853e3dec1f 100644
--- a/S12-class/instantiate.t
+++ b/S12-class/instantiate.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 2;
+plan 6;
 
 # L<S12/Construction and Initialization>
 # Basic instantiation.
@@ -20,3 +20,17 @@ class Foo2 {
 }
 my $foo2 = Foo2.new(:a(39), :b(3));
 is($foo2.check(), 42, 'initializing attributes in new');
+
+# RT #62732
+{
+    eval 'NoSuchClass.new()';
+    ok  $!  ~~ Exception, 'death to instantiating nonexistent class';
+    ok "$!" ~~ / NoSuchClass /,
+       'error for "NoSuchClass.new()" mentions NoSuchClass';
+
+    eval 'NoSuch::Subclass.new()';
+    ok  $!  ~~ Exception, 'death to instantiating nonexistent::class';
+    #?rakudo todo 'RT #62732'
+    ok "$!" ~~ / 'NoSuch::Subclass' /,
+       'error for "NoSuch::Subclass.new()" mentions NoSuch::Subclass';
+}