summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-12-03 21:23:00 +0000
committerPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-12-08 00:05:10 +0000
commitd2817bd771b5f4a948f1a5395803b7d795453c07 (patch)
tree4dcff879f83d688917b30fd34b9d4bd35238c03b /t
parentb2d0d92ba8eefbcb5afd8e04a8f263b4938f26ef (diff)
downloadperl-d2817bd771b5f4a948f1a5395803b7d795453c07.tar.gz
Add builtin::blessed, refaddr and reftype
Diffstat (limited to 't')
-rw-r--r--t/perf/opcount.t21
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();