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

File Name : ArrayBasedStorage_test.t

use strict;
use warnings;

use Test::More;

use Scalar::Util 'reftype';
use Class::MOP;

use lib 't/cmop/lib';
use ArrayBasedStorage;

{
    package Foo;

use strict;
    use warnings;
    use metaclass (
        'instance_metaclass'  => 'ArrayBasedStorage::Instance',
    );

Foo->meta->add_attribute('foo' => (
        accessor  => 'foo',
        clearer   => 'clear_foo',
        predicate => 'has_foo',
    ));

Foo->meta->add_attribute('bar' => (
        reader  => 'get_bar',
        writer  => 'set_bar',
        default => 'FOO is BAR'
    ));

sub new  {
        my $class = shift;
        $class->meta->new_object(@_);
    }

package Bar;
    use metaclass (
        'instance_metaclass'  => 'ArrayBasedStorage::Instance',
    );

use strict;
    use warnings;

use parent -norequire => 'Foo';

Bar->meta->add_attribute('baz' => (
        accessor  => 'baz',
        predicate => 'has_baz',
    ));

package Baz;
    use metaclass (
        'instance_metaclass'  => 'ArrayBasedStorage::Instance',
    );

use strict;
    use warnings;
    use metaclass (
        'instance_metaclass'  => 'ArrayBasedStorage::Instance',
    );

Baz->meta->add_attribute('bling' => (
        accessor  => 'bling',
        default   => 'Baz::bling'
    ));

package Bar::Baz;
    use metaclass (
        'instance_metaclass'  => 'ArrayBasedStorage::Instance',
    );

use strict;
    use warnings;

use parent -norequire => 'Bar', 'Baz';
}

my $foo = Foo->new();
isa_ok($foo, 'Foo');

is(reftype($foo), 'ARRAY', '... Foo is made with ARRAY');

can_ok($foo, 'foo');
can_ok($foo, 'has_foo');
can_ok($foo, 'get_bar');
can_ok($foo, 'set_bar');
can_ok($foo, 'clear_foo');

ok(!$foo->has_foo, '... Foo::foo is not defined yet');
is($foo->foo(), undef, '... Foo::foo is not defined yet');
is($foo->get_bar(), 'FOO is BAR', '... Foo::bar has been initialized');

$foo->foo('This is Foo');

ok($foo->has_foo, '... Foo::foo is defined now');
is($foo->foo(), 'This is Foo', '... Foo::foo == "This is Foo"');

$foo->clear_foo;

ok(!$foo->has_foo, '... Foo::foo is not defined anymore');
is($foo->foo(), undef, '... Foo::foo is not defined anymore');

$foo->set_bar(42);
is($foo->get_bar(), 42, '... Foo::bar == 42');

my $foo2 = Foo->new();
isa_ok($foo2, 'Foo');

is(reftype($foo2), 'ARRAY', '... Foo is made with ARRAY');

ok(!$foo2->has_foo, '... Foo2::foo is not defined yet');
is($foo2->foo(), undef, '... Foo2::foo is not defined yet');
is($foo2->get_bar(), 'FOO is BAR', '... Foo2::bar has been initialized');

$foo2->set_bar('DONT PANIC');
is($foo2->get_bar(), 'DONT PANIC', '... Foo2::bar == DONT PANIC');

is($foo->get_bar(), 42, '... Foo::bar == 42');

# now Bar ...

my $bar = Bar->new();
isa_ok($bar, 'Bar');
isa_ok($bar, 'Foo');

is(reftype($bar), 'ARRAY', '... Bar is made with ARRAY');

can_ok($bar, 'foo');
can_ok($bar, 'has_foo');
can_ok($bar, 'get_bar');
can_ok($bar, 'set_bar');
can_ok($bar, 'baz');
can_ok($bar, 'has_baz');

