Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 43 lines (32 sloc) 0.77 kb
7a5ff131 »
2011-10-08 initial MX bits
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5
6 use Test::More;
7
8 # This is more of a "spot check" than an actual set of tests
9
10 {
11 package TestClass;
12 use Reindeer;
13
14 has oneA => (is => 'ro');
15 has oneB => (is => 'ro', isa => Str);
16
17 has oneC => (is => 'lazy');
18 has oneD => (is => 'rw', isa => NonEmptySimpleStr);
19
20 my $i;
21 $i++;
22 }
23 BEGIN { pass 'TestClass compiled OK' }
24 pass 'TestClass built OK';
25 {
26 package TestClass::Role;
27 use Reindeer::Role;
28
29 has two => (is => 'ro');
30 }
31 BEGIN { pass 'TestClass::Role compiled OK' }
32 pass 'TestClass::Role built OK';
33 {
34 package TestClass::Compose;
35 use Reindeer;
36 with 'TestClass::Role';
37
38
39 }
40 BEGIN { pass 'TestClass::Compose compiled OK' }
41 pass 'TestClass::Compose built OK';
42
43 done_testing;
Something went wrong with that request. Please try again.