From 906bcd2d0c4fc4b4c1bbfd6616fbc3c3ba550612 Mon Sep 17 00:00:00 2001 From: Stevan Little Date: Sun, 9 Sep 2012 00:24:01 -0400 Subject: tests to make phaylon happy --- t/defaults.t | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/t/defaults.t b/t/defaults.t index 7f710b6..c7505f3 100644 --- a/t/defaults.t +++ b/t/defaults.t @@ -45,4 +45,13 @@ fun baz ($a, $b = our $FOO) { our $FOO = "abc"; is(baz("123"), "123 abc"); +fun goorch ($x, $y = []) { + return $y +} + +my $goorch_y_1 = goorch( 10 ); +my $goorch_y_2 = goorch( 10 ); + +isnt($goorch_y_1, $goorch_y_2, '... not the same reference'); + done_testing; -- cgit v1.2.3-54-g00ecf