From 0e7e5666c8267fdc505877c838f4f07b082f350c Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 5 Apr 2011 21:23:31 -0500 Subject: stop numbering tests --- t/moose-basic.t | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 t/moose-basic.t (limited to 't/moose-basic.t') diff --git a/t/moose-basic.t b/t/moose-basic.t new file mode 100644 index 0000000..a3d3bf8 --- /dev/null +++ b/t/moose-basic.t @@ -0,0 +1,45 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use Test::Requires 'Moose'; +use lib 't/lib'; +use Test::Class::Refresh; + +use Class::Refresh; + +my $dir = prepare_temp_dir_for('moose-basic'); +push @INC, $dir->dirname; + +require Foo; +require Foo::Immutable; + +Class::Refresh->refresh; + +is_deeply([Foo->meta->get_attribute_list], ['foo'], + "correct starting attr list"); +can_ok('Foo', 'meth'); +ok(!Foo->can('other_meth'), "!Foo->can('other_meth')"); + +is_deeply([Foo::Immutable->meta->get_attribute_list], ['foo'], + "correct starting attr list"); +can_ok('Foo::Immutable', 'meth'); +ok(!Foo::Immutable->can('other_meth'), "!Foo::Immutable->can('other_meth')"); + + +sleep 2; +update_temp_dir_for('moose-basic', $dir); + +Class::Refresh->refresh; + +is_deeply([Foo->meta->get_attribute_list], ['bar'], + "correct refreshed attr list"); +can_ok('Foo', 'other_meth'); +ok(!Foo->can('meth'), "!Foo->can('meth')"); + +is_deeply([Foo::Immutable->meta->get_attribute_list], ['bar'], + "correct refreshed attr list"); +can_ok('Foo::Immutable', 'other_meth'); +ok(!Foo::Immutable->can('meth'), "!Foo::Immutable->can('meth')"); + +done_testing; -- cgit v1.2.3-54-g00ecf