diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-09-08 01:40:52 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-09-08 01:42:04 -0500 |
commit | 35d85cfe78dd870384d3aef07a1e852267061097 (patch) | |
tree | 767c0fed4fd40f1cada0da440e01021060fc2ca2 /t | |
parent | 49c27e0e6a8aa7067d97e5723c741be4456e3759 (diff) | |
download | fun-35d85cfe78dd870384d3aef07a1e852267061097.tar.gz fun-35d85cfe78dd870384d3aef07a1e852267061097.zip |
make function arguments readonly
Diffstat (limited to 't')
-rw-r--r-- | t/basic.t | 5 | ||||
-rw-r--r-- | t/readonly.t | 32 |
2 files changed, 37 insertions, 0 deletions
@@ -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; diff --git a/t/readonly.t b/t/readonly.t new file mode 100644 index 0000000..f0b82ea --- /dev/null +++ b/t/readonly.t @@ -0,0 +1,32 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Fun; + +my $thing = 1; + +fun foo ($bar) { $bar = 1 } + +ok(!eval { foo(); 1 }); +ok(!eval { foo(1); 1 }); +ok(!eval { foo($thing); 1 }); +ok(!eval { foo($thing + 1); 1 }); + +fun bar ($baz) { $baz } + +ok(eval { bar(); 1 }); +ok(eval { bar(1); 1 }); +ok(eval { bar($thing); 1 }); +ok(eval { bar($thing + 1); 1 }); + +ok(eval { $thing = 2; 1 }); +is($thing, 2); + +fun baz ($quux) { $_[0] = 1 } + +ok(eval { baz($thing); 1 }); +is($thing, 1); + +done_testing; |