1 files changed, 16 insertions, 0 deletions
diff --git a/ext/XS-APItest/t/join_with_space.t b/ext/XS-APItest/t/join_with_space.t
new file mode 100644
index 0000000000..420f1477dd
--- /dev/null
+++ b/ext/XS-APItest/t/join_with_space.t
@@ -0,0 +1,16 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use XS::APItest qw(join_with_space);
+
+sub foo { 'A' .. 'C' }
+
+my $bar = 42;
+my @baz = ('x', 'y');
+
+my $str = join_with_space $bar, foo, @baz;
+is $str, "42 A B C x y";