#include <system.hh>

#include "t_amount.h"

#include "amount.h"
#include "commodity.h"

using namespace ledger;

CPPUNIT_TEST_SUITE_NAMED_REGISTRATION(AmountTestCase, "math");

void AmountTestCase::setUp()
{
  times_initialize();
  amount_t::initialize();

  // Cause the display precision for dollars to be initialized to 2.
  amount_t x1("$1.00");
  assertTrue(x1);

  amount_t::stream_fullstrings = true; // make reports from UnitTests accurate
}

void AmountTestCase::tearDown()
{
  amount_t::stream_fullstrings = false;
  amount_t::shutdown();
  times_shutdown();
}

void AmountTestCase::testParser()
{
  amount_t x0;
  amount_t x1;
  amount_t x2;
  amount_t x3;
  amount_t x4("123.456");
  amount_t x5(x4);
  amount_t x6(x4);
  amount_t x7(x4);
  amount_t x8("$123.45");
  amount_t x9(x8);
  amount_t x10(x8);
  amount_t x11(x8);
  amount_t x12("$100");

  assertEqual(amount_t::precision_t(2), x12.commodity().precision());

#ifndef NOT_FOR_PYTHON
  string buf("$100...");
  std::istringstream input(buf);
  amount_t x13;
  x13.parse(input);
  assertEqual(x12, x13);
#endif // NOT_FOR_PYTHON

  amount_t x14;
  assertThrow(x14.parse("DM"), amount_error);

  amount_t x15("$1.000.000,00"); // parsing this switches us to European

  amount_t x16("$2000");
  assertEqual(string("$2.000,00"), x16.to_string());
  x16.parse("$2000,00");
  assertEqual(string("$2.000,00"), x16.to_string());

  // Since European-ness is an additive quality, we must switch back
  // to American-ness manually
  x15.commodity().drop_flags(COMMODITY_STYLE_EUROPEAN);

  amount_t x17("$1,000,000.00"); // parsing this switches back to American

  amount_t x18("$2000");
  assertEqual(string("$2,000.00"), x18.to_string());
  x18.parse("$2,000");
  assertEqual(string("$2,000.00"), x18.to_string());

  assertEqual(x15, x17);

  amount_t x19("EUR 1000");
  amount_t x20("EUR 1000");

  assertEqual(string("EUR 1000"), x19.to_string());
  assertEqual(string("EUR 1000"), x20.to_string());

  x1.parse("$100.0000", PARSE_NO_MIGRATE);
  assertEqual(amount_t::precision_t(2), x12.commodity().precision());
  assertEqual(x1.commodity(), x12.commodity());
  assertEqual(x1, x12);

  x0.parse("$100.0000");
  assertEqual(amount_t::precision_t(4), x12.commodity().precision());
  assertEqual(x0.commodity(), x12.commodity());
  assertEqual(x0, x12);

  x2.parse("$100.00", PARSE_NO_REDUCE);
  assertEqual(x2, x12);
  x3.parse("$100.00", PARSE_NO_MIGRATE | PARSE_NO_REDUCE);
  assertEqual(x3, x12);

  x4.parse("$100.00");
  assertEqual(x4, x12);
  x5.parse("$100.00", PARSE_NO_MIGRATE);
  assertEqual(x5, x12);
  x6.parse("$100.00", PARSE_NO_REDUCE);
  assertEqual(x6, x12);
  x7.parse("$100.00", PARSE_NO_MIGRATE | PARSE_NO_REDUCE);
  assertEqual(x7, x12);

  x8.parse("$100.00");
  assertEqual(x8, x12);
  x9.parse("$100.00", PARSE_NO_MIGRATE);
  assertEqual(x9, x12);
  x10.parse("$100.00", PARSE_NO_REDUCE);
  assertEqual(x10, x12);
  x11.parse("$100.00", PARSE_NO_MIGRATE | PARSE_NO_REDUCE);
  assertEqual(x11, x12);

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
  assertValid(x11);
  assertValid(x12);
}

void AmountTestCase::testConstructors()
{
  amount_t x0;
  amount_t x1(123456L);
  amount_t x2(123456UL);
  amount_t x3("123.456");
  amount_t x5("123456");
  amount_t x6("123.456");
  amount_t x7(string("123456"));
  amount_t x8(string("123.456"));
  amount_t x9(x3);
  amount_t x10(x6);
  amount_t x11(x8);

  assertEqual(amount_t(), x0);
  assertNotEqual(amount_t("0"), x0);
  assertNotEqual(amount_t("0.0"), x0);
  assertEqual(x2, x1);
  assertEqual(x5, x1);
  assertEqual(x7, x1);
  assertEqual(x6, x3);
  assertEqual(x8, x3);
  assertEqual(x10, x3);
  assertEqual(x10, x9);

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
  assertValid(x11);
}

