trAvis - MANAGER

Edit File: 034_numeric_defaults.t

#!/usr/bin/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;