2 * Copyright 2011-2012 GRNET S.A. All rights reserved.
4 * Redistribution and use in source and binary forms, with or
5 * without modification, are permitted provided that the following
8 * 1. Redistributions of source code must retain the above
9 * copyright notice, this list of conditions and the following
12 * 2. Redistributions in binary form must reproduce the above
13 * copyright notice, this list of conditions and the following
14 * disclaimer in the documentation and/or other materials
15 * provided with the distribution.
17 * THIS SOFTWARE IS PROVIDED BY GRNET S.A. ``AS IS'' AND ANY EXPRESS
18 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
19 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
20 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL GRNET S.A OR
21 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
22 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
23 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
24 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
25 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
27 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 * POSSIBILITY OF SUCH DAMAGE.
30 * The views and conclusions contained in the software and
31 * documentation are those of the authors and should not be
32 * interpreted as representing official policies, either expressed
33 * or implied, of GRNET S.A.
36 package gr.grnet.aquarium.policy
39 import gr.grnet.aquarium.Timespan
40 import gr.grnet.aquarium.charging.{OnceChargingBehavior, ContinuousChargingBehavior, VMChargingBehavior}
41 import gr.grnet.aquarium.charging.VMChargingBehavior.Selectors.Power
42 import gr.grnet.aquarium.util.nameOfClass
43 import FullPriceTable.DefaultSelectorKey
47 * @author Christos KK Loverdos <loverdos@gmail.com>
51 final lazy val policy = StdPolicy(
52 id = "default-policy",
55 validityTimespan = Timespan(0),
58 ResourceType("diskspace", "MB/Hr", nameOfClass[ContinuousChargingBehavior]),
59 ResourceType("vmtime", "Hr", nameOfClass[VMChargingBehavior])
62 chargingBehaviors = Set(
63 nameOfClass[VMChargingBehavior],
64 nameOfClass[ContinuousChargingBehavior],
65 nameOfClass[OnceChargingBehavior]
69 "default" -> FullPriceTable(Map(
71 DefaultSelectorKey -> EffectivePriceTable(EffectiveUnitPrice(0.01) :: Nil)
74 Power.powerOn -> EffectivePriceTable(EffectiveUnitPrice(0.01) :: Nil),
75 Power.powerOff -> EffectivePriceTable(EffectiveUnitPrice(0.001) :: Nil) // cheaper when the VM is OFF
82 def testJson(): Unit = {
83 val json = policy.toJsonString
84 val obj = PolicyModel.fromJsonString(json)