summaryrefslogtreecommitdiffstats
path: root/t/readonly.t
diff options
context:
space:
mode:
Diffstat (limited to 't/readonly.t')
-rw-r--r--t/readonly.t32
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;