% $Id: NewArrayTest.oz,v 1.1 2011/11/28 17:03:30 leavens Exp $
\insert 'NewArray.oz'
\insert 'TestingNoStop.oz'
{StartTesting 'NewArrayTest $Revision: 1.1 $'}
declare
MyArr = {NewArray 10 0}
{ArraySet MyArr 3 33}
{Test {ArrayGet MyArr 3} '==' 33}
{Test {ArrayGet MyArr 1} '==' 0}
{Test {ArrayGet MyArr 10} '==' 0}
{ArraySet MyArr 3 333}
{Test {ArrayGet MyArr 3} '==' 333}
{Test {ArrayGet MyArr 2} '==' 0}
{Test {ArrayGet MyArr 4} '==' 0}
{Test {ArraySize MyArr} '==' 10}
{ArraySet MyArr 10 1010}
{Test {ArrayGet MyArr 10} '==' 1010}
{ArraySet MyArr 10 10001}
{Test {ArrayGet MyArr 10} '==' 10001}
{DoneTesting}