SKIP: { skip( "instantiate disabled", 1 ); pir_output_is( <<'CODE', <<'OUT', 'instantiate, assign' ); .sub main :main .local pmc cl, p, kv, k, v k = new 'String' k = "key" v = new 'String' v = "value" cl = get_class "Pair" p = cl."instantiate"(k, v)

    $P0 = p."key"()
    print $P0
    print ' '
    $P0 = p."value"()
    print $P0
    print ' '

    v = new 'Integer'
    v = 77
    assign p, v
    $P0 = p."value"()
    say $P0
.end
CODE
key value 77
OUT
}


parrot