byp4a55 professor6T9

Linux ded7073.inmotionhosting.com 4.18.0-553.72.1.el8_10.x86_64 #1 SMP Tue Sep 2 06:07:48 EDT 2025 x86_64
Apache
209.182.213.109

class-mop-attribute.t

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Moose();

{
    my $exception =  exception {
        my $class = Class::MOP::Attribute->new;
    };

like(
        $exception,
        qr/You must provide a name for the attribute/,
        "no attribute name given to new");

isa_ok(
        $exception,
        "Moose::Exception::MOPAttributeNewNeedsAttributeName",
        "no attribute name given to new");
}

{
    my $exception =  exception {
        Class::MOP::Attribute->new( "foo", ( builder => [123] ));
    };

like(
        $exception,
        qr/builder must be a defined scalar value which is a method name/,
        "an array ref is given as builder");

isa_ok(
        $exception,
        "Moose::Exception::BuilderMustBeAMethodName",
        "an array ref is given as builder");
}

{
    my $exception =  exception {
        Class::MOP::Attribute->new( "foo", ( builder => "bar", default => "xyz" ));
    };

like(
        $exception,
        qr/\QSetting both default and builder is not allowed./,
        "builder & default, both are given");

isa_ok(
        $exception,
        "Moose::Exception::BothBuilderAndDefaultAreNotAllowed",
        "builder & default, both are given");
}

{
    my $exception =  exception {
        Class::MOP::Attribute->new( "foo", ( default => [1] ) );
    };

like(
        $exception,
        qr/\QReferences are not allowed as default values, you must wrap the default of 'foo' in a CODE reference (ex: sub { [] } and not [])/,
        "default value can't take references");

isa_ok(
        $exception,
        "Moose::Exception::ReferencesAreNotAllowedAsDefault",
        "default value can't take references");

is(
        $exception->attribute_name,
        "foo",
        "default value can't take references");
}

{
    my $exception =  exception {
        Class::MOP::Attribute->new( "foo", ( required => 1, init_arg => undef ) );
    };

like(
        $exception,
        qr/A required attribute must have either 'init_arg', 'builder', or 'default'/,
        "no 'init_arg', 'builder' or 'default' is given");

isa_ok(
        $exception,
        "Moose::Exception::RequiredAttributeLacksInitialization",
        "no 'init_arg', 'builder' or 'default' is given");
}

{
    my $exception =  exception {
        my $foo = Class::MOP::Attribute->new("bar", ( required => 1, init_arg => undef, builder => 'foo'));
        $foo->initialize_instance_slot( $foo->meta, $foo );
    };

like(
        $exception,
        qr/\QClass::MOP::Attribute does not support builder method 'foo' for attribute 'bar'/,
        "given builder method doesn't exist");

isa_ok(
        $exception,
        "Moose::Exception::BuilderMethodNotSupportedForAttribute",
        "given builder method doesn't exist");

is(
        $exception->attribute->name,
        "bar",
        "given builder method doesn't exist");

is(
        $exception->attribute->builder,
        "foo",
        "given builder method doesn't exist");
}

{
    my $exception =  exception {
        my $foo = Class::MOP::Attribute->new("foo");
        $foo->attach_to_class( "Foo" );
    };

like(
        $exception,
        qr/\QYou must pass a Class::MOP::Class instance (or a subclass)/,
        "attach_to_class expects an instance Class::MOP::Class or its subclass");

isa_ok(
        $exception,
        "Moose::Exception::AttachToClassNeedsAClassMOPClassInstanceOrASubclass",
        "attach_to_class expects an instance Class::MOP::Class or its subclass");

is(
        $exception->attribute->name,
        "foo",
        "attach_to_class expects an instance Class::MOP::Class or its subclass");

is(
        $exception->class,
        "Foo",
        "attach_to_class expects an instance Class::MOP::Class or its subclass");
}

{
    my $array = ["foo"];
    my $bar = Class::MOP::Attribute->new("bar", ( is => 'ro', predicate => $array));
    my $exception =  exception {
        $bar->install_accessors;
    };

like(
        $exception,
        qr!bad accessor/reader/writer/predicate/clearer format, must be a HASH ref!,
        "an array reference is given to predicate");

isa_ok(
        $exception,
        "Moose::Exception::BadOptionFormat",
        "an array reference is given to predicate");

is(
        $exception->attribute->name,
        "bar",
        "an array reference is given to predicate");

is(
        $exception->option_name,
        "predicate",
        "an array reference is given to predicate");

is(
        $exception->option_value,
        $array,
        "an array reference is given to predicate");
}

{
    my $bar = Class::MOP::Attribute->new("bar", ( is => 'ro', predicate => "foo"));
    my $exception =  exception {
        $bar->install_accessors;
    };

like(
        $exception,
        qr/\QCould not create the 'predicate' method for bar because : Can't call method "name" on an undefined value/,
        "Can't call method 'name' on an undefined value");

isa_ok(
        $exception,
        "Moose::Exception::CouldNotCreateMethod",
        "Can't call method 'name' on an undefined value");

is(
        $exception->attribute->name,
        "bar",
        "Can't call method 'name' on an undefined value");

is(
        $exception->option_name,
        "predicate",
        "Can't call method 'name' on an undefined value");

is(
        $exception->option_value,
        "foo",
        "Can't call method 'name' on an undefined value");
}

