From a3d55ee9f77fa9cf771c7d9ae811f940ac90e5f7 Mon Sep 17 00:00:00 2001 From: doy Date: Sat, 6 Dec 2008 18:08:12 -0500 Subject: start with tests --- t/000-load.t | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 t/000-load.t (limited to 't') 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'); -- cgit v1.2.3-54-g00ecf