From ad1917d79f5490b78c921ce0e7ae708c300d97e4 Mon Sep 17 00:00:00 2001 From: Rafael Kitover Date: Mon, 15 Jun 2009 15:23:03 -0700 Subject: first release --- t/01-basic.t | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 t/01-basic.t (limited to 't') diff --git a/t/01-basic.t b/t/01-basic.t new file mode 100644 index 0000000..f056dd9 --- /dev/null +++ b/t/01-basic.t @@ -0,0 +1,28 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use Test::More tests => 3; + +{ + package MyClass; + use Moose; + use MooseX::ClassAttribute; + use MooseX::AlwaysCoerce; + use Moose::Util::TypeConstraints; + + subtype 'MyType', as 'Int'; + coerce 'MyType', from 'Str', via { length $_ }; + + has foo => (is => 'rw', isa => 'MyType'); + + class_has bar => (is => 'rw', isa => 'MyType'); +} + +ok( (my $instance = MyClass->new), 'instance' ); + +eval { $instance->foo('bar') }; +ok( (!$@), 'attribute coercion ran' ); + +eval { $instance->bar('baz') }; +ok( (!$@), 'class attribute coercion ran' ); -- cgit v1.2.3-54-g00ecf