1 files changed, 14 insertions, 0 deletions
diff --git a/t/03proto.t b/t/03proto.t
new file mode 100644
index 0000000..77287c9
--- /dev/null
+++ b/t/03proto.t
@@ -0,0 +1,14 @@
+#!perl
+
+use Test::More tests => 6;
+use Sub::Identify ':all';
+for my $f (qw(
+    sub_name
+    stash_name
+    sub_fullname
+    get_code_info
+    get_code_location
+    is_sub_constant
+)) {
+    is(prototype($f), '$', "Prototype of $f is \$")
+}