===================================================================
--- t/oo/class/basic.t (revision 2970)
+++ t/oo/class/basic.t (working copy)
@@ -21,6 +21,11 @@
my $foo_clone = $foo.clone();
ok($foo_clone ~~ Foo, '... smartmatch our $foo_clone to the Foo class');
+eval 'class Foo::Bar {}';
+
+my $foo_bar = eval 'Foo::Bar.new()';
+eval_ok('$foo_bar ~~ Foo::Bar', '... smartmatch our $foo_bar to the Foo::Bar class');
+
# L<S12/"Classes" /An \"isa\" is just a trait that happens to be another class\:/>
eval 'class Bar is Foo {}';