void AmountTestCase::testCommodityConstructors()
{
  amount_t x1("$123.45");
  amount_t x2("-$123.45");
  amount_t x3("$-123.45");
  amount_t x4("DM 123.45");
  amount_t x5("-DM 123.45");
  amount_t x6("DM -123.45");
  amount_t x7("123.45 euro");
  amount_t x8("-123.45 euro");
  amount_t x9("123.45€");
  amount_t x10("-123.45€");

  assertEqual(amount_t("$123.45"), x1);
  assertEqual(amount_t("-$123.45"), x2);
  assertEqual(amount_t("$-123.45"), x3);
  assertEqual(amount_t("DM 123.45"), x4);
  assertEqual(amount_t("-DM 123.45"), x5);
  assertEqual(amount_t("DM -123.45"), x6);
  assertEqual(amount_t("123.45 euro"), x7);
  assertEqual(amount_t("-123.45 euro"), x8);
  assertEqual(amount_t("123.45€"), x9);
  assertEqual(amount_t("-123.45€"), x10);

  assertEqual(string("$123.45"), x1.to_string());
  assertEqual(string("$-123.45"), x2.to_string());
  assertEqual(string("$-123.45"), x3.to_string());
  assertEqual(string("DM 123.45"), x4.to_string());
  assertEqual(string("DM -123.45"), x5.to_string());
  assertEqual(string("DM -123.45"), x6.to_string());
  assertEqual(string("123.45 euro"), x7.to_string());
  assertEqual(string("-123.45 euro"), x8.to_string());
  assertEqual(string("123.45€"), x9.to_string());
  assertEqual(string("-123.45€"), x10.to_string());

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
}

#ifndef NOT_FOR_PYTHON

void AmountTestCase::testAssignment()
{
  amount_t x0;
  amount_t x1;
  amount_t x2;
  amount_t x3;
  amount_t x5;
  amount_t x6;
  amount_t x7;
  amount_t x8;
  amount_t x9;
  amount_t x10;

  x1  = 123456L;
  x2  = 123456UL;
  x3  = "123.456";
  x5  = "123456";
  x6  = "123.456";
  x7  = string("123456");
  x8  = string("123.456");
  x9  = x3;
  x10 = amount_t(x6);

  assertEqual(x2, x1);
  assertEqual(x5, x1);
  assertEqual(x7, x1);
  assertEqual(x6, x3);
  assertEqual(x8, x3);
  assertEqual(x10, x3);
  assertEqual(x10, x9);

  assertFalse(x1.is_null());
  x1 = x0;			// sets x1 back to uninitialized state
  assertTrue(x0.is_null());
  assertTrue(x1.is_null());

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
}

void AmountTestCase::testCommodityAssignment()
{
  amount_t x1;
  amount_t x2;
  amount_t x3;
  amount_t x4;
  amount_t x5;
  amount_t x6;
  amount_t x7;
  amount_t x8;
  amount_t x9;
  amount_t x10;

  x1  = "$123.45";
  x2  = "-$123.45";
  x3  = "$-123.45";
  x4  = "DM 123.45";
  x5  = "-DM 123.45";
  x6  = "DM -123.45";
  x7  = "123.45 euro";
  x8  = "-123.45 euro";
  x9  = "123.45€";
  x10 = "-123.45€";

  assertEqual(amount_t("$123.45"), x1);
  assertEqual(amount_t("-$123.45"), x2);
  assertEqual(amount_t("$-123.45"), x3);
  assertEqual(amount_t("DM 123.45"), x4);
  assertEqual(amount_t("-DM 123.45"), x5);
  assertEqual(amount_t("DM -123.45"), x6);
  assertEqual(amount_t("123.45 euro"), x7);
  assertEqual(amount_t("-123.45 euro"), x8);
  assertEqual(amount_t("123.45€"), x9);
  assertEqual(amount_t("-123.45€"), x10);

  assertEqual(string("$123.45"), x1.to_string());
  assertEqual(string("$-123.45"), x2.to_string());
  assertEqual(string("$-123.45"), x3.to_string());
  assertEqual(string("DM 123.45"), x4.to_string());
  assertEqual(string("DM -123.45"), x5.to_string());
  assertEqual(string("DM -123.45"), x6.to_string());
  assertEqual(string("123.45 euro"), x7.to_string());
  assertEqual(string("-123.45 euro"), x8.to_string());
  assertEqual(string("123.45€"), x9.to_string());
  assertEqual(string("-123.45€"), x10.to_string());

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
}

#endif // NOT_FOR_PYTHON

void AmountTestCase::testEquality()
{
  amount_t x1(123456L);
  amount_t x2(456789L);
  amount_t x3(333333L);
  amount_t x4("123456.0");
  amount_t x5("123456.0");
  amount_t x6("123456.0");

  assertTrue(x1 == 123456L);
  assertTrue(x1 != x2);
  assertTrue(x1 == (x2 - x3));
  assertTrue(x1 == x4);
  assertTrue(x4 == x5);
  assertTrue(x4 == x6);

  assertTrue(x1 == 123456L);
  assertTrue(123456L == x1);
  assertTrue(x1 == 123456UL);
  assertTrue(123456UL == x1);
  assertTrue(x1 == amount_t("123456.0"));
  assertTrue(amount_t("123456.0") == x1);

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
}

void AmountTestCase::testCommodityEquality()
{
  amount_t x0;
  amount_t x1("$123.45");
  amount_t x2("-$123.45");
  amount_t x3("$-123.45");
  amount_t x4("DM 123.45");
  amount_t x5("-DM 123.45");
  amount_t x6("DM -123.45");
  amount_t x7("123.45 euro");
  amount_t x8("-123.45 euro");
  amount_t x9("123.45€");
  amount_t x10("-123.45€");

  assertTrue(x0.is_null());
  assertThrow(x0.is_zero(), amount_error);
  assertThrow(x0.is_realzero(), amount_error);
  assertThrow(x0.sign(), amount_error);
  assertThrow(x0.compare(x1), amount_error);
  assertThrow(x0.compare(x2), amount_error);
  assertThrow(x0.compare(x0), amount_error);

  assertTrue(x1 != x2);
  assertTrue(x1 != x4);
  assertTrue(x1 != x7);
  assertTrue(x1 != x9);
  assertTrue(x2 == x3);
  assertTrue(x4 != x5);
  assertTrue(x5 == x6);
  assertTrue(x7 == - x8);
  assertTrue(x9 == - x10);

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
}

