#!perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: keyed.t 16244 2006-12-25 22:14:04Z paultcochrane $

use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Config;
use Parrot::Test tests => 1;

##############################
SKIP: {
    skip( "experimental", 1 );

    pir_output_is( <<'CODE', <<'OUTPUT', "add_keyed" );
.sub test :main
    new P0, .Array
    new P1, .Array
    new P2, .Array
    P0 = 1
    P1 = 2
    P2 = 11
    set P1[1],  32
    set P2[10], 10
    add P0[0], P1[1], P2[10]
    set P4, P0[0]
    print P4
    print "\n"
    end
.end
CODE
42
OUTPUT
}

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
