Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d94ae21a60
Fetching contributors…

Cannot retrieve contributors at this time

file 25 lines (16 sloc) 0.51 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
use v6;

use Test;

plan 2;

# L<S12/Classes/"class or type name using">

# TODO: move that to t/spec/ as well
BEGIN { @*INC.unshift('t/spec/packages/'); }

# 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
Something went wrong with that request. Please try again.