Regenerate test files

[gitmo/Mouse.git] / t-failing / 020_attributes / 028_no_slot_access.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;

{
    package SomeAwesomeDB;

    sub new_row { }
    sub read    { }
    sub write   { }
}

{
    package MooseX::SomeAwesomeDBFields;

    # implementation of methods not called in the example deliberately
    # omitted

    use Mouse::Role;

    sub inline_create_instance {
        my ( $self, $classvar ) = @_;

        "bless SomeAwesomeDB::new_row(), $classvar";
    }

    sub inline_get_slot_value {
        my ( $self, $invar, $slot ) = @_;

        "SomeAwesomeDB::read($invar, \"$slot\")";
    }

    sub inline_set_slot_value {
        my ( $self, $invar, $slot, $valexp ) = @_;

        "SomeAwesomeDB::write($invar, \"$slot\", $valexp)";
    }

    sub inline_is_slot_initialized {
        my ( $self, $invar, $slot ) = @_;

        "1";
    }

    sub inline_initialize_slot {
        my ( $self, $invar, $slot ) = @_;

        "";
    }

    sub inline_slot_access {
        die "inline_slot_access should not have been used";
    }
}

{
    package Toy;

    use Mouse;
    use Mouse::Util::MetaRole;

    use Test::More;
$TODO = q{Mouse is not yet completed};
    use Test::Exception;

    Mouse::Util::MetaRole::apply_metaroles(
        for             => __PACKAGE__,
        class_metaroles => { instance => ['MooseX::SomeAwesomeDBFields'] },
    );

    lives_ok {
        has lazy_attr => (
            is      => 'ro',
            isa     => 'Bool',
            lazy    => 1,
            default => sub {0},
        );
    }
    "Adding lazy accessor does not use inline_slot_access";

    lives_ok {
        has rw_attr => (
            is => 'rw',
        );
    }
    "Adding read-write accessor does not use inline_slot_access";

    lives_ok { __PACKAGE__->meta->make_immutable; }
    "Inling constructor does not use inline_slot_access";

    done_testing;
}