gnu/usr.bin/perl/ext/XS-APItest/t/join_with_space.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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";