done_testing;

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2025-03-20 02:35:22
..	dir	-	root/root	0755	2025-03-20 02:35:22
attribute.t	text/plain	28.76 KB	root/root	0644	2019-10-21 09:36:33
class-mop-attribute.t	text/plain	5.43 KB	root/root	0644	2019-10-21 09:36:33
class-mop-class-immutable-trait.t	text/plain	1.31 KB	root/root	0644	2019-10-21 09:36:33
class-mop-class.t	text/plain	16.58 KB	root/root	0644	2019-10-21 09:36:33
class-mop-method-accessor.t	text/plain	7.33 KB	root/root	0644	2019-10-21 09:36:33
class-mop-method-constructor.t	text/plain	1.51 KB	root/root	0644	2019-10-21 09:36:33
class-mop-method-generated.t	text/plain	971 B	root/root	0644	2019-10-21 09:36:33
class-mop-method-meta.t	text/plain	510 B	root/root	0644	2019-10-21 09:36:33
class-mop-method-wrapped.t	text/plain	415 B	root/root	0644	2019-10-21 09:36:33
class-mop-method.t	text/plain	879 B	root/root	0644	2019-10-21 09:36:33
class-mop-mixin-hasattributes.t	text/plain	2.09 KB	root/root	0644	2019-10-21 09:36:33
class-mop-mixin-hasmethods.t	text/plain	2.43 KB	root/root	0644	2019-10-21 09:36:33
class-mop-module.t	text/plain	427 B	root/root	0644	2019-10-21 09:36:33
class-mop-object.t	text/plain	2.34 KB	root/root	0644	2019-10-21 09:36:33
class-mop-package.t	text/plain	827 B	root/root	0644	2019-10-21 09:36:33
class.t	text/plain	6.73 KB	root/root	0644	2019-10-21 09:36:33
cmop.t	text/plain	380 B	root/root	0644	2019-10-21 09:36:33
exception-lazyattributeneedsadefault.t	text/plain	1.52 KB	root/root	0644	2019-10-21 09:36:33
frame-leak.t	text/plain	428 B	root/root	0644	2019-10-21 09:36:33
meta-role.t	text/plain	5.25 KB	root/root	0644	2019-10-21 09:36:33
metaclass.t	text/plain	662 B	root/root	0644	2019-10-21 09:36:33
moose-exporter.t	text/plain	3 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-attribute-native-traits.t	text/plain	3.27 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-class-immutable-trait.t	text/plain	505 B	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-array.t	text/plain	9.97 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-collection.t	text/plain	1.07 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-grep.t	text/plain	1.14 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-hash-set.t	text/plain	1.29 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-hash.t	text/plain	1.16 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-string-match.t	text/plain	1.13 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-string-replace.t	text/plain	2.15 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native-string-substr.t	text/plain	3.11 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor-native.t	text/plain	2.62 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-accessor.t	text/plain	1.29 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-augmented.t	text/plain	565 B	root/root	0644	2019-10-21 09:36:33
moose-meta-method-constructor.t	text/plain	857 B	root/root	0644	2019-10-21 09:36:33
moose-meta-method-delegation.t	text/plain	4.04 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-destructor.t	text/plain	2.09 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-method-overridden.t	text/plain	715 B	root/root	0644	2019-10-21 09:36:33
moose-meta-role-application-rolesummation.t	text/plain	4.8 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-role-application-toclass.t	text/plain	10.25 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-role-application-torole.t	text/plain	8.06 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-role-application.t	text/plain	2.46 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-role-attribute.t	text/plain	814 B	root/root	0644	2019-10-21 09:36:33
moose-meta-role-composite.t	text/plain	1.83 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-typecoercion-union.t	text/plain	1.5 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-typecoercion.t	text/plain	1.14 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-typeconstraint-enum.t	text/plain	1.47 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-typeconstraint-parameterizable.t	text/plain	1.62 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-typeconstraint-parameterized.t	text/plain	1.93 KB	root/root	0644	2019-10-21 09:36:33
moose-meta-typeconstraint-registry.t	text/plain	525 B	root/root	0644	2019-10-21 09:36:33
moose-meta-typeconstraint.t	text/plain	3.21 KB	root/root	0644	2019-10-21 09:36:33
moose-role.t	text/plain	7 KB	root/root	0644	2019-10-21 09:36:33
moose-util-metarole.t	text/plain	3.95 KB	root/root	0644	2019-10-21 09:36:33
moose-util-typeconstraints.t	text/plain	3.61 KB	root/root	0644	2019-10-21 09:36:33
moose.t	text/plain	4 KB	root/root	0644	2019-10-21 09:36:33
object.t	text/plain	1.52 KB	root/root	0644	2019-10-21 09:36:33
overload.t	text/plain	1.05 KB	root/root	0644	2019-10-21 09:36:33
rt-92818.t	text/plain	866 B	root/root	0644	2019-10-21 09:36:33
rt-94795.t	text/plain	607 B	root/root	0644	2019-10-21 09:36:33
stringify.t	text/plain	2.4 KB	root/root	0644	2019-10-21 09:36:33
traits.t	text/plain	714 B	root/root	0644	2019-10-21 09:36:33
typeconstraints.t	text/plain	7.4 KB	root/root	0644	2019-10-21 09:36:33
util.t	text/plain	4.35 KB	root/root	0644	2019-10-21 09:36:33
with-debugging.t	text/plain	797 B	root/root	0644	2019-10-21 09:36:33
without-debugging.t	text/plain	798 B	root/root	0644	2019-10-21 09:36:33

Team Anon Force

https://t.me/Professor6T9x