1#!perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 1;
7
8use XS::APItest qw(join_with_space);
9
10sub foo { 'A' .. 'C' }
11
12my $bar = 42;
13my @baz = ('x', 'y');
14
15my $str = join_with_space $bar, foo, @baz;
16is $str, "42 A B C x y";
17