void AmountTestCase::testComparisons()
{
  amount_t x0;
  amount_t x1(-123L);
  amount_t x2(123L);
  amount_t x3("-123.45");
  amount_t x4("123.45");
  amount_t x5("-123.45");
  amount_t x6("123.45");

  assertThrow(x0 > x1, amount_error);
  assertThrow(x0 < x2, amount_error);
  assertThrow(x0 > x3, amount_error);
  assertThrow(x0 < x4, amount_error);
  assertThrow(x0 > x5, amount_error);
  assertThrow(x0 < x6, amount_error);

  assertTrue(x1 > x3);
  assertTrue(x3 <= x5);
  assertTrue(x3 >= x5);
  assertTrue(x3 < x1);
  assertTrue(x3 < x4);

  assertTrue(x1 < 100L);
  assertTrue(100L > x1);
  assertTrue(x1 < 100UL);
  assertTrue(100UL > x1);
#ifndef NOT_FOR_PYTHON
  assertTrue(x1 < 100.0);
  assertTrue(100.0 > x1);
#endif // NOT_FOR_PYTHON

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
}

void AmountTestCase::testCommodityComparisons()
{
  amount_t x1("$-123");
  amount_t x2("$123.00");
  amount_t x3(internalAmount("$-123.4544"));
  amount_t x4(internalAmount("$123.4544"));
  amount_t x5("$-123.45");
  amount_t x6("$123.45");
  amount_t x7("DM 123.45");

  assertTrue(x1 > x3);
  assertTrue(x3 <= x5);
  assertTrue(x3 < x5);
  assertTrue(x3 <= x5);
  assertFalse(x3 == x5);
  assertTrue(x3 < x1);
  assertTrue(x3 < x4);
  assertFalse(x6 == x7);
  assertThrow(x6 < x7, amount_error);

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
}

void AmountTestCase::testIntegerAddition()
{
  amount_t x0;
  amount_t x1(123L);
  amount_t y1(456L);

  assertEqual(amount_t(579L), x1 + y1);
  assertEqual(amount_t(579L), x1 + 456L);
  assertEqual(amount_t(579L), 456L + x1);

  x1 += amount_t(456L);
  assertEqual(amount_t(579L), x1);
  x1 += 456L;
  assertEqual(amount_t(1035L), x1);

  amount_t x4("123456789123456789123456789");

  assertEqual(amount_t("246913578246913578246913578"), x4 + x4);

  assertValid(x0);
  assertValid(x1);
  assertValid(y1);
  assertValid(x4);
}

void AmountTestCase::testFractionalAddition()
{
  amount_t x1("123.123");
  amount_t y1("456.456");

  assertEqual(amount_t("579.579"), x1 + y1);
  assertEqual(amount_t("579.579"), x1 + amount_t("456.456"));
  assertEqual(amount_t("579.579"), amount_t("456.456") + x1);

  x1 += amount_t("456.456");
  assertEqual(amount_t("579.579"), x1);
  x1 += amount_t("456.456");
  assertEqual(amount_t("1036.035"), x1);
  x1 += 456L;
  assertEqual(amount_t("1492.035"), x1);

  amount_t x2("123456789123456789.123456789123456789");

  assertEqual(amount_t("246913578246913578.246913578246913578"), x2 + x2);

  assertValid(x1);
  assertValid(y1);
  assertValid(x2);
}

void AmountTestCase::testCommodityAddition()
{
  amount_t x0;
  amount_t x1("$123.45");
  amount_t x2(internalAmount("$123.456789"));
  amount_t x3("DM 123.45");
  amount_t x4("123.45 euro");
  amount_t x5("123.45€");
  amount_t x6("123.45");

  assertEqual(amount_t("$246.90"), x1 + x1);
  assertNotEqual(amount_t("$246.91"), x1 + x2);
  assertEqual(internalAmount("$246.906789"), x1 + x2);

  // Converting to string drops internal precision
  assertEqual(string("$246.90"), (x1 + x1).to_string());
  assertEqual(string("$246.91"), (x1 + x2).to_string());

  assertThrow(x1 + x0, amount_error);
  assertThrow(x0 + x1, amount_error);
  assertThrow(x0 + x0, amount_error);
  assertThrow(x1 + x3, amount_error);
  assertThrow(x1 + x4, amount_error);
  assertThrow(x1 + x5, amount_error);
  assertEqual(string("$246.90"), (x1 + x6).to_string());
#ifndef NOT_FOR_PYTHON
  assertEqual(string("$246.90"), (x1 + 123.45).to_string());
#endif // NOT_FOR_PYTHON
  assertEqual(string("$246.45"), (x1 + 123L).to_string());

  assertEqual(amount_t("DM 246.90"), x3 + x3);
  assertEqual(amount_t("246.90 euro"), x4 + x4);
  assertEqual(amount_t("246.90€"), x5 + x5);

  assertEqual(string("DM 246.90"), (x3 + x3).to_string());
  assertEqual(string("246.90 euro"), (x4 + x4).to_string());
  assertEqual(string("246.90€"), (x5 + x5).to_string());

  x1 += amount_t("$456.45");
  assertEqual(amount_t("$579.90"), x1);
  x1 += amount_t("$456.45");
  assertEqual(amount_t("$1036.35"), x1);
  x1 += amount_t("$456");
  assertEqual(amount_t("$1492.35"), x1);

  amount_t x7(internalAmount("$123456789123456789.123456789123456789"));

  assertEqual(internalAmount("$246913578246913578.246913578246913578"), x7 + x7);

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
}

