From a78111e4a8945819186ab6182db924c2935a3930 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 10 Jul 2013 19:46:05 -0400
Subject: initial implementation

---
 t/basic.t | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 t/basic.t

(limited to 't')

diff --git a/t/basic.t b/t/basic.t
new file mode 100644
index 0000000..94d9a07
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+undef $@;
+eval "blessed('')";
+like($@, qr/^Undefined subroutine &main::blessed called/);
+
+{
+    use lexically 'Scalar::Util', 'blessed';
+    ok(blessed(bless {}));
+    ok(!blessed([]));
+}
+
+undef $@;
+eval "blessed('')";
+like($@, qr/^Undefined subroutine &main::blessed called/);
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf