mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Unit-test that class NAME VERSION :ATTRS syntax works

Browse Source 
[GH #20891]
This commit is contained in:
Paul "LeoNerd" Evans 2023-08-18 22:35:53 +01:00 committed by Paul Evans
parent cd622ffb09
commit b0cb9aaabb
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
t/class/inherit.t
View File

@ -105,4 +105,13 @@ use A::B;
EOS
}
{
# https://github.com/Perl/perl5/issues/20891
class Test6A 1.23 {}
class Test6B 1.23 :isa(Test6A) {}
ok(Test6B->new isa Test6A, 'Test6B inherits Test6B');
is(Test6B->VERSION, 1.23, 'Test6B sets VERSION');
}
done_testing;