anonymous.t

useTest;

# L<S12/Classes/"Raku supports multiple inheritance, anonymous classes">
plan18;

# Create and instantiate empty class; check .WHAT works and stringifies to
# empty string.
my$c1= class { };
my$t1=$c1.new();
ok(defined($t1), 'instantiated the class');
ok($t1~~$c1, 'isa check works');
#?rakudo todo 'Anonymous class stringification (?)'
is($c1.WHAT().gist, '()', '.WHAT.gist stringifies to ()');

# Anonymous classes with methods.
my$c2= class { methodfoo { 42 }; methodbar { 28 } };
my$t2=$c2.new();
is($t2.foo, 42, 'can call methods on anonymous classes');
is($t2.bar, 28, 'can call methods on anonymous classes');

# Anonymous classes with attributes.
my$c3= class { has$.x };
my$t3=$c3.new(x=>42);
is($t3.x, 42, 'anonymous classes can have attributes');

{
my$class;
lives-ok { $class= class { methodmeth() { return42 } }} ,
"anonymous class creation";

my$a;
ok ($a=$class.new), "instantiation of anonymous class";
is$a.meth, 42, "calling a method on an instance of an anonymous class (1)";

# And the same w/o using a $class variable:
is (class { methodmeth() { return42 } }).new.meth, 42,
"calling a method on an instance of an anonymous class (2)";
}

# Anonymous classes can inherit from named classes.
{
classTestParent { methodfoo { 42 } }
my$x= class :: is TestParent { }
ok($x~~ TestParent, 'anonymous class isa TestParent');
is($x.foo, 42, 'inherited method from TestParent');
}

# https://github.com/Raku/old-issue-tracker/issues/924
{
subrt64888 {
 (
 class {
methodStringy() { 'RT #64888' }
methodNumeric() { 64888 }
 }
 ).new
 }
my$i1;
my$i2;

lives-ok { $i1= rt64888() }, 'can get anonymous class instance once';
lives-ok { $i2= rt64888() }, 'can get anonymous class instance twice';

is~$i1, 'RT #64888', 'anonymous class stringified works';
is+$i1, 64888, 'anonymous class numified works';
}

# https://github.com/Raku/old-issue-tracker/issues/2282
throws-likeq[anon class C { }; C.WHAT; ], X::Undeclared::Symbols,
'anon class is actually anon';

# https://github.com/Raku/old-issue-tracker/issues/2884
{
ok (class {}) !=== (class {}), 'anonymous classes are distinct';
}

# vim: expandtab shiftwidth=4