// Copyright 2022 the V8 project authors. All rights reserved.
// Use of this source code is governed by a BSD-style license that can be
// found in the LICENSE file.

#include <stdlib.h>

#include "src/heap/factory.h"
#include "src/objects/objects-inl.h"
#include "test/unittests/test-utils.h"
#include "testing/gtest/include/gtest/gtest.h"

namespace v8 {
namespace internal {

using ArrayListTest = TestWithContext;

TEST_F(ArrayListTest, ArrayList) {
  HandleScope scope(i_isolate());
  DirectHandle<ArrayList> array = i_isolate()->factory()->empty_array_list();
  EXPECT_EQ(0u, array->ulength().value());
  array = ArrayList::Add(i_isolate(), array,
                         direct_handle(Smi::FromInt(100), i_isolate()));
  EXPECT_EQ(1u, array->ulength().value());
  EXPECT_EQ(100, Smi::ToInt(array->get(0)));
  array = ArrayList::Add(i_isolate(), array,
                         direct_handle(Smi::FromInt(200), i_isolate()),
                         direct_handle(Smi::FromInt(300), i_isolate()));
  EXPECT_EQ(3u, array->ulength().value());
  EXPECT_EQ(100, Smi::ToInt(array->get(0)));
  EXPECT_EQ(200, Smi::ToInt(array->get(1)));
  EXPECT_EQ(300, Smi::ToInt(array->get(2)));
  array->set(2, Smi::FromInt(400));
  EXPECT_EQ(400, Smi::ToInt(array->get(2)));
  array->set(2, ReadOnlyRoots(i_isolate()).undefined_value());
  array->set_length(2);
  EXPECT_EQ(2u, array->ulength().value());
  EXPECT_EQ(100, Smi::ToInt(array->get(0)));
  EXPECT_EQ(200, Smi::ToInt(array->get(1)));
}

}  // namespace internal
}  // namespace v8