rename these tests to "basic", and test both mutable and immutable paths

[gitmo/MooseX-UndefTolerant.git] / t / immutable.t

diff --git a/t/immutable.t b/t/immutable.t
deleted file mode 100644 (file)
index 6a15655..0000000
--- a/t/immutable.t
+++ /dev/null
@@ -1,33 +0,0 @@
-use Test::More;
-
-package Foo;
-use Moose;
-use MooseX::UndefTolerant;
-
-has 'bar' => (
-    is => 'ro',
-    isa => 'Num',
-    predicate => 'has_bar'
-);
-
-__PACKAGE__->meta->make_immutable;
-
-package main;
-
-{
-    my $foo = Foo->new;
-    ok(!$foo->has_bar);
-}
-
-{
-    my $foo = Foo->new(bar => undef);
-    ok(!$foo->has_bar);
-}
-
-{
-    my $foo = Foo->new(bar => 1234);
-    cmp_ok($foo->bar, 'eq', 1234);
-    ok($foo->has_bar);
-}
-
-done_testing;