(* Creating a negative sized array should raise Size. *)

(let
   val v = Array.array(~12, 4)
in
    raise Fail "failed"
end) handle Size => ();

(let
   val v = Array.array(Array.maxLen+1, 4)
in
    raise Fail "failed"
end) handle Size => ();

(let
   val v = Array.tabulate(~12, fn i => i)
in
    raise Fail "failed"
end) handle Size => ();

(let
   val v = Array.tabulate(Array.maxLen+1, fn i => i)
in
    raise Fail "failed"
end) handle Size => ();


Add regression test for negative sized arrays or those larger than the maximum.
Add regression test for negative sized arrays or those larger than the maximum.

git-svn-id: 98787b36aaefbae4b30fa755be920954cd25e1e4@1951 ae7d391e-3f74-4a2b-a0db-a8776840fd2a