void AmountTestCase::testIntegerSubtraction()
{
  amount_t x1(123L);
  amount_t y1(456L);

  assertEqual(amount_t(333L), y1 - x1);
  assertEqual(amount_t(-333L), x1 - y1);
  assertEqual(amount_t(23L), x1 - 100L);
  assertEqual(amount_t(-23L), 100L - x1);

  x1 -= amount_t(456L);
  assertEqual(amount_t(-333L), x1);
  x1 -= 456L;
  assertEqual(amount_t(-789L), x1);

  amount_t x4("123456789123456789123456789");
  amount_t y4("8238725986235986");

  assertEqual(amount_t("123456789115218063137220803"), x4 - y4);
  assertEqual(amount_t("-123456789115218063137220803"), y4 - x4);

  assertValid(x1);
  assertValid(y1);
  assertValid(x4);
  assertValid(y4);
}

void AmountTestCase::testFractionalSubtraction()
{
  amount_t x1("123.123");
  amount_t y1("456.456");

  assertEqual(amount_t("-333.333"), x1 - y1);
  assertEqual(amount_t("333.333"), y1 - x1);

  x1 -= amount_t("456.456");
  assertEqual(amount_t("-333.333"), x1);
  x1 -= amount_t("456.456");
  assertEqual(amount_t("-789.789"), x1);
  x1 -= 456L;
  assertEqual(amount_t("-1245.789"), x1);

  amount_t x2("123456789123456789.123456789123456789");
  amount_t y2("9872345982459.248974239578");

  assertEqual(amount_t("123446916777474329.874482549545456789"), x2 - y2);
  assertEqual(amount_t("-123446916777474329.874482549545456789"), y2 - x2);

  assertValid(x1);
  assertValid(y1);
  assertValid(x2);
  assertValid(y2);
}

void AmountTestCase::testCommoditySubtraction()
{
  amount_t x0;
  amount_t x1("$123.45");
  amount_t x2(internalAmount("$123.456789"));
  amount_t x3("DM 123.45");
  amount_t x4("123.45 euro");
  amount_t x5("123.45€");
  amount_t x6("123.45");

  assertNotEqual(amount_t(), x1 - x1);
  assertEqual(amount_t("$0"), x1 - x1);
  assertEqual(amount_t("$23.45"), x1 - amount_t("$100.00"));
  assertEqual(amount_t("$-23.45"), amount_t("$100.00") - x1);
  assertNotEqual(amount_t("$-0.01"), x1 - x2);
  assertEqual(internalAmount("$-0.006789"), x1 - x2);

  // Converting to string drops internal precision.  If an amount is
  // zero, it drops the commodity as well.
  assertEqual(string("$0.00"), (x1 - x1).to_string());
  assertEqual(string("$-0.01"), (x1 - x2).to_string());

  assertThrow(x1 - x0, amount_error);
  assertThrow(x0 - x1, amount_error);
  assertThrow(x0 - x0, amount_error);
  assertThrow(x1 - x3, amount_error);
  assertThrow(x1 - x4, amount_error);
  assertThrow(x1 - x5, amount_error);
  assertEqual(string("$0.00"), (x1 - x6).to_string());
#ifndef NOT_FOR_PYTHON
  assertEqual(string("$-0.00"), (x1 - 123.45).to_string());
#endif // NOT_FOR_PYTHON
  assertEqual(string("$0.45"), (x1 - 123L).to_string());

  assertEqual(amount_t("DM 0.00"), x3 - x3);
  assertEqual(amount_t("DM 23.45"), x3 - amount_t("DM 100.00"));
  assertEqual(amount_t("DM -23.45"), amount_t("DM 100.00") - x3);
  assertEqual(amount_t("0.00 euro"), x4 - x4);
  assertEqual(amount_t("23.45 euro"), x4 - amount_t("100.00 euro"));
  assertEqual(amount_t("-23.45 euro"), amount_t("100.00 euro") - x4);
  assertEqual(amount_t("0.00€"), x5 - x5);
  assertEqual(amount_t("23.45€"), x5 - amount_t("100.00€"));
  assertEqual(amount_t("-23.45€"), amount_t("100.00€") - x5);

  assertEqual(string("DM 0.00"), (x3 - x3).to_string());
  assertEqual(string("DM 23.45"), (x3 - amount_t("DM 100.00")).to_string());
  assertEqual(string("DM -23.45"), (amount_t("DM 100.00") - x3).to_string());
  assertEqual(string("0.00 euro"), (x4 - x4).to_string());
  assertEqual(string("23.45 euro"), (x4 - amount_t("100.00 euro")).to_string());
  assertEqual(string("-23.45 euro"), (amount_t("100.00 euro") - x4).to_string());
  assertEqual(string("0.00€"), (x5 - x5).to_string());
  assertEqual(string("23.45€"), (x5 - amount_t("100.00€")).to_string());
  assertEqual(string("-23.45€"), (amount_t("100.00€") - x5).to_string());

  x1 -= amount_t("$456.45");
  assertEqual(amount_t("$-333.00"), x1);
  x1 -= amount_t("$456.45");
  assertEqual(amount_t("$-789.45"), x1);
  x1 -= amount_t("$456");
  assertEqual(amount_t("$-1245.45"), x1);

  amount_t x7(internalAmount("$123456789123456789.123456789123456789"));
  amount_t x8(internalAmount("$2354974984698.98459845984598"));

  assertEqual(internalAmount("$123454434148472090.138858329277476789"), x7 - x8);
  assertEqual(string("$123454434148472090.138858329277476789"), (x7 - x8).to_string());
  assertEqual(string("$123454434148472090.14"),
	      (amount_t("$1.00") * (x7 - x8)).to_string());
  assertEqual(internalAmount("$-123454434148472090.138858329277476789"), x8 - x7);
  assertEqual(string("$-123454434148472090.138858329277476789"), (x8 - x7).to_string());
  assertEqual(string("$-123454434148472090.14"),
	      (amount_t("$1.00") * (x8 - x7)).to_string());

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
}

