diff options
author | doy <doy@tozt.net> | 2008-12-06 18:08:12 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-06 18:08:12 -0500 |
commit | a3d55ee9f77fa9cf771c7d9ae811f940ac90e5f7 (patch) | |
tree | 21e9252faf756829a307c97e9d338ccd6a6054ba /t | |
parent | 79e9ff5d7dffc2c57a3447cf578894bee64ace4d (diff) | |
download | moosex-role-matcher-a3d55ee9f77fa9cf771c7d9ae811f940ac90e5f7.tar.gz moosex-role-matcher-a3d55ee9f77fa9cf771c7d9ae811f940ac90e5f7.zip |
start with tests
Diffstat (limited to 't')
-rw-r--r-- | t/000-load.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/000-load.t b/t/000-load.t new file mode 100644 index 0000000..5208130 --- /dev/null +++ b/t/000-load.t @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More tests => 2; + +package Foo; +use Moose; +with 'MooseX::Role::Matcher'; + +package main; +my $foo = Foo->new; +ok($foo->does('MooseX::Role::Matcher'), + 'role consumption works'); +ok($foo->can('match'), + 'provided method exists'); |