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/01-basic.t | 45 ------------------------------ t/data/01/after/Foo.pm | 10 ------- t/data/01/after/Foo/Immutable.pm | 11 -------- t/data/01/before/Foo.pm | 10 ------- t/data/01/before/Foo/Immutable.pm | 11 -------- t/data/moose-basic/after/Foo.pm | 10 +++++++ t/data/moose-basic/after/Foo/Immutable.pm | 11 ++++++++ t/data/moose-basic/before/Foo.pm | 10 +++++++ t/data/moose-basic/before/Foo/Immutable.pm | 11 ++++++++ t/moose-basic.t | 45 ++++++++++++++++++++++++++++++ 10 files changed, 87 insertions(+), 87 deletions(-) delete mode 100644 t/01-basic.t delete mode 100644 t/data/01/after/Foo.pm delete mode 100644 t/data/01/after/Foo/Immutable.pm delete mode 100644 t/data/01/before/Foo.pm delete mode 100644 t/data/01/before/Foo/Immutable.pm create mode 100644 t/data/moose-basic/after/Foo.pm create mode 100644 t/data/moose-basic/after/Foo/Immutable.pm create mode 100644 t/data/moose-basic/before/Foo.pm create mode 100644 t/data/moose-basic/before/Foo/Immutable.pm create mode 100644 t/moose-basic.t (limited to 't') diff --git a/t/01-basic.t b/t/01-basic.t deleted file mode 100644 index 5eea8ab..0000000 --- a/t/01-basic.t +++ /dev/null @@ -1,45 +0,0 @@ -#!/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('01'); -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('01', $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; diff --git a/t/data/01/after/Foo.pm b/t/data/01/after/Foo.pm deleted file mode 100644 index 716b5c8..0000000 --- a/t/data/01/after/Foo.pm +++ /dev/null @@ -1,10 +0,0 @@ -package Foo; -use Moose; - -has bar => (is => 'ro'); - -sub other_meth { } - -no Moose; - -1; diff --git a/t/data/01/after/Foo/Immutable.pm b/t/data/01/after/Foo/Immutable.pm deleted file mode 100644 index 9fad73d..0000000 --- a/t/data/01/after/Foo/Immutable.pm +++ /dev/null @@ -1,11 +0,0 @@ -package Foo::Immutable; -use Moose; - -has bar => (is => 'ro'); - -sub other_meth { } - -__PACKAGE__->meta->make_immutable; -no Moose; - -1; diff --git a/t/data/01/before/Foo.pm b/t/data/01/before/Foo.pm deleted file mode 100644 index a63046a..0000000 --- a/t/data/01/before/Foo.pm +++ /dev/null @@ -1,10 +0,0 @@ -package Foo; -use Moose; - -has foo => (is => 'ro'); - -sub meth { } - -no Moose; - -1; diff --git a/t/data/01/before/Foo/Immutable.pm b/t/data/01/before/Foo/Immutable.pm deleted file mode 100644 index df3fb53..0000000 --- a/t/data/01/before/Foo/Immutable.pm +++ /dev/null @@ -1,11 +0,0 @@ -package Foo::Immutable; -use Moose; - -has foo => (is => 'ro'); - -sub meth { } - -__PACKAGE__->meta->make_immutable; -no Moose; - -1; diff --git a/t/data/moose-basic/after/Foo.pm b/t/data/moose-basic/after/Foo.pm new file mode 100644 index 0000000..716b5c8 --- /dev/null +++ b/t/data/moose-basic/after/Foo.pm @@ -0,0 +1,10 @@ +package Foo; +use Moose; + +has bar => (is => 'ro'); + +sub other_meth { } + +no Moose; + +1; diff --git a/t/data/moose-basic/after/Foo/Immutable.pm b/t/data/moose-basic/after/Foo/Immutable.pm new file mode 100644 index 0000000..9fad73d --- /dev/null +++ b/t/data/moose-basic/after/Foo/Immutable.pm @@ -0,0 +1,11 @@ +package Foo::Immutable; +use Moose; + +has bar => (is => 'ro'); + +sub other_meth { } + +__PACKAGE__->meta->make_immutable; +no Moose; + +1; diff --git a/t/data/moose-basic/before/Foo.pm b/t/data/moose-basic/before/Foo.pm new file mode 100644 index 0000000..a63046a --- /dev/null +++ b/t/data/moose-basic/before/Foo.pm @@ -0,0 +1,10 @@ +package Foo; +use Moose; + +has foo => (is => 'ro'); + +sub meth { } + +no Moose; + +1; diff --git a/t/data/moose-basic/before/Foo/Immutable.pm b/t/data/moose-basic/before/Foo/Immutable.pm new file mode 100644 index 0000000..df3fb53 --- /dev/null +++ b/t/data/moose-basic/before/Foo/Immutable.pm @@ -0,0 +1,11 @@ +package Foo::Immutable; +use Moose; + +has foo => (is => 'ro'); + +sub meth { } + +__PACKAGE__->meta->make_immutable; +no Moose; + +1; 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