Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t / 020_attributes / 034_numeric_defaults.t

diff --git a/t/020_attributes/034_numeric_defaults.t b/t/020_attributes/034_numeric_defaults.t
deleted file mode 100644 (file)
index ee5dfe8..0000000
--- a/t/020_attributes/034_numeric_defaults.t
+++ /dev/null
@@ -1,131 +0,0 @@
-#!/usr/bin/env perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-use strict;
-use warnings;
-use Test::More;
-use Test::Mouse;
-use B;
-
-{
-    package Foo;
-    use Mouse;
-
-    has foo => (is => 'ro', default => 100);
-
-    sub bar { 100 }
-}
-
-with_immutable {
-    my $foo = Foo->new;
-    for my $meth (qw(foo bar)) {
-        my $val = $foo->$meth;
-        my $b = B::svref_2object(\$val);
-        my $flags = $b->FLAGS;
-        ok($flags & B::SVf_IOK || $flags & B::SVp_IOK, "it's an int");
-        ok(!($flags & B::SVf_POK), "not a string");
-    }
-} 'Foo';
-
-{
-    package Bar;
-    use Mouse;
-
-    has foo => (is => 'ro', lazy => 1, default => 100);
-
-    sub bar { 100 }
-}
-
-with_immutable {
-    my $bar = Bar->new;
-    for my $meth (qw(foo bar)) {
-        my $val = $bar->$meth;
-        my $b = B::svref_2object(\$val);
-        my $flags = $b->FLAGS;
-        ok($flags & B::SVf_IOK || $flags & B::SVp_IOK, "it's an int");
-        ok(!($flags & B::SVf_POK), "not a string");
-    }
-} 'Bar';
-
-{
-    package Baz;
-    use Mouse;
-
-    has foo => (is => 'ro', isa => 'Int', lazy => 1, default => 100);
-
-    sub bar { 100 }
-}
-
-with_immutable {
-    my $baz = Baz->new;
-    for my $meth (qw(foo bar)) {
-        my $val = $baz->$meth;
-        my $b = B::svref_2object(\$val);
-        my $flags = $b->FLAGS;
-        ok($flags & B::SVf_IOK || $flags & B::SVp_IOK, "it's an int");
-        ok(!($flags & B::SVf_POK), "not a string");
-    }
-} 'Baz';
-
-{
-    package Foo2;
-    use Mouse;
-
-    has foo => (is => 'ro', default => 10.5);
-
-    sub bar { 10.5 }
-}
-
-with_immutable {
-    my $foo2 = Foo2->new;
-    for my $meth (qw(foo bar)) {
-        my $val = $foo2->$meth;
-        my $b = B::svref_2object(\$val);
-        my $flags = $b->FLAGS;
-        ok($flags & B::SVf_NOK || $flags & B::SVp_NOK, "it's a num");
-        ok(!($flags & B::SVf_POK), "not a string");
-    }
-} 'Foo2';
-
-{
-    package Bar2;
-    use Mouse;
-
-    has foo => (is => 'ro', lazy => 1, default => 10.5);
-
-    sub bar { 10.5 }
-}
-
-with_immutable {
-    my $bar2 = Bar2->new;
-    for my $meth (qw(foo bar)) {
-        my $val = $bar2->$meth;
-        my $b = B::svref_2object(\$val);
-        my $flags = $b->FLAGS;
-        ok($flags & B::SVf_NOK || $flags & B::SVp_NOK, "it's a num");
-        ok(!($flags & B::SVf_POK), "not a string");
-    }
-} 'Bar2';
-
-{
-    package Baz2;
-    use Mouse;
-
-    has foo => (is => 'ro', isa => 'Num', lazy => 1, default => 10.5);
-
-    sub bar { 10.5 }
-}
-
-with_immutable {
-    my $baz2 = Baz2->new;
-    for my $meth (qw(foo bar)) {
-        my $val = $baz2->$meth;
-        my $b = B::svref_2object(\$val);
-        my $flags = $b->FLAGS;
-        ok($flags & B::SVf_NOK || $flags & B::SVp_NOK, "it's a num");
-        ok(!($flags & B::SVf_POK), "not a string");
-    }
-} 'Baz2';
-
-done_testing;