ok(!$bar->has_foo, '... Bar::foo is not defined yet');
is($bar->foo(), undef, '... Bar::foo is not defined yet');
is($bar->get_bar(), 'FOO is BAR', '... Bar::bar has been initialized');
ok(!$bar->has_baz, '... Bar::baz is not defined yet');
is($bar->baz(), undef, '... Bar::baz is not defined yet');

$bar->foo('This is Bar::foo');

ok($bar->has_foo, '... Bar::foo is defined now');
is($bar->foo(), 'This is Bar::foo', '... Bar::foo == "This is Bar"');
is($bar->get_bar(), 'FOO is BAR', '... Bar::bar has been initialized');

$bar->baz('This is Bar::baz');

ok($bar->has_baz, '... Bar::baz is defined now');
is($bar->baz(), 'This is Bar::baz', '... Bar::foo == "This is Bar"');
is($bar->foo(), 'This is Bar::foo', '... Bar::foo == "This is Bar"');
is($bar->get_bar(), 'FOO is BAR', '... Bar::bar has been initialized');

# now Baz ...

my $baz = Bar::Baz->new();
isa_ok($baz, 'Bar::Baz');
isa_ok($baz, 'Bar');
isa_ok($baz, 'Foo');
isa_ok($baz, 'Baz');

is(reftype($baz), 'ARRAY', '... Bar::Baz is made with ARRAY');

can_ok($baz, 'foo');
can_ok($baz, 'has_foo');
can_ok($baz, 'get_bar');
can_ok($baz, 'set_bar');
can_ok($baz, 'baz');
can_ok($baz, 'has_baz');
can_ok($baz, 'bling');

is($baz->get_bar(), 'FOO is BAR', '... Bar::Baz::bar has been initialized');
is($baz->bling(), 'Baz::bling', '... Bar::Baz::bling has been initialized');

ok(!$baz->has_foo, '... Bar::Baz::foo is not defined yet');
is($baz->foo(), undef, '... Bar::Baz::foo is not defined yet');
ok(!$baz->has_baz, '... Bar::Baz::baz is not defined yet');
is($baz->baz(), undef, '... Bar::Baz::baz is not defined yet');

$baz->foo('This is Bar::Baz::foo');

ok($baz->has_foo, '... Bar::Baz::foo is defined now');
is($baz->foo(), 'This is Bar::Baz::foo', '... Bar::Baz::foo == "This is Bar"');
is($baz->get_bar(), 'FOO is BAR', '... Bar::Baz::bar has been initialized');
is($baz->bling(), 'Baz::bling', '... Bar::Baz::bling has been initialized');

$baz->baz('This is Bar::Baz::baz');

ok($baz->has_baz, '... Bar::Baz::baz is defined now');
is($baz->baz(), 'This is Bar::Baz::baz', '... Bar::Baz::foo == "This is Bar"');
is($baz->foo(), 'This is Bar::Baz::foo', '... Bar::Baz::foo == "This is Bar"');
is($baz->get_bar(), 'FOO is BAR', '... Bar::Baz::bar has been initialized');
is($baz->bling(), 'Baz::bling', '... Bar::Baz::bling has been initialized');

Foo->meta->add_attribute( forgotten => is => "rw" );

my $new_baz = Bar::Baz->new;

