Add test for GH #40

This points out an issue where keyword arguments aren't being passed to Perl 5
niner · Aug 26, 2015 · 203cabc · 203cabc
1 parent 64826f1
commit 203cabc
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/t/call_hash.t b/t/call_hash.t
@@ -0,0 +1,12 @@
+use v6;
+
+use Test;
+
+use Inline::Perl5;
+
+use lib:from<Perl5> <t/lib>;
+use TakesHash:from<Perl5>;
+
+is(TakesHash.give_hash(:foo<bar>), 'bar');
+
+done;
diff --git a/t/lib/TakesHash.pm b/t/lib/TakesHash.pm
@@ -0,0 +1,12 @@
+package TakesHash;
+
+use strict;
+use warnings;
+
+sub give_hash {
+    my ($class, %args) = @_;
+
+    return $args{foo};
+}
+
+1;