/*
 * Copyright (C) 2015 Open Source Robotics Foundation
 *
 * 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.
 *
*/

#include <boost/any.hpp>
#include "gazebo/test/ServerFixture.hh"
#include "gazebo/physics/World.hh"
#include "gazebo/physics/PhysicsTypes.hh"
#include "gazebo/test/helper_physics_generator.hh"

using namespace gazebo;

class PresetManagerTest : public ServerFixture,
    public testing::WithParamInterface<const char*>
{
};

/////////////////////////////////////////////////
TEST_P(PresetManagerTest, InitializeAllPhysicsEngines)
{
  const std::string physicsEngineName = GetParam();
  Load("test/worlds/presets.world", false, physicsEngineName);
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();
  if (!presetManager)
  {
    FAIL();
  }
  try
  {
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("max_step_size")), 0.01);
    if (physicsEngineName == "ode" || physicsEngineName == "bullet")
    {
      EXPECT_FLOAT_EQ(boost::any_cast<double>(
          physicsEngine->GetParam("min_step_size")), 0.001);
      EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("cfm")),
          0.01);
      EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("erp")),
          0.3);
      EXPECT_FLOAT_EQ(boost::any_cast<double>(
          physicsEngine->GetParam("contact_surface_layer")), 0.002);
      EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("sor")),
          1.4);
      EXPECT_EQ(boost::any_cast<int>(physicsEngine->GetParam("iters")), 50);
    }
    if (physicsEngineName == "ode")
    {
      EXPECT_TRUE(boost::any_cast<bool>(
          physicsEngine->GetParam("inertia_ratio_reduction")));
      EXPECT_FLOAT_EQ(boost::any_cast<double>(
          physicsEngine->GetParam("contact_max_correcting_vel")), 200);
    }
    if (physicsEngineName == "bullet")
    {
      EXPECT_FALSE(boost::any_cast<bool>(
          physicsEngine->GetParam("split_impulse")));
    }
    if (physicsEngineName == "simbody")
    {
      EXPECT_FLOAT_EQ(
          boost::any_cast<double>(physicsEngine->GetParam("accuracy")), 0.01);
      EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam(
          "max_transient_velocity")), 0.001);
    }
  }
  catch(const boost::bad_any_cast& e)
  {
    FAIL();
  }
}

/////////////////////////////////////////////////
TEST_F(PresetManagerTest, MultipleDefaults)
{
  Load("test/worlds/presets.world", false, "ode");
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();
  if (!presetManager)
  {
    FAIL();
  }
  EXPECT_EQ(presetManager->CurrentProfile(), "preset_1");
}

/////////////////////////////////////////////////
TEST_F(PresetManagerTest, NoDefault)
{
  Load("test/worlds/presets_nodefault.world", false, "ode");
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();
  if (!presetManager)
  {
    FAIL();
  }
  EXPECT_EQ(presetManager->CurrentProfile(), "preset_1");
}

/////////////////////////////////////////////////
TEST_F(PresetManagerTest, SetProfileParam)
{
  Load("test/worlds/presets.world", false, "ode");
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();
  if (!presetManager)
  {
    FAIL();
  }

  EXPECT_TRUE(presetManager->SetCurrentProfileParam("max_step_size", 10.0));
  try
  {
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("max_step_size")), 10.0);

    // preset_2 is not the current profile, so we do not expect to see a change
    // in the physics engine when we change preset_2.
    EXPECT_TRUE(presetManager->SetProfileParam("preset_2", "max_step_size",
        20));
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("max_step_size")), 10.0);
  }
  catch(const boost::bad_any_cast& e)
  {
    FAIL();
  }
}

/////////////////////////////////////////////////
TEST_F(PresetManagerTest, SetCurrentProfile)
{
  Load("test/worlds/presets.world", false, "ode");
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();

  if (!presetManager)
  {
    FAIL();
  }

  std::vector<std::string> profileNames(presetManager->AllProfiles());
  EXPECT_EQ(profileNames.size(), 3u);

  presetManager->CurrentProfile("preset_2");

  EXPECT_EQ(presetManager->CurrentProfile(), "preset_2");

  try
  {
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("max_step_size")), 0.02);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("min_step_size")), 0.002);
    EXPECT_EQ(boost::any_cast<int>(physicsEngine->GetParam("iters")), 100);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("cfm")),
        0.02);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("erp")),
        0.6);
  }
  catch(const boost::bad_any_cast& e)
  {
    FAIL();
  }
}

/////////////////////////////////////////////////
TEST_F(PresetManagerTest, CreateProfileFromSDF)
{
  Load("test/worlds/presets.world", false, "ode");
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();
  if (!presetManager)
  {
    FAIL();
  }

  sdf::SDF worldSDF;
  worldSDF.SetFromString(
      "<sdf version = \"1.5\">\
        <world name = \"default\">\
          <physics name = \"preset_3\" type = \"ode\">\
            <max_step_size>0.03</max_step_size>\
            <ode>\
              <solver>\
                <min_step_size>0.003</min_step_size>\
                <iters>150</iters>\
                <sor>1.6</sor>\
              </solver>\
              <constraints>\
                <cfm>0.03</cfm>\
                <erp>0.7</erp>\
              </constraints>\
            </ode>\
          </physics>\
        </world>\
      </sdf>");
  sdf::ElementPtr physicsSDF = worldSDF.Root()->GetElement("world")
      ->GetElement("physics");
  presetManager->CreateProfile(physicsSDF);
  presetManager->CurrentProfile("preset_3");
  try
  {
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("max_step_size")), 0.03);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("min_step_size")), 0.003);
    EXPECT_EQ(boost::any_cast<int>(physicsEngine->GetParam("iters")), 150);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("cfm")),
        0.03);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("erp")),
        0.7);
  }
  catch(const boost::bad_any_cast& e)
  {
    FAIL();
  }
}

TEST_F(PresetManagerTest, BackwardsCompatibilityTest)
{
  Load("worlds/empty.world", false, "ode");
  physics::WorldPtr world = physics::get_world("default");

  physics::PhysicsEnginePtr physicsEngine = world->Physics();

  physics::PresetManagerPtr presetManager = world->PresetMgr();
  if (!presetManager)
  {
    FAIL();
  }
  try
  {
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("max_step_size")), 0.001);
    EXPECT_EQ(boost::any_cast<int>(physicsEngine->GetParam("iters")), 50);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("cfm")),
        0.0);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("erp")),
        0.2);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("contact_max_correcting_vel")), 100);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("contact_surface_layer")), 0.001);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(physicsEngine->GetParam("sor")),
        1.3);
    EXPECT_FLOAT_EQ(boost::any_cast<double>(
        physicsEngine->GetParam("min_step_size")), 0.0001);
    EXPECT_FALSE(boost::any_cast<bool>(
        physicsEngine->GetParam("inertia_ratio_reduction")));
  }
  catch(const boost::bad_any_cast& e)
  {
    FAIL();
  }
}

INSTANTIATE_TEST_CASE_P(PhysicsEngines, PresetManagerTest,
                        PHYSICS_ENGINE_VALUES,);  // NOLINT

/////////////////////////////////////////////////
int main(int argc, char **argv)
{
  ::testing::InitGoogleTest(&argc, argv);
  return RUN_ALL_TESTS();
}