void AmountTestCase::testIntegerMultiplication()
{
  amount_t x1(123L);
  amount_t y1(456L);

  assertEqual(amount_t(0L), x1 * 0L);
  assertEqual(amount_t(0L), amount_t(0L) * x1);
  assertEqual(amount_t(0L), 0L * x1);
  assertEqual(x1, x1 * 1L);
  assertEqual(x1, amount_t(1L) * x1);
  assertEqual(x1, 1L * x1);
  assertEqual(- x1, x1 * -1L);
  assertEqual(- x1, amount_t(-1L) * x1);
  assertEqual(- x1, -1L * x1);
  assertEqual(amount_t(56088L), x1 * y1);
  assertEqual(amount_t(56088L), y1 * x1);
  assertEqual(amount_t(56088L), x1 * 456L);
  assertEqual(amount_t(56088L), amount_t(456L) * x1);
  assertEqual(amount_t(56088L), 456L * x1);

  x1 *= amount_t(123L);
  assertEqual(amount_t(15129L), x1);
  x1 *= 123L;
  assertEqual(amount_t(1860867L), x1);

  amount_t x4("123456789123456789123456789");

  assertEqual(amount_t("15241578780673678546105778281054720515622620750190521"),
	      x4 * x4);

  assertValid(x1);
  assertValid(y1);
  assertValid(x4);
}

void AmountTestCase::testFractionalMultiplication()
{
  amount_t x1("123.123");
  amount_t y1("456.456");

  assertEqual(amount_t(0L), x1 * 0L);
  assertEqual(amount_t(0L), amount_t(0L) * x1);
  assertEqual(amount_t(0L), 0L * x1);
  assertEqual(x1, x1 * 1L);
  assertEqual(x1, amount_t(1L) * x1);
  assertEqual(x1, 1L * x1);
  assertEqual(- x1, x1 * -1L);
  assertEqual(- x1, amount_t(-1L) * x1);
  assertEqual(- x1, -1L * x1);
  assertEqual(amount_t("56200.232088"), x1 * y1);
  assertEqual(amount_t("56200.232088"), y1 * x1);
  assertEqual(amount_t("56200.232088"), x1 * amount_t("456.456"));
  assertEqual(amount_t("56200.232088"), amount_t("456.456") * x1);
  assertEqual(amount_t("56200.232088"), amount_t("456.456") * x1);

  x1 *= amount_t("123.123");
  assertEqual(amount_t("15159.273129"), x1);
  x1 *= amount_t("123.123");
  assertEqual(amount_t("1866455.185461867"), x1);
  x1 *= 123L;
  assertEqual(amount_t("229573987.811809641"), x1);

  amount_t x2("123456789123456789.123456789123456789");

  assertEqual(amount_t("15241578780673678546105778311537878.046486820281054720515622620750190521"),
	      x2 * x2);

  assertValid(x1);
  assertValid(y1);
  assertValid(x2);
}

void AmountTestCase::testCommodityMultiplication()
{
  amount_t x0;
  amount_t x1("$123.12");
  amount_t y1("$456.45");
  amount_t x2(internalAmount("$123.456789"));
  amount_t x3("DM 123.45");
  amount_t x4("123.45 euro");
  amount_t x5("123.45€");

  assertEqual(amount_t("$0.00"), x1 * 0L);
  assertEqual(amount_t("$0.00"), 0L * x1);
  assertEqual(x1, x1 * 1L);
  assertEqual(x1, 1L * x1);
  assertEqual(- x1, x1 * -1L);
  assertEqual(- x1, -1L * x1);
  assertEqual(internalAmount("$56198.124"), x1 * y1);
  assertEqual(string("$56198.12"), (x1 * y1).to_string());
  assertEqual(internalAmount("$56198.124"), y1 * x1);
  assertEqual(string("$56198.12"), (y1 * x1).to_string());

  // Internal amounts retain their precision, even when being
  // converted to strings
  assertEqual(internalAmount("$15199.99986168"), x1 * x2);
  assertEqual(internalAmount("$15199.99986168"), x2 * x1);
  assertEqual(string("$15200.00"), (x1 * x2).to_string());
  assertEqual(string("$15199.99986168"), (x2 * x1).to_string());

  assertThrow(x1 * x0, amount_error);
  assertThrow(x0 * x1, amount_error);
  assertThrow(x0 * x0, amount_error);
  //assertThrow(x1 * x3, amount_error);
  //assertThrow(x1 * x4, amount_error);
  //assertThrow(x1 * x5, amount_error);

  x1 *= amount_t("123.12");
  assertEqual(internalAmount("$15158.5344"), x1);
  assertEqual(string("$15158.53"), x1.to_string());
  x1 *= amount_t("123.12");
  assertEqual(internalAmount("$1866318.755328"), x1);
  assertEqual(string("$1866318.76"), x1.to_string());
  x1 *= 123L;
  assertEqual(internalAmount("$229557206.905344"), x1);
  assertEqual(string("$229557206.91"), x1.to_string());

  amount_t x7(internalAmount("$123456789123456789.123456789123456789"));

  assertEqual(internalAmount("$15241578780673678546105778311537878.046486820281054720515622620750190521"),
	      x7 * x7);

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x7);
}

