diff options
Diffstat (limited to 't')
-rw-r--r-- | t/basic.t | 5 | ||||
-rw-r--r-- | t/readonly.t | 32 |
2 files changed, 0 insertions, 37 deletions
@@ -29,9 +29,4 @@ 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 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; |