From: Lukas Mai <l.mai@web.de>
Date: Tue, 2 Aug 2011 02:29:29 +0000 (+0200)
Subject: autocurry tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd57283a69c261ea9ccdc70d2f66383facc079d8;p=p5sagit%2FFunction-Parameters.git

autocurry tests
---

diff --git a/t/autocurry.t b/t/autocurry.t
new file mode 100644
index 0000000..2a28cf2
--- /dev/null
+++ b/t/autocurry.t
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Function::Parameters;
+
+fun const($x)() { $x }
+
+fun whatev($x)($y1, $y2)($z) { $x + $y1 * $y2 - $z }
+
+fun cprod(@x)(@y) {
+	my @r;
+	for my $x (@x) {
+		for my $y (@y) {
+			push @r, [$x, $y];
+		}
+	}
+	@r
+}
+
+is const(42)->(0), 42;
+is_deeply [cprod('A', 'B')->(1, 2, 3)], [['A', 1], ['A', 2], ['A', 3], ['B', 1], ['B', 2], ['B', 3]];
+is whatev(100)->(6, 7)(5), 137;
+
+my $add = fun ($x)($y) { $x + $y };
+my $succ = $add->(1);
+
+is $succ->(1), 2;
+is $succ->(9), 10;
+is $succ->(2), 3;
+
+done_testing;