void AmountTestCase::testIntegerDivision()
{
  amount_t x1(123L);
  amount_t y1(456L);

  assertThrow(x1 / 0L, amount_error);
  assertEqual(amount_t(0L), amount_t(0L) / x1);
  assertEqual(amount_t(0L), 0L / x1);
  assertEqual(x1, x1 / 1L);
  assertEqual(string("0.00813"), (amount_t(1L) / x1).to_string());
  assertEqual(string("0.00813"), (1L / x1).to_string());
  assertEqual(- x1, x1 / -1L);
  assertEqual(string("-0.00813"), (amount_t(-1L) / x1).to_string());
  assertEqual(string("-0.00813"), (-1L / x1).to_string());
  assertEqual(string("0.269737"), (x1 / y1).to_string());
  assertEqual(string("3.707317"), (y1 / x1).to_string());
  assertEqual(string("0.269737"), (x1 / 456L).to_string());
  assertEqual(string("3.707317"), (amount_t(456L) / x1).to_string());
  assertEqual(string("3.707317"), (456L / x1).to_string());

  x1 /= amount_t(456L);
  assertEqual(string("0.269737"), x1.to_string());
  x1 /= 456L;
  assertEqual(string("0.000591528163"), x1.to_string());

  amount_t x4("123456789123456789123456789");
  amount_t y4("56");

  assertEqual(amount_t(1L), x4 / x4);
  assertEqual(string("2204585520061728377204585.517857"), (x4 / y4).to_string());

  assertEqual(amount_t("0.000000000000000000000000000001"),
	      amount_t("10") / amount_t("10000000000000000000000000000000"));

  assertValid(x1);
  assertValid(y1);
  assertValid(x4);
  assertValid(y4);
}

void AmountTestCase::testFractionalDivision()
{
  amount_t x1("123.123");
  amount_t y1("456.456");

  assertThrow(x1 / 0L, amount_error);
  assertEqual(string("0.0081219593"), (amount_t("1.0") / x1).to_string());
  assertEqual(string("0.0081219593"), (amount_t("1.0") / x1).to_string());
  assertEqual(x1, x1 / amount_t("1.0"));
  assertEqual(string("0.0081219593"), (amount_t("1.0") / x1).to_string());
  assertEqual(string("0.0081219593"), (amount_t("1.0") / x1).to_string());
  assertEqual(- x1, x1 / amount_t("-1.0"));
  assertEqual(string("-0.0081219593"), (amount_t("-1.0") / x1).to_string());
  assertEqual(string("-0.0081219593"), (amount_t("-1.0") / x1).to_string());
  assertEqual(string("0.269736842105"), (x1 / y1).to_string());
  assertEqual(string("3.707317073171"), (y1 / x1).to_string());
  assertEqual(string("0.269736842105"), (x1 / amount_t("456.456")).to_string());
  assertEqual(string("3.707317073171"), (amount_t("456.456") / x1).to_string());
  assertEqual(string("3.707317073171"), (amount_t("456.456") / x1).to_string());

  x1 /= amount_t("456.456");
  assertEqual(string("0.269736842105"), x1.to_string());
  x1 /= amount_t("456.456");
  assertEqual(string("0.000590937225286255757"), x1.to_string());
  x1 /= 456L;
  assertEqual(string("0.000001295914967733017011337"), x1.to_string());

  amount_t x4("1234567891234567.89123456789");
  amount_t y4("56.789");

  assertEqual(amount_t("1.0"), x4 / x4);
  assertEqual(string("21739560323910.75544972737484371973"), (x4 / y4).to_string());

  assertValid(x1);
  assertValid(y1);
  assertValid(x4);
  assertValid(y4);
}

