Permalink
Fetching contributors…
Cannot retrieve contributors at this time
27 lines (16 sloc) 493 Bytes
use v6;
use lib 't/spec/packages';
use Test;
plan 2;
# L<S12/Classes/"class or type name using">
# TODO: move that to t/spec/ as well
# Testing class literals
use Foo;
my $test1;
ok ($test1 = ::Foo) ~~ Foo, "::Foo is a valid class literal";
# Test removed per L<"http://www.nntp.perl.org/group/perl.perl6.language/22220">
# Foo.isa(Class) is false.
#isa-ok($test1, "Class", "It's a class");
my $x = EVAL 'Foo';
ok($x === ::Foo, "Foo is now a valid class literal");
# vim: ft=perl6