/** 
 * @file llsingleton_test.cpp
 * @date 2011-08-11
 * @brief Unit test for the LLSingleton class
 *
 * $LicenseInfo:firstyear=2011&license=viewerlgpl$
 * Second Life Viewer Source Code
 * Copyright (C) 2011, Linden Research, Inc.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation;
 * version 2.1 of the License only.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 * Linden Research, Inc., 945 Battery Street, San Francisco, CA  94111  USA
 * $/LicenseInfo$
 */

#include "linden_common.h"

#include "llunit.h"
#include "../test/lltut.h"

namespace LLUnits
{
	// using powers of 2 to allow strict floating point equality
	LL_DECLARE_BASE_UNIT(Quatloos, "Quat");
	LL_DECLARE_DERIVED_UNIT(Quatloos, * 4, Latinum, "Lat");
	LL_DECLARE_DERIVED_UNIT(Latinum, / 16, Solari, "Sol");
}

LL_DECLARE_UNIT_TYPEDEFS(LLUnits, Quatloos);
LL_DECLARE_UNIT_TYPEDEFS(LLUnits, Latinum);
LL_DECLARE_UNIT_TYPEDEFS(LLUnits, Solari);

namespace tut
{
	using namespace LLUnits;
	struct units
	{
	};

	typedef test_group<units> units_t;
	typedef units_t::object units_object_t;
	tut::units_t tut_singleton("LLUnit");

	// storage type conversions
	template<> template<>
	void units_object_t::test<1>()
	{
		LLUnit<F32, Quatloos> float_quatloos;
		ensure("default float unit is zero", float_quatloos == F32Quatloos(0.f));

		LLUnit<F32, Quatloos> float_initialize_quatloos(1);
		ensure("non-zero initialized unit", float_initialize_quatloos == F32Quatloos(1.f));

		LLUnit<S32, Quatloos> int_quatloos;
		ensure("default int unit is zero", int_quatloos == S32Quatloos(0));

		int_quatloos = S32Quatloos(42);
		ensure("int assignment is preserved", int_quatloos == S32Quatloos(42));
		float_quatloos = int_quatloos;
		ensure("float assignment from int preserves value", float_quatloos == F32Quatloos(42.f));

		int_quatloos = float_quatloos;
		ensure("int assignment from float preserves value", int_quatloos == S32Quatloos(42));

		float_quatloos = F32Quatloos(42.1f);
		int_quatloos = float_quatloos;
		ensure("int units truncate float units on assignment", int_quatloos == S32Quatloos(42));

		LLUnit<U32, Quatloos> unsigned_int_quatloos(float_quatloos);
		ensure("unsigned int can be initialized from signed int", unsigned_int_quatloos == S32Quatloos(42));

		S32Solari int_solari(1);

		float_quatloos = int_solari;
		ensure("fractional units are preserved in conversion from integer to float type", float_quatloos == F32Quatloos(0.25f));

		int_quatloos = S32Quatloos(1);
		F32Solari float_solari = int_quatloos;
		ensure("can convert with fractional intermediates from integer to float type", float_solari == F32Solari(4.f));
	}

	// conversions to/from base unit
	template<> template<>
	void units_object_t::test<2>()
	{
		LLUnit<F32, Quatloos> quatloos(1.f);
		LLUnit<F32, Latinum> latinum_bars(quatloos);
		ensure("conversion between units is automatic via initialization", latinum_bars == F32Latinum(1.f / 4.f));

		latinum_bars = S32Latinum(256);
		quatloos = latinum_bars;
		ensure("conversion between units is automatic via assignment, and bidirectional", quatloos == S32Quatloos(1024));

		LLUnit<S32, Quatloos> single_quatloo(1);
		LLUnit<F32, Latinum> quarter_latinum = single_quatloo;
		ensure("division of integer unit preserves fractional values when converted to float unit", quarter_latinum == F32Latinum(0.25f));
	}

	// conversions across non-base units
	template<> template<>
	void units_object_t::test<3>()
	{
		LLUnit<F32, Quatloos> quatloos(1024);
		LLUnit<F32, Solari> solari(quatloos);
		ensure("conversions can work between indirectly related units: Quatloos -> Latinum -> Solari", solari == S32Solari(4096));

		LLUnit<F32, Latinum> latinum_bars = solari;
		ensure("Non base units can be converted between each other", latinum_bars == S32Latinum(256));
	}