cmp_ok( scalar(@$new_baz), ">", scalar(@$baz), "additional slot due to refreshed meta instance" );

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
lib	dir	-	root/root	0755	2025-03-20 02:35:22
ArrayBasedStorage_test.t	text/plain	5.37 KB	root/root	0644	2019-10-21 09:36:33
AttributesWithHistory_test.t	text/plain	2.49 KB	root/root	0644	2019-10-21 09:36:33
BinaryTree_test.t	text/plain	10.75 KB	root/root	0644	2019-10-21 09:36:33
C3MethodDispatchOrder_test.t	text/plain	1.01 KB	root/root	0644	2019-10-21 09:36:33
ClassEncapsulatedAttributes_test.t	text/plain	2.53 KB	root/root	0644	2019-10-21 09:36:33
Class_C3_compatibility.t	text/plain	1.51 KB	root/root	0644	2019-10-21 09:36:33
InsideOutClass_test.t	text/plain	6.84 KB	root/root	0644	2019-10-21 09:36:33
InstanceCountingClass_test.t	text/plain	1.13 KB	root/root	0644	2019-10-21 09:36:33
LazyClass_test.t	text/plain	2.61 KB	root/root	0644	2019-10-21 09:36:33
Perl6Attribute_test.t	text/plain	734 B	root/root	0644	2019-10-21 09:36:33
RT_27329_fix.t	text/plain	840 B	root/root	0644	2019-10-21 09:36:33
RT_39001_fix.t	text/plain	717 B	root/root	0644	2019-10-21 09:36:33
RT_41255.t	text/plain	1.03 KB	root/root	0644	2019-10-21 09:36:33
add_attribute_alternate.t	text/plain	2.54 KB	root/root	0644	2019-10-21 09:36:33
add_method_debugmode.t	text/plain	5.07 KB	root/root	0644	2019-10-21 09:36:33
add_method_modifier.t	text/plain	3.85 KB	root/root	0644	2019-10-21 09:36:33
advanced_methods.t	text/plain	4.97 KB	root/root	0644	2019-10-21 09:36:33
anon_class.t	text/plain	2.35 KB	root/root	0644	2019-10-21 09:36:33
anon_class_create_init.t	text/plain	3.93 KB	root/root	0644	2019-10-21 09:36:33
anon_class_keep_alive.t	text/plain	1.44 KB	root/root	0644	2019-10-21 09:36:33
anon_class_leak.t	text/plain	600 B	root/root	0644	2019-10-21 09:36:33
anon_class_removal.t	text/plain	730 B	root/root	0644	2019-10-21 09:36:33
anon_packages.t	text/plain	807 B	root/root	0644	2019-10-21 09:36:33
attribute.t	text/plain	8.68 KB	root/root	0644	2019-10-21 09:36:33
attribute_duplication.t	text/plain	1.81 KB	root/root	0644	2019-10-21 09:36:33
attribute_errors_and_edge_cases.t	text/plain	5.84 KB	root/root	0644	2019-10-21 09:36:33
attribute_get_read_write.t	text/plain	3.61 KB	root/root	0644	2019-10-21 09:36:33
attribute_initializer.t	text/plain	1.05 KB	root/root	0644	2019-10-21 09:36:33
attribute_introspection.t	text/plain	3.16 KB	root/root	0644	2019-10-21 09:36:33
attribute_non_alpha_name.t	text/plain	646 B	root/root	0644	2019-10-21 09:36:33
attributes.t	text/plain	8.91 KB	root/root	0644	2019-10-21 09:36:33
basic.t	text/plain	2.21 KB	root/root	0644	2019-10-21 09:36:33
before_after_dollar_under.t	text/plain	1.85 KB	root/root	0644	2019-10-21 09:36:33
class_errors_and_edge_cases.t	text/plain	5.93 KB	root/root	0644	2019-10-21 09:36:33
class_is_pristine.t	text/plain	470 B	root/root	0644	2019-10-21 09:36:33
class_precedence_list.t	text/plain	2.76 KB	root/root	0644	2019-10-21 09:36:33
constant_codeinfo.t	text/plain	441 B	root/root	0644	2019-10-21 09:36:33
create_class.t	text/plain	2.88 KB	root/root	0644	2019-10-21 09:36:33
custom_instance.t	text/plain	3.13 KB	root/root	0644	2019-10-21 09:36:33
deprecated.t	text/plain	809 B	root/root	0644	2019-10-21 09:36:33
get_code_info.t	text/plain	1.03 KB	root/root	0644	2019-10-21 09:36:33
immutable_custom_trait.t	text/plain	1.35 KB	root/root	0644	2019-10-21 09:36:33
immutable_metaclass.t	text/plain	9.6 KB	root/root	0644	2019-10-21 09:36:33
immutable_w_constructors.t	text/plain	8.42 KB	root/root	0644	2019-10-21 09:36:33
immutable_w_custom_metaclass.t	text/plain	1.8 KB	root/root	0644	2019-10-21 09:36:33
inline_and_dollar_at.t	text/plain	278 B	root/root	0644	2019-10-21 09:36:33
inline_structor.t	text/plain	6.8 KB	root/root	0644	2019-10-21 09:36:33
insertion_order.t	text/plain	894 B	root/root	0644	2019-10-21 09:36:33
instance.t	text/plain	3.55 KB	root/root	0644	2019-10-21 09:36:33
instance_inline.t	text/plain	1.38 KB	root/root	0644	2019-10-21 09:36:33
instance_metaclass_incompat.t	text/plain	1.63 KB	root/root	0644	2019-10-21 09:36:33
instance_metaclass_incompat_dyn.t	text/plain	1.56 KB	root/root	0644	2019-10-21 09:36:33
load.t	text/plain	6.55 KB	root/root	0644	2019-10-21 09:36:33
magic.t	text/plain	1.59 KB	root/root	0644	2019-10-21 09:36:33
make_mutable.t	text/plain	9.14 KB	root/root	0644	2019-10-21 09:36:33
meta_method.t	text/plain	1.97 KB	root/root	0644	2019-10-21 09:36:33
meta_package.t	text/plain	9.61 KB	root/root	0644	2019-10-21 09:36:33
meta_package_extension.t	text/plain	2.29 KB	root/root	0644	2019-10-21 09:36:33
metaclass.t	text/plain	1.13 KB	root/root	0644	2019-10-21 09:36:33
metaclass_incompatibility.t	text/plain	8.51 KB	root/root	0644	2019-10-21 09:36:33
metaclass_incompatibility_dyn.t	text/plain	1.31 KB	root/root	0644	2019-10-21 09:36:33
metaclass_inheritance.t	text/plain	906 B	root/root	0644	2019-10-21 09:36:33
metaclass_loads_classes.t	text/plain	1.08 KB	root/root	0644	2019-10-21 09:36:33
metaclass_reinitialize.t	text/plain	5.06 KB	root/root	0644	2019-10-21 09:36:33
method.t	text/plain	5.69 KB	root/root	0644	2019-10-21 09:36:33
method_modifiers.t	text/plain	6.13 KB	root/root	0644	2019-10-21 09:36:33
methods.t	text/plain	11.26 KB	root/root	0644	2019-10-21 09:36:33
modify_parent_method.t	text/plain	1.61 KB	root/root	0644	2019-10-21 09:36:33
new_and_clone_metaclasses.t	text/plain	3.37 KB	root/root	0644	2019-10-21 09:36:33
null_stash.t	text/plain	205 B	root/root	0644	2019-10-21 09:36:33
numeric_defaults.t	text/plain	3.27 KB	root/root	0644	2019-10-21 09:36:33
package_variables.t	text/plain	8.13 KB	root/root	0644	2019-10-21 09:36:33
random_eval_bug.t	text/plain	783 B	root/root	0644	2019-10-21 09:36:33
rebless_instance.t	text/plain	3.94 KB	root/root	0644	2019-10-21 09:36:33
rebless_instance_away.t	text/plain	985 B	root/root	0644	2019-10-21 09:36:33
rebless_overload.t	text/plain	654 B	root/root	0644	2019-10-21 09:36:33
rebless_with_extra_params.t	text/plain	2.57 KB	root/root	0644	2019-10-21 09:36:33
scala_style_mixin_composition.t	text/plain	4.4 KB	root/root	0644	2019-10-21 09:36:33
self_introspection.t	text/plain	14.31 KB	root/root	0644	2019-10-21 09:36:33
subclasses.t	text/plain	1.29 KB	root/root	0644	2019-10-21 09:36:33
subname.t	text/plain	849 B	root/root	0644	2019-10-21 09:36:33
universal_methods.t	text/plain	1.01 KB	root/root	0644	2019-10-21 09:36:33

Team Anon Force

https://t.me/Professor6T9x