-- Copyright 2023 Stanford University
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
--     http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.

-- Test: `list_ispace` operator on 1d structured ispace.

import "regent"

local c = regentlib.c

task main()
  var is = ispace(int1d, 10)
  var r = region(is, int)

  var l = list_ispace(is)

  -- ForList loop through list.
  do
    var i = 0
    for p in l do
      regentlib.assert(p == int1d(i), "index doesn't match in ForList loop.")
      i += 1
    end
    regentlib.assert(i == 10, "list length is incorrect.")
  end

  -- ForNum loop through list.
  do
    for i = 0, 10 do
      regentlib.assert(l[i] == int1d(i), "index doesn't match in ForNum loop.")
    end
  end

  -- Verify that elements of `l` can be used to index into region.
  r[l[5]] = 42
  regentlib.assert(r[l[5]] == 42, "assignment into region failed.")
end
regentlib.start(main)

