use v6-alpha;

use Test;

# L<S29/Str/=item length>

=kwid

Various length tests (though "length" should not be used)

This does not adequately test .chars, which is language dependent 
and needs more careful tests.

L<"http://www.unicode.org/unicode/reports/tr11/">

=cut

plan 54;

eval_dies_ok('"moose".length', 'Str.length properly not implemented');

# string literals, for sanity

is("".bytes,         0, "empty string");
is("moose".bytes,    5, "moose");
my $x = undef; 
ok(!(try { $x.bytes }), "undef.bytes fail()s");
# See thread "undef.chars" on p6l started by Ingo Blechschmidt:
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22595">

# Precedence tests
ok (chars "abcdef" > 4),     "chars() has the right precedence (1)";
is (chars("abcdef" > 4)), 0, "chars() has the right precedence (2)";

# and the real tests.

# Please add test strings in your favorite script, especially if
# it is boustrophedonic or otherwise interesting.
my @stringy = <@stringy>;
my @data = (
    # string       octets codepoints grapheme chars
    "",               0,        0,         0,  0,
    "moose",          5,        5,         5,  5,
    "C:\\Program Files",           16,        16,         16,  16,
    ~@stringy,           8,          8,         8,   8,
    "\x020ac \\x020ac",           11,        9,         9,  9,
    "בדיקה",         10,        5,         5,  5,
    "בדיקה 123",     14,        9,         9,  9,
    "rántottcsirke",    14,        13,       13,  13,
    "aáeéiíoóöőuúüű",   23,   14,  14,    14,
    "AÁEÉIÍOÓÖŐUÚÜŰ",   23,   14,  14,    14,
    "»«",               4, 2, 2, 2,
    ">><<",             4, 4, 4, 4,

);
#:map { my %hash; %hash<string bytes codes graphs> = $_; \%hash };

for @data -> $string, $bytes, $codes, $graphs, $chars {
    is($string.bytes, $bytes, "'{$string}'.bytes");
    is($string.chars, $chars, "'{$string}'.chars");
    is($string.codes, $codes, "'{$string}'.codes");
    is($string.graphs, $graphs, "'{$string}'.graphs");
}