diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-12-03 21:23:00 +0000 |
---|---|---|
committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-12-08 00:05:10 +0000 |
commit | d2817bd771b5f4a948f1a5395803b7d795453c07 (patch) | |
tree | 4dcff879f83d688917b30fd34b9d4bd35238c03b /t | |
parent | b2d0d92ba8eefbcb5afd8e04a8f263b4938f26ef (diff) | |
download | perl-d2817bd771b5f4a948f1a5395803b7d795453c07.tar.gz |
Add builtin::blessed, refaddr and reftype
Diffstat (limited to 't')
-rw-r--r-- | t/perf/opcount.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/perf/opcount.t b/t/perf/opcount.t index 2be40ee76f..2d3f196174 100644 --- a/t/perf/opcount.t +++ b/t/perf/opcount.t @@ -733,4 +733,25 @@ test_opcount(0, "builtin::isweak is replaced with direct opcode", isweak => 1, }); +test_opcount(0, "builtin::blessed is replaced with direct opcode", + sub { builtin::blessed([]); }, + { + entersub => 0, + blessed => 1, + }); + +test_opcount(0, "builtin::refaddr is replaced with direct opcode", + sub { builtin::refaddr([]); }, + { + entersub => 0, + refaddr => 1, + }); + +test_opcount(0, "builtin::reftype is replaced with direct opcode", + sub { builtin::reftype([]); }, + { + entersub => 0, + reftype => 1, + }); + done_testing(); |