From 35d85cfe78dd870384d3aef07a1e852267061097 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 8 Sep 2012 01:40:52 -0500
Subject: make function arguments readonly

---
 t/basic.t | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 't/basic.t')

diff --git a/t/basic.t b/t/basic.t
index 080c2cf..2b2104f 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -29,4 +29,9 @@ is(sum(1, 2, 3, 4), 10);
 
 ok(exists $Foo::{foo});
 
+fun empty ($bar, $baz) { }
+
+is(scalar(empty(1, 2)), undef);
+is_deeply([empty(1, 2)], []);
+
 done_testing;
-- 
cgit v1.2.3-54-g00ecf