1 /*
   2  * Copyright (c) 2018, 2020, Oracle and/or its affiliates. All rights reserved.
   3  * Copyright (c) 2018, 2020 SAP SE. All rights reserved.
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This code is free software; you can redistribute it and/or modify it
   7  * under the terms of the GNU General Public License version 2 only, as
   8  * published by the Free Software Foundation.
   9  *
  10  * This code is distributed in the hope that it will be useful, but WITHOUT
  11  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13  * version 2 for more details (a copy is included in the LICENSE file that
  14  * accompanied this code).
  15  *
  16  * You should have received a copy of the GNU General Public License version
  17  * 2 along with this work; if not, write to the Free Software Foundation,
  18  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  19  *
  20  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  21  * or visit www.oracle.com if you need additional information or have any
  22  * questions.
  23  *
  24  */
  25 
  26 #include "precompiled.hpp"
  27 
  28 //#define LOG_PLEASE
  29 
  30 #include "metaspaceTestsCommon.hpp"
  31 
  32 static void test_arena_growth_policy(Metaspace::MetaspaceType spacetype, bool is_class) {
  33 
  34   const ArenaGrowthPolicy* a =
  35       ArenaGrowthPolicy::policy_for_space_type((Metaspace::MetaspaceType)spacetype, is_class);
  36 
  37   // initial level
  38   chunklevel_t lvl = a->get_level_at_step(0);
  39   ASSERT_TRUE(is_valid_level(lvl));
  40   if (spacetype != Metaspace::BootMetaspaceType) {
  41     // All types save boot loader should start with small or very small chunks
  42     ASSERT_GE(lvl, CHUNK_LEVEL_4K);
  43   }
  44 
  45   for (int step = 1; step < 100; step ++) {
  46     chunklevel_t lvl2 = a->get_level_at_step(step);
  47     ASSERT_TRUE(is_valid_level(lvl2));
  48     // limit steepness: no growth allowed beyond last chunksize * 2
  49     ASSERT_LE(word_size_for_level(lvl2), word_size_for_level(lvl) * 2);
  50     lvl = lvl2;
  51   }
  52 }
  53 
  54 #define DEFINE_GROWTH_POLICY_TEST(spacetype, is_class) \
  55 TEST_VM(metaspace, arena_growth_policy_##spacetype##_##is_class) { \
  56         test_arena_growth_policy(Metaspace::spacetype, is_class); \
  57 }
  58 
  59 DEFINE_GROWTH_POLICY_TEST(ReflectionMetaspaceType, true)
  60 DEFINE_GROWTH_POLICY_TEST(ReflectionMetaspaceType, false)
  61 DEFINE_GROWTH_POLICY_TEST(ClassMirrorHolderMetaspaceType, true)
  62 DEFINE_GROWTH_POLICY_TEST(ClassMirrorHolderMetaspaceType, false)
  63 DEFINE_GROWTH_POLICY_TEST(StandardMetaspaceType, true)
  64 DEFINE_GROWTH_POLICY_TEST(StandardMetaspaceType, false)
  65 DEFINE_GROWTH_POLICY_TEST(BootMetaspaceType, true)
  66 DEFINE_GROWTH_POLICY_TEST(BootMetaspaceType, false)
  67 
  68 
  69 
  70 
  71