Add builtin::blessed, refaddr and reftype

1 files changed, 19 insertions, 1 deletions

diff --git a/lib/builtin.t b/lib/builtin.t
index b94cef4e40..dec6b9eae2 100644
--- a/lib/builtin.t
+++ b/lib/builtin.t
@@ -66,7 +66,25 @@ package FetchStoreCounter {
 
     weaken($ref);
     undef $arr;
-    ok(!defined $ref, 'ref is now undef after arr is cleared');
+    is($ref, undef, 'ref is now undef after arr is cleared');
+}
+
+# reference queries
+{
+    use builtin qw( refaddr reftype blessed );
+
+    my $arr = [];
+    my $obj = bless [], "Object";
+
+    is(refaddr($arr),        $arr+0, 'refaddr yields same as ref in numeric context');
+    is(refaddr("not a ref"), undef,  'refaddr yields undef for non-reference');
+
+    is(reftype($arr),        "ARRAY", 'reftype yields type string');
+    is(reftype($obj),        "ARRAY", 'reftype yields basic container type for blessed object');
+    is(reftype("not a ref"), undef,   'reftype yields undef for non-reference');
+
+    is(blessed($arr), undef, 'blessed yields undef for non-object');
+    is(blessed($obj), "Object", 'blessed yields package name for object');
 }
 
 # imports are lexical; should not be visible here