void AmountTestCase::testCommodityDivision()
{
  amount_t x0;
  amount_t x1("$123.12");
  amount_t y1("$456.45");
  amount_t x2(internalAmount("$123.456789"));
  amount_t x3("DM 123.45");
  amount_t x4("123.45 euro");
  amount_t x5("123.45€");

  assertThrow(x1 / 0L, amount_error);
  assertEqual(amount_t("$0.00"), 0L / x1);
  assertEqual(x1, x1 / 1L);
  assertEqual(string("$0.00812216"), (1L / x1).to_fullstring());
  assertEqual(- x1, x1 / -1L);
  assertEqual(string("$-0.00812216"), (-1L / x1).to_fullstring());
  assertEqual(string("$0.26973382"), (x1 / y1).to_fullstring());
  assertEqual(string("$0.27"), (x1 / y1).to_string());
  assertEqual(string("$3.70735867"), (y1 / x1).to_fullstring());
  assertEqual(string("$3.71"), (y1 / x1).to_string());

  // Internal amounts retain their precision, even when being
  // converted to strings
  assertEqual(string("$0.99727201"), (x1 / x2).to_fullstring());
  assertEqual(string("$1.00273545321637"), (x2 / x1).to_fullstring());
  assertEqual(string("$1.00"), (x1 / x2).to_string());
  assertEqual(string("$1.00273545321637"), (x2 / x1).to_string());

  assertThrow(x1 / x0, amount_error);
  assertThrow(x0 / x1, amount_error);
  assertThrow(x0 / x0, amount_error);
  //assertThrow(x1 / x3, amount_error);
  //assertThrow(x1 / x4, amount_error);
  //assertThrow(x1 / x5, amount_error);

  x1 /= amount_t("123.12");
  assertEqual(string("$1.00"), x1.to_string());
  x1 /= amount_t("123.12");
  assertEqual(string("$0.00812216"), x1.to_fullstring());
  assertEqual(string("$0.01"), x1.to_string());
  x1 /= 123L;
  assertEqual(string("$0.00006603"), x1.to_fullstring());
  assertEqual(string("$0.00"), x1.to_string());

  amount_t x6(internalAmount("$237235987235987.98723987235978"));
  amount_t x7(internalAmount("$123456789123456789.123456789123456789"));

  assertEqual(amount_t("$1"), x7 / x7);
  assertEqual(string("$0.0019216115121765559608381226612019501"),
	      (x6 / x7).to_fullstring());
  assertEqual(string("$520.39654928343335571379527154924040947272"),
	      (x7 / x6).to_fullstring());

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
}

void AmountTestCase::testNegation()
{
  amount_t x0;
  amount_t x1(-123456L);
  amount_t x3("-123.456");
  amount_t x5("-123456");
  amount_t x6("-123.456");
  amount_t x7(string("-123456"));
  amount_t x8(string("-123.456"));
  amount_t x9(- x3);

  assertThrow(x0.negated(), amount_error);
  assertEqual(x5, x1);
  assertEqual(x7, x1);
  assertEqual(x6, x3);
  assertEqual(x8, x3);
  assertEqual(- x6, x9);
  assertEqual(x3.negated(), x9);

  amount_t x10(x9.negated());

  assertEqual(x3, x10);

  assertValid(x1);
  assertValid(x3);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
}

void AmountTestCase::testCommodityNegation()
{
  amount_t x1("$123.45");
  amount_t x2("-$123.45");
  amount_t x3("$-123.45");
  amount_t x4("DM 123.45");
  amount_t x5("-DM 123.45");
  amount_t x6("DM -123.45");
  amount_t x7("123.45 euro");
  amount_t x8("-123.45 euro");
  amount_t x9("123.45€");
  amount_t x10("-123.45€");

  assertEqual(amount_t("$-123.45"), - x1);
  assertEqual(amount_t("$123.45"), - x2);
  assertEqual(amount_t("$123.45"), - x3);
  assertEqual(amount_t("DM -123.45"), - x4);
  assertEqual(amount_t("DM 123.45"), - x5);
  assertEqual(amount_t("DM 123.45"), - x6);
  assertEqual(amount_t("-123.45 euro"), - x7);
  assertEqual(amount_t("123.45 euro"), - x8);
  assertEqual(amount_t("-123.45€"), - x9);
  assertEqual(amount_t("123.45€"), - x10);

  assertEqual(amount_t("$-123.45"), x1.negated());
  assertEqual(amount_t("$123.45"), x2.negated());
  assertEqual(amount_t("$123.45"), x3.negated());

  assertEqual(string("$-123.45"), (- x1).to_string());
  assertEqual(string("$123.45"), (- x2).to_string());
  assertEqual(string("$123.45"), (- x3).to_string());
  assertEqual(string("DM -123.45"), (- x4).to_string());
  assertEqual(string("DM 123.45"), (- x5).to_string());
  assertEqual(string("DM 123.45"), (- x6).to_string());
  assertEqual(string("-123.45 euro"), (- x7).to_string());
  assertEqual(string("123.45 euro"), (- x8).to_string());
  assertEqual(string("-123.45€"), (- x9).to_string());
  assertEqual(string("123.45€"), (- x10).to_string());

  assertEqual(amount_t("$-123.45"), x1.negated());
  assertEqual(amount_t("$123.45"), x2.negated());
  assertEqual(amount_t("$123.45"), x3.negated());

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
  assertValid(x5);
  assertValid(x6);
  assertValid(x7);
  assertValid(x8);
  assertValid(x9);
  assertValid(x10);
}

void AmountTestCase::testAbs()
{
  amount_t x0;
  amount_t x1(-1234L);
  amount_t x2(1234L);

  assertThrow(x0.abs(), amount_error);
  assertEqual(amount_t(1234L), x1.abs());
  assertEqual(amount_t(1234L), x2.abs());

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
}

void AmountTestCase::testCommodityAbs()
{
  amount_t x1("$-1234.56");
  amount_t x2("$1234.56");

  assertEqual(amount_t("$1234.56"), x1.abs());
  assertEqual(amount_t("$1234.56"), x2.abs());

  assertValid(x1);
  assertValid(x2);
}

#ifndef NOT_FOR_PYTHON
#if 0
void AmountTestCase::testReduction()
{
  amount_t x0;
  amount_t x1("60s");
  amount_t x2("600s");
  amount_t x3("6000s");
  amount_t x4("360000s");
  amount_t x5("10m");		// 600s
  amount_t x6("100m");		// 6000s
  amount_t x7("1000m");		// 60000s
  amount_t x8("10000m");	// 600000s
  amount_t x9("10h");		// 36000s
  amount_t x10("100h");		// 360000s
  amount_t x11("1000h");	// 3600000s
  amount_t x12("10000h");	// 36000000s

  assertThrow(x0.reduce(), amount_error);
  assertThrow(x0.unreduce(), amount_error);
  assertEqual(x2, x5.reduce());
  assertEqual(x3, x6.reduce());
  assertEqual(x10, x4.reduce());
  assertEqual(string("100.0h"), x4.unreduce().to_string());
}
#endif
#endif // NOT_FOR_PYTHON

void AmountTestCase::testSign()
{
  amount_t x0;
  amount_t x1("0.0000000000000000000000000000000000001");
  amount_t x2("-0.0000000000000000000000000000000000001");
  amount_t x3("1");
  amount_t x4("-1");

  assertThrow(x0.sign(), amount_error);
  assertTrue(x1.sign() > 0);
  assertTrue(x2.sign() < 0);
  assertTrue(x3.sign() > 0);
  assertTrue(x4.sign() < 0);

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
}

void AmountTestCase::testCommoditySign()
{
  amount_t x1(internalAmount("$0.0000000000000000000000000000000000001"));
  amount_t x2(internalAmount("$-0.0000000000000000000000000000000000001"));
  amount_t x3("$1");
  amount_t x4("$-1");

  assertTrue(x1.sign() != 0);
  assertTrue(x2.sign() != 0);
  assertTrue(x3.sign() > 0);
  assertTrue(x4.sign() < 0);

  assertValid(x1);
  assertValid(x2);
  assertValid(x3);
  assertValid(x4);
}

void AmountTestCase::testTruth()
{
  amount_t x0;
  amount_t x1("1234");
  amount_t x2("1234.56");

#ifndef NOT_FOR_PYTHON
  assertThrow(x0.operator bool(), amount_error);
#endif // NOT_FOR_PYTHON

  assertTrue(x1);
  assertTrue(x2);

  assertValid(x0);
  assertValid(x1);
  assertValid(x2);
}

void AmountTestCase::testCommodityTruth()
{
  amount_t x1("$1234");
  amount_t x2("$1234.56");

  if (x1)
    assertTrue(true);

  if (x2)
    assertTrue(true);

  assertValid(x1);
  assertValid(x2);
}

void AmountTestCase::testForZero()
{
  amount_t x0;
  amount_t x1("0.000000000000000000001");

  assertTrue(x1);
  assertThrow(x0.is_zero(), amount_error);
  assertThrow(x0.is_realzero(), amount_error);
  assertFalse(x1.is_zero());
  assertFalse(x1.is_realzero());

  assertValid(x0);
  assertValid(x1);
}

void AmountTestCase::testCommodityForZero()
{
  amount_t x1(internalAmount("$0.000000000000000000001"));

  assertTrue(x1);		// an internal amount never betrays its precision
  assertFalse(x1.is_zero());
  assertFalse(x1.is_realzero());

  assertValid(x1);
}

void AmountTestCase::testIntegerConversion()
{
  amount_t x0;
  amount_t x1(123456L);
  amount_t x2("12345682348723487324");

  assertThrow(x0.to_long(), amount_error);
  assertThrow(x0.to_double(), amount_error);
  assertFalse(x2.fits_in_long());
  assertEqual(123456L, x1.to_long());
  assertEqual(123456.0, x1.to_double());
  assertEqual(string("123456"), x1.to_string());
  assertEqual(string("123456"), x1.quantity_string());

  assertValid(x1);
}

void AmountTestCase::testFractionalConversion()
{
  amount_t x1("1234.56");
  amount_t x2("1234.5683787634678348734");

  assertEqual(1235L, x1.to_long());
  assertEqual(1234.56, x1.to_double());
  assertEqual(string("1234.56"), x1.to_string());
  assertEqual(string("1234.56"), x1.quantity_string());

  assertValid(x1);
}

void AmountTestCase::testCommodityConversion()
{
  amount_t x1("$1234.56");

  assertEqual(1235L, x1.to_long());
  assertEqual(1234.56, x1.to_double());
  assertEqual(string("$1234.56"), x1.to_string());
  assertEqual(string("1234.56"), x1.quantity_string());

  assertValid(x1);
}

#ifndef NOT_FOR_PYTHON

void AmountTestCase::testPrinting()
{
  amount_t x0;
  amount_t x1("982340823.380238098235098235098235098");

  {
  std::ostringstream bufstr;
  x0.print(bufstr);
  assertEqual(std::string("<null>"), bufstr.str());
  }

  {
  std::ostringstream bufstr;
  x1.print(bufstr);

  assertEqual(std::string("982340823.380238098235098235098235098"),
	      bufstr.str());
  }

  assertValid(x0);
  assertValid(x1);
}

void AmountTestCase::testCommodityPrinting()
{
  amount_t x1(internalAmount("$982340823.386238098235098235098235098"));
  amount_t x2("$982340823.38");

  {
  std::ostringstream bufstr;
  x1.print(bufstr);

  assertEqual(std::string("$982340823.386238098235098235098235098"),
	      bufstr.str());
  }

  {
  std::ostringstream bufstr;
  (x1 * x2).print(bufstr);

  assertEqual(std::string("$964993493285024293.18099172508158508135413499124"),
	      bufstr.str());
  }

  {
  std::ostringstream bufstr;
  (x2 * x1).print(bufstr);

  assertEqual(std::string("$964993493285024293.18"), bufstr.str());
  }

  assertValid(x1);
  assertValid(x2);
}

#endif // NOT_FOR_PYTHON