use v6.d;

use Test;

# String appending with ~ operator
# L<S03/Changes to Perl 5 operators/string concatenation becomes stitching>

plan 7;

# Again, mostly stolen from Perl 5

my $a = 'ab' ~ 'c';
is($a, 'abc', '~ two literals correctly');

my $b = 'def';

my $c = $a ~ $b;
is($c, 'abcdef', '~ two variables correctly');

$c ~= "xyz";
is($c, 'abcdefxyz', '~= a literal string correctly');

my $d = $a;
$d ~= $b;
is($d, 'abcdef', '~= variable correctly');

is('' ~ '', '', 'Concatenating two empty strings');
is($d ~ '', $d, 'Concatenente non-empty and empty string');
is('' ~ $d, $d, 'Concatenente empty and non-empty string');

# vim: ft=perl6
