# Copyright (C) 2006-2009, Parrot Foundation.
# $Id: skeleton.pir 38369 2009-04-26 12:57:09Z fperrad $

.sub main :main
    .local pmc array, hash
    array = new ['ResizablePMCArray']
    hash = new ['Hash']

    array[0] = "hello"
    array[1] = 1
    array[2] = 3.5

    $P0 = new ['ResizablePMCArray']
    $P0[0] = "hello"
    $P1 = box 1
    $P0[1] = $P1
    $P0[2] = 3.5

    # Dies because MMD fails
    $I0 = iseq $P0, array
    say "is_equal with array"
    say $I0

    hash['one'] = "hello"
    hash['two'] = 1
    hash['three'] = 3.5

    $P3 = clone hash
    # Also dies because of MMD failure
    $I0 = iseq $P3, hash
    say "is_equal with hash"
    say $I0
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: