diff options
Diffstat (limited to 't/readonly.t')
-rw-r--r-- | t/readonly.t | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/t/readonly.t b/t/readonly.t deleted file mode 100644 index f0b82ea..0000000 --- a/t/readonly.t +++ /dev/null @@ -1,32 +0,0 @@ -#!/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; |