	// math operations
	template<> template<>
	void units_object_t::test<4>()
	{
		// exercise math operations
		LLUnit<F32, Quatloos> quatloos(1.f);
		quatloos *= 4.f;
		ensure(quatloos == S32Quatloos(4));
		quatloos = quatloos * 2;
		ensure(quatloos == S32Quatloos(8));
		quatloos = 2.f * quatloos;
		ensure(quatloos == S32Quatloos(16));

		quatloos += F32Quatloos(4.f);
		ensure(quatloos == S32Quatloos(20));
		quatloos += S32Quatloos(4);
		ensure(quatloos == S32Quatloos(24));
		quatloos = quatloos + S32Quatloos(4);
		ensure(quatloos == S32Quatloos(28));
		quatloos = S32Quatloos(4) + quatloos;
		ensure(quatloos == S32Quatloos(32));
		quatloos += quatloos * 3;
		ensure(quatloos == S32Quatloos(128));

		quatloos -= quatloos / 4 * 3;
		ensure(quatloos == S32Quatloos(32));
		quatloos = quatloos - S32Quatloos(8);
		ensure(quatloos == S32Quatloos(24));
		quatloos -= S32Quatloos(4);
		ensure(quatloos == S32Quatloos(20));
		quatloos -= F32Quatloos(4.f);
		ensure(quatloos == S32Quatloos(16));

		quatloos /= 2.f;
		ensure(quatloos == S32Quatloos(8));
		quatloos = quatloos / 4;
		ensure(quatloos == S32Quatloos(2));

		F32 ratio = quatloos / LLUnit<F32, Quatloos>(2.f);
		ensure(ratio == 1);
		ratio = quatloos / LLUnit<F32, Solari>(8.f);
		ensure(ratio == 1);

		quatloos += LLUnit<F32, Solari>(8.f);
		ensure(quatloos == S32Quatloos(4));
		quatloos -= LLUnit<F32, Latinum>(1.f);
		ensure(quatloos == S32Quatloos(0));
	}

	// comparison operators
	template<> template<>
	void units_object_t::test<5>()
	{
		LLUnit<S32, Quatloos> quatloos(1);
		ensure("can perform less than comparison against same type", quatloos < S32Quatloos(2));
		ensure("can perform less than comparison against different storage type", quatloos < F32Quatloos(2.f));
		ensure("can perform less than comparison against different units", quatloos < S32Latinum(5));
		ensure("can perform less than comparison against different storage type and units", quatloos < F32Latinum(5.f));

		ensure("can perform greater than comparison against same type", quatloos > S32Quatloos(0));
		ensure("can perform greater than comparison against different storage type", quatloos > F32Quatloos(0.f));
		ensure("can perform greater than comparison against different units", quatloos > S32Latinum(0));
		ensure("can perform greater than comparison against different storage type and units", quatloos > F32Latinum(0.f));

	}

	bool accept_explicit_quatloos(S32Quatloos q)
	{
		return true;
	}

	bool accept_implicit_quatloos(S32Quatloos q)
	{
		return true;
	}

	// signature compatibility
	template<> template<>
	void units_object_t::test<6>()
	{
		S32Quatloos quatloos(1);
		ensure("can pass unit values as argument", accept_explicit_quatloos(S32Quatloos(1)));
		ensure("can pass unit values as argument", accept_explicit_quatloos(quatloos));
	}

	// implicit units
	template<> template<>
	void units_object_t::test<7>()
	{
		LLUnit<F32, Quatloos> quatloos;
		LLUnitImplicit<F32, Quatloos> quatloos_implicit = quatloos + S32Quatloos(1);
		ensure("can initialize implicit unit from explicit", quatloos_implicit == 1);

		quatloos = quatloos_implicit;
		ensure("can assign implicit unit to explicit unit", quatloos == S32Quatloos(1));
		quatloos += quatloos_implicit;
		ensure("can perform math operation using mixture of implicit and explicit units", quatloos == S32Quatloos(2));

		// math operations on implicits
		quatloos_implicit = 1;
		ensure(quatloos_implicit == 1);

		quatloos_implicit += 2;
		ensure(quatloos_implicit == 3);

		quatloos_implicit *= 2;
		ensure(quatloos_implicit == 6);

		quatloos_implicit -= 1;
		ensure(quatloos_implicit == 5);

		quatloos_implicit /= 5;
		ensure(quatloos_implicit == 1);

		quatloos_implicit = quatloos_implicit + 3 + quatloos_implicit;
		ensure(quatloos_implicit == 5);

		quatloos_implicit = 10 - quatloos_implicit - 1;
		ensure(quatloos_implicit == 4);

		quatloos_implicit = 2 * quatloos_implicit * 2;
		ensure(quatloos_implicit == 16);

		F32 one_half = quatloos_implicit / (quatloos_implicit * 2);
		ensure(one_half == 0.5f);

		// implicit conversion to POD
		F32 float_val = quatloos_implicit;
		ensure("implicit units convert implicitly to regular values", float_val == 16);

		S32 int_val = quatloos_implicit;
		ensure("implicit units convert implicitly to regular values", int_val == 16);

		// conversion of implicits
		LLUnitImplicit<F32, Latinum> latinum_implicit(2);
		ensure("implicit units of different types are comparable", latinum_implicit * 2 == quatloos_implicit);
	}

	// precision tests
	template<> template<>
	void units_object_t::test<8>()
	{
		U32Bytes max_bytes(U32_MAX);
		S32Megabytes mega_bytes = max_bytes;
		ensure("max available precision is used when converting units", mega_bytes == (S32Megabytes)4095);

		mega_bytes = (S32Megabytes)-5 + (U32Megabytes)1;
		ensure("can mix signed and unsigned in units addition", mega_bytes == (S32Megabytes)-4);

		mega_bytes = (U32Megabytes)5 + (S32Megabytes)-1;
		ensure("can mix unsigned and signed in units addition", mega_bytes == (S32Megabytes)4);

	}
}