objecthash.t

use v6;
use Test;

plan 55;

{
    class A { method Str() { 'foo' } };
    my $a = A.new;

    my %h{Any};
    %h{$a} = 'blubb';
    is  %h{$a}, 'blubb', 'Any-typed hash access (+)';
    nok %h{A.new},       'and the hash really uses ===-semantics';
    dies-ok { %h{Mu.new} = 3 }, 'Any-typed hash does not like Mu keys';
    ok %h.keys.list[0] === $a, 'returned key is correct';
} #4

{
    my %h{Int};
    %h{2} = 3;
    is %h{1 + 1}, 3, 'value-type semantics';
    dies-ok { %h{'foo'} }, 'non-conformant type dies';
} #2

# combinations of typed and objecthash
{
    my Int %h{Rat};
    %h{0.5} = 1;
    %h{0.3} = 2;
    dies-ok { %h{2} = 3 },     'key type mismatch';
    dies-ok { %h{0.5} = 0.2 }, 'value type mismatch';
    dies-ok { %h{2} = 0.5 },   'key and value type mismatch';
    is %h.keys.sort.join(','), '0.3,0.5', '.keys';
    is ~%h.values.sort,        '1 2',     '.values';
    isa-ok %h.kv.list[0],           Rat,  '.kv types (1)';
    isa-ok %h.kv.list[1],           Int,  '.kv types (2)';
    isa-ok %h.pairs.list[0].key,    Rat,  '.pairs.key type';
    isa-ok %h.pairs.list[0].value,  Int,  '.pairs.value type';
    is %h.elems,               2,         '.elems';
    lives-ok { %h{0.2} := 3 }, 'binding to typed objecthash elements';
    is %h.elems,               3,         'updated .elems';
    dies-ok  { %h{ 3 } := 3 }, 'binding key type check failure';
    dies-ok  { %h{0.2} := 'a' }, 'binding value type check failure';
    dies-ok  { %h.push: 0.5 => 2 },
             'Hash.push fails when the resulting array conflicts with the type check';
    lives-ok { %h.push: 0.9 => 3 }, 'Hash.push without array creation is OK';
    dies-ok  { %h.push: 1 => 3 },   'Hash.push key type check failure';
    dies-ok  { %h.push: 1.1 => 0.2 }, 'Hash.push value type check failure';
} #18

{
    my %h{Any};
    %h = 1, 2;
    ok %h.keys.list[0] === 1, 'list assignment + object hashes';
} #1

{
    my %h{Mu};
    #?rakudo todo 'oh noes, it dies'
    lives-ok { %h{Mu} = 2 }, "using Mu as a key (1)"; # TODO: remove 'lives-ok' when this no longer dies
    #?rakudo skip 'oh noes, it dies'
    is %h{Mu}, 2, 'using Mu as a key (2)';
    %h{Any} = 3;
    is %h{Any}, 3, 'using Any as a key';
    #?rakudo skip 'oh noes, it dies'
    is %h{ Mu, Any }.join(","), "2,3", 'check slice access on Mu';
    #?rakudo todo 'oh noes, it dies'
    is %h{*}.join(","), "2,3", 'check whatever access with Mu as key';
} #6

# RT #118037
{
    my %h{Any};
    %h{Any}=1;
    ok %h{Any}:exists, '.exists returns True on a %h{Any} in a TypedHash';
}

# RT #125249
{
    lives-ok { my %h = my %x{Date}; },
        'declaring empty object hash on rhs of assignment to hash does not die with "Cannot look up attributes in a type object"';
}

# RT #125352
{
    is (my %h1).list.elems, 0, 'empty hash listifies to empty list';
    is (my %h2{Any}).list.elems, 0, 'empty object hash listifies to empty list';
}

# RT #118031
{
    my %h{Any};
    my %i:=%h.new;
    is %h.WHAT, %i.WHAT, "New on an object hash instance produces an object hash";

    my %j:=%h.new;
    is %h.WHAT, %j.WHAT, "Clone of an object hash instance is an object hash";
}

# RT #111498
{
    my $r1 = role { method foo() { 5 } };
    my $r2 = role { method foo() { 7 } };
    my %hash{Any};
    %hash{"quux" but $r1} = 9;
    %hash{"quux" but $r2} = 11;

    is %hash.keys>>.foo.sort, (5, 7), 'Can use mixin objects as keys';
}

{
    my %a = 1 => {2 => {3 => 42}};

    is-deeply %a{1;2}:exists,         True;
    is-deeply %a{1;2;3}:exists,       True;
    is-deeply %a{1;2;3;4}:exists,     False;

    is-deeply %a{-99;2;3}:exists,     False;
    is-deeply %a{1;-99;3}:exists,     False;
    is-deeply %a{1;2;-99}:exists,     False;

    is-deeply %a{1,1;2;3}:exists,     (True, True);
    is-deeply %a{1;2,2;3}:exists,     (True, True);
    is-deeply %a{1;2;3,3}:exists,     (True, True);

    is-deeply %a{1,-99;2;3}:exists,   (True, False);
    is-deeply %a{1;2,-99;3}:exists,   (True, False);
    is-deeply %a{1;2;3,-99}:exists,   (True, False);

    is-deeply %a{1,1;2,2;3}:exists,   (True, True, True, True);
    is-deeply %a{1,1;2;3,3}:exists,   (True, True, True, True);
    is-deeply %a{1;2,2;3,3}:exists,   (True, True, True, True);

    is-deeply %a{1,1;2,2;3,3}:exists, (True, True, True, True, True, True, True, True);

    is-deeply %a{1;1..3}:exists,      (False, True, False);
}

{
    eval-lives-ok 'my %*a{Int}', "Accept dynamic object hash"
}

#vim: ft=perl6