Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 44 lines (32 sloc) 0.77 kb
7a5ff13 Chris Weyl initial MX bits
authored
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.