use v6-alpha;

use Test;

plan 11;

# L<S29/"Str" /capitalize/>

is capitalize(""),             "",               "capitalize('') works";
is capitalize("puGS Is cOOl!"), "Pugs Is Cool!", "capitalize('...') works";
is "puGS Is cOOl!".capitalize,  "Pugs Is Cool!", "'...'.capitalize works";

my $a = "";
is capitalize($a),             "",               "capitalize empty string";
$a = "puGS Is cOOl!";
is capitalize($a),             "Pugs Is Cool!",  "capitalize string works";
is $a,                         "puGS Is cOOl!",  "original srting not touched";
is $a.capitalize,              "Pugs Is Cool!",  "capitalize string works";
is $a,                         "puGS Is cOOl!",  "original srting not touched";
is "ab cD Ef".capitalize,      "Ab Cd Ef",       "works on ordenary string";


$_ = "puGS Is cOOl!";
is .capitalize, "Pugs Is Cool!", 'capitalize() uses \$_ as default';

# Non-ASCII chars:
is capitalize("äöü abcä"), "Äöü Abcä", "capitalize() works on non-ASCII chars";