/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you 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 .
 */

#include <limits>

#include <sal/types.h>
#include <cppunit/TestAssert.h>
#include <cppunit/TestFixture.h>
#include <cppunit/extensions/HelperMacros.h>
#include <cppunit/plugin/TestPlugIn.h>

#include <rtl/ustrbuf.hxx>

#include <com/sun/star/util/DateTime.hpp>
#include <com/sun/star/util/Duration.hpp>
#include <com/sun/star/util/MeasureUnit.hpp>

#include <sax/tools/converter.hxx>
#include <sal/log.hxx>


using namespace ::com::sun::star;
using namespace ::com::sun::star::util;
using sax::Converter;


namespace {

class ConverterTest
    : public ::CppUnit::TestFixture
{
public:

    void testDuration();
    void testDateTime();
    void testTime();
    void testDouble();
    void testMeasure();
    void testBool();
    void testPercent();
    void testColor();
    void testNumber();

    CPPUNIT_TEST_SUITE(ConverterTest);
    CPPUNIT_TEST(testDuration);
    CPPUNIT_TEST(testDateTime);
    CPPUNIT_TEST(testTime);
    CPPUNIT_TEST(testDouble);
    CPPUNIT_TEST(testMeasure);
    CPPUNIT_TEST(testBool);
    CPPUNIT_TEST(testPercent);
    CPPUNIT_TEST(testColor);
    CPPUNIT_TEST(testNumber);
    CPPUNIT_TEST_SUITE_END();

private:
};

void doTest(util::Duration const & rid, char const*const pis,
        char const*const i_pos = nullptr)
{
    char const*const pos(i_pos ? i_pos : pis);
    util::Duration od;
    OUString is(OUString::createFromAscii(pis));
    SAL_INFO("sax.cppunit","about to convert '" << is << "'");
    bool bSuccess = Converter::convertDuration(od, is);
    SAL_INFO("sax.cppunit","" << (od.Negative ? "-" : "+")  << " " << od.Years << "Y " << od.Months << "M " << od.Days << "D " << od.Hours << "H " << od.Minutes << "M " << od.Seconds << "S " << od.NanoSeconds << "n");
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_EQUAL(rid.Years, od.Years);
    CPPUNIT_ASSERT_EQUAL(rid.Months, od.Months);
    CPPUNIT_ASSERT_EQUAL(rid.Days, od.Days);
    CPPUNIT_ASSERT_EQUAL(rid.Hours, od.Hours);
    CPPUNIT_ASSERT_EQUAL(rid.Minutes, od.Minutes);
    CPPUNIT_ASSERT_EQUAL(rid.Seconds, od.Seconds);
    CPPUNIT_ASSERT_EQUAL(rid.NanoSeconds, od.NanoSeconds);
    CPPUNIT_ASSERT_EQUAL(rid.Negative, od.Negative);
    OUStringBuffer buf(64);
    Converter::convertDuration(buf, od);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT(buf.makeStringAndClear().equalsAscii(pos));
}

void doTestDurationF(char const*const pis)
{
    util::Duration od;
    bool bSuccess = Converter::convertDuration(od,
            OUString::createFromAscii(pis));
    SAL_INFO("sax.cppunit","" << (od.Negative ? "-" : "+") << " " << od.Years << "Y " << od.Months << "M " << od.Days << "D " << od.Hours << "H " << od.Minutes << "M " << od.Seconds << "S " << od.NanoSeconds << "n");
    CPPUNIT_ASSERT_MESSAGE(pis, !bSuccess);
}

void ConverterTest::testDuration()
{
    SAL_INFO("sax.cppunit","\nSAX CONVERTER TEST BEGIN");
    doTest( util::Duration(false, 1, 0, 0, 0, 0, 0, 0), "P1Y" );
    doTest( util::Duration(false, 0, 42, 0, 0, 0, 0, 0), "P42M" );
    doTest( util::Duration(false, 0, 0, 111, 0, 0, 0, 0), "P111D" );
    doTest( util::Duration(false, 0, 0, 0, 52, 0, 0, 0), "PT52H" );
    doTest( util::Duration(false, 0, 0, 0, 0, 717, 0, 0), "PT717M" );
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 121, 0), "PT121S" );
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 0, 190000000), "PT0.19S",        "PT0.190000000S");
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 0,  90000000), "PT0.09S",        "PT0.090000000S" );
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 0,   9000000), "PT0.009S",       "PT0.009000000S" );
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 0,         9), "PT0.000000009S", "PT0.000000009S" );
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 9, 999999999),
            "PT9.999999999999999999999999999999S", "PT9.999999999S" );
    doTest( util::Duration(true , 0, 0, 9999, 0, 0, 0, 0), "-P9999D" );
    doTest( util::Duration(true , 7, 6, 5, 4, 3, 2,  10000000),
            "-P7Y6M5DT4H3M2.01000S", "-P7Y6M5DT4H3M2.010000000S" );
    doTest( util::Duration(false, 0, 6, 0, 0, 3, 0, 0), "P6MT3M" );
    doTest( util::Duration(false, 0, 0, 0, 0, 0, 0, 0), "P0D" );
    doTestDurationF("1Y1M");        // invalid: no ^P
    doTestDurationF("P-1Y1M");      // invalid: - after P
    doTestDurationF("P1M1Y");       // invalid: Y after M
    doTestDurationF("PT1Y");        // invalid: Y after T
    doTestDurationF("P1Y1M1M");     // invalid: M twice, no T
    doTestDurationF("P1YT1MT1M");   // invalid: T twice
    doTestDurationF("P1YT");        // invalid: T but no H,M,S
    doTestDurationF("P99999999999Y");   // cannot parse so many Ys
    doTestDurationF("PT.1S");       // invalid: no 0 preceding .
    doTestDurationF("PT5M.134S");   // invalid: no 0 preceding .
    doTestDurationF("PT1.S");       // invalid: no digit following .
    SAL_INFO("sax.cppunit","\nSAX CONVERTER TEST END");
}


bool eqDateTime(const util::DateTime& a, const util::DateTime& b) {
    return a.Year == b.Year && a.Month == b.Month && a.Day == b.Day
        && a.Hours == b.Hours && a.Minutes == b.Minutes
        && a.Seconds == b.Seconds
        && a.NanoSeconds == b.NanoSeconds
        && a.IsUTC == b.IsUTC;
}

void doTest(util::DateTime const & rdt, char const*const pis,
        char const*const i_pos = nullptr)
{
    char const*const pos(i_pos ? i_pos : pis);
    OUString is(OUString::createFromAscii(pis));
    util::DateTime odt;
    SAL_INFO("sax.cppunit","about to convert '" << is << "'");
    bool bSuccess( Converter::parseDateTime(odt, is) );
    SAL_INFO("sax.cppunit","Y:" << odt.Year << " M:" << odt.Month << " D:" << odt.Day << "  H:" << odt.Hours << " M:" << odt.Minutes << " S:" << odt.Seconds << " nS:" << odt.NanoSeconds << " UTC: " << static_cast<bool>(odt.IsUTC));
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT(eqDateTime(rdt, odt));
    OUStringBuffer buf(32);
    Converter::convertDateTime(buf, odt, nullptr, true);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(OUString::createFromAscii(pos),
                         buf.makeStringAndClear());
}

void doTestDateTimeF(char const*const pis)
{
    util::DateTime odt;
    bool bSuccess = Converter::parseDateTime(odt, OUString::createFromAscii(pis));
    SAL_INFO("sax.cppunit","Y:" << odt.Year << " M:" << odt.Month << " D:" << odt.Day << "  H:" << odt.Hours << "H M:" << odt.Minutes << " S:" << odt.Seconds << " nS:" << odt.NanoSeconds);
    CPPUNIT_ASSERT(!bSuccess);
}

void ConverterTest::testDateTime()
{
    SAL_INFO("sax.cppunit","\nSAX CONVERTER TEST BEGIN");
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, 1, false), "0001-01-01T00:00:00" );
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, 1, true), "0001-01-01T00:00:00Z" );
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, -1, false),
            "-0001-01-01T00:00:00");
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, -1, true),
            "-0001-01-01T01:00:00+01:00", "-0001-01-01T00:00:00Z");
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, -324, false),
            "-0324-01-01T00:00:00" );
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, 1, true),
            "0001-01-01T00:00:00-00:00", "0001-01-01T00:00:00Z" );
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, 1, true),
            "0001-01-01T00:00:00+00:00", "0001-01-01T00:00:00Z" );
    doTest( util::DateTime(0, 0, 0, 12, 2, 1, 1, true),
            "0001-01-02T00:00:00-12:00", "0001-01-02T12:00:00Z" );
    doTest( util::DateTime(0, 0, 0, 12, 1, 1, 1, true),
            "0001-01-02T00:00:00+12:00", "0001-01-01T12:00:00Z"  );
    doTest( util::DateTime(990000000, 59, 59, 23, 31, 12, 9999, false),
            "9999-12-31T23:59:59.99",  "9999-12-31T23:59:59.990000000" );
    doTest( util::DateTime(990000000, 59, 59, 23, 31, 12, 9999, true),
            "9999-12-31T23:59:59.99Z", "9999-12-31T23:59:59.990000000Z" );
    doTest( util::DateTime(999999999, 59, 59, 23, 31, 12, 9999, false),
            "9999-12-31T23:59:59.9999999999999999999999999999999999999",
            "9999-12-31T23:59:59.999999999" );
    doTest( util::DateTime(999999999, 59, 59, 23, 31, 12, 9999, true),
            "9999-12-31T23:59:59.9999999999999999999999999999999999999Z",
            "9999-12-31T23:59:59.999999999Z" );
    doTest( util::DateTime(0, 0, 0, 0, 29, 2, 2000, true), // leap year
            "2000-02-29T00:00:00-00:00", "2000-02-29T00:00:00Z" );
    doTest( util::DateTime(0, 0, 0, 0, 29, 2, 1600, true), // leap year
            "1600-02-29T00:00:00-00:00", "1600-02-29T00:00:00Z" );
    doTest( util::DateTime(0, 0, 0, 24, 1, 1, 333, false)
                /*(0, 0, 0, 0, 2, 1, 333)*/,
            "0333-01-01T24:00:00"/*, "0333-01-02T00:00:00"*/ );
    // While W3C XMLSchema specifies a minimum of 4 year digits we are lenient
    // in what we accept.
    doTest( util::DateTime(0, 0, 0, 0, 1, 1, 1, false),
            "1-01-01T00:00:00", "0001-01-01T00:00:00" );
    doTestDateTimeF( "+0001-01-01T00:00:00" ); // invalid: ^+
    doTestDateTimeF( "0001-1-01T00:00:00" ); // invalid: < 2 M
    doTestDateTimeF( "0001-01-1T00:00:00" ); // invalid: < 2 D
    doTestDateTimeF( "0001-01-01T0:00:00" ); // invalid: < 2 H
    doTestDateTimeF( "0001-01-01T00:0:00" ); // invalid: < 2 M
    doTestDateTimeF( "0001-01-01T00:00:0" ); // invalid: < 2 S
    doTestDateTimeF( "0001-01-01T00:00:00." ); // invalid: .$
    doTestDateTimeF( "0001-01-01T00:00:00+1:00" ); // invalid: < 2 TZ H
    doTestDateTimeF( "0001-01-01T00:00:00+00:1" ); // invalid: < 2 TZ M
    doTestDateTimeF( "0001-13-01T00:00:00" ); // invalid: M > 12
    doTestDateTimeF( "0001-01-32T00:00:00" ); // invalid: D > 31
    doTestDateTimeF( "0001-01-01T25:00:00" ); // invalid: H > 24
    doTestDateTimeF( "0001-01-01T00:60:00" ); // invalid: M > 59
    doTestDateTimeF( "0001-01-01T00:00:60" ); // invalid: S > 59
    doTestDateTimeF( "0001-01-01T24:01:00" ); // invalid: H=24, but M != 0
    doTestDateTimeF( "0001-01-01T24:00:01" ); // invalid: H=24, but S != 0
    doTestDateTimeF( "0001-01-01T24:00:00.1" ); // invalid: H=24, but H != 0
    doTestDateTimeF( "0001-01-02T00:00:00+15:00" ); // invalid: TZ > +14:00
    doTestDateTimeF( "0001-01-02T00:00:00+14:01" ); // invalid: TZ > +14:00
    doTestDateTimeF( "0001-01-02T00:00:00-15:00" ); // invalid: TZ < -14:00
    doTestDateTimeF( "0001-01-02T00:00:00-14:01" ); // invalid: TZ < -14:00
    doTestDateTimeF( "2100-02-29T00:00:00-00:00" ); // invalid: no leap year
    doTestDateTimeF( "1900-02-29T00:00:00-00:00" ); // invalid: no leap year
    doTestDateTimeF( "00:00:00" ); // invalid: no date
    doTestDateTimeF( "T00:00:00" ); // invalid: no date
    SAL_INFO("sax.cppunit","\nSAX CONVERTER TEST END");
}

void doTestTime(util::DateTime const & rdt, char const*const pis,
        char const*const i_pos = nullptr)
{
    char const*const pos(i_pos ? i_pos : pis);
    OUString is(OUString::createFromAscii(pis));
    util::DateTime odt;
    SAL_INFO("sax.cppunit","about to convert '" << is << "'");
    bool bSuccess( Converter::parseTimeOrDateTime(odt, is) );
    SAL_INFO("sax.cppunit","Y:" << odt.Year << " M:" << odt.Month << " D:" << odt.Day << "  H:" << odt.Hours << " M:" << odt.Minutes << " S:" << odt.Seconds << " nS:" << odt.NanoSeconds << " UTC: " << static_cast<bool>(odt.IsUTC));
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT(eqDateTime(rdt, odt));
    OUStringBuffer buf(32);
    Converter::convertTimeOrDateTime(buf, odt);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(OUString::createFromAscii(pos),
                         buf.makeStringAndClear());
}

void doTestTimeF(char const*const pis)
{
    util::DateTime odt;
    bool bSuccess = Converter::parseTimeOrDateTime(odt, OUString::createFromAscii(pis));
    SAL_INFO("sax.cppunit","Y:" << odt.Year << " M:" << odt.Month << " D:" << odt.Day << "  H:" << odt.Hours << "H M:" << odt.Minutes << " S:" << odt.Seconds << " nS:" << odt.NanoSeconds);
    CPPUNIT_ASSERT_MESSAGE(pis, !bSuccess);
}

void ConverterTest::testTime() // time or dateTime + horrible backcompat mess
{
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, 1, false),
            "0001-01-01T00:00:00" );
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, 1, false),
            "0001-01-01T00:00:00" );
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, 1, true),
            "0001-01-01T00:00:00Z" );
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, -1, false),
            "-0001-01-01T00:00:00");
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, -1, true),
            "-0001-01-01T01:00:00+01:00", "-0001-01-01T00:00:00Z");
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, -324, false),
            "-0324-01-01T00:00:00" );
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, 1, true),
            "0001-01-01T00:00:00-00:00", "0001-01-01T00:00:00Z" );
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, 1, true),
            "0001-01-01T00:00:00+00:00", "0001-01-01T00:00:00Z" );
    doTestTime( util::DateTime(0, 0, 0, 12, 2, 1, 1, true),
            "0001-01-02T00:00:00-12:00", "0001-01-02T12:00:00Z" );
    doTestTime( util::DateTime(0, 0, 0, 12, 1, 1, 1, true),
            "0001-01-02T00:00:00+12:00", "0001-01-01T12:00:00Z"  );
    doTestTime( util::DateTime(990000000, 59, 59, 23, 31, 12, 9999, false),
            "9999-12-31T23:59:59.99",  "9999-12-31T23:59:59.990000000" );
    doTestTime( util::DateTime(990000000, 59, 59, 23, 31, 12, 9999, true),
            "9999-12-31T23:59:59.99Z", "9999-12-31T23:59:59.990000000Z" );
    doTestTime( util::DateTime(999999999, 59, 59, 23, 31, 12, 9999, false),
            "9999-12-31T23:59:59.9999999999999999999999999999999999999",
            "9999-12-31T23:59:59.999999999" );
    doTestTime( util::DateTime(999999999, 59, 59, 23, 31, 12, 9999, true),
            "9999-12-31T23:59:59.9999999999999999999999999999999999999Z",
            "9999-12-31T23:59:59.999999999Z" );
    doTestTime( util::DateTime(0, 0, 0, 0, 29, 2, 2000, true), // leap year
            "2000-02-29T00:00:00-00:00", "2000-02-29T00:00:00Z" );
    doTestTime( util::DateTime(0, 0, 0, 0, 29, 2, 1600, true), // leap year
            "1600-02-29T00:00:00-00:00", "1600-02-29T00:00:00Z" );
    doTestTime( util::DateTime(0, 0, 0, 24, 1, 1, 333, false)
                /*(0, 0, 0, 0, 2, 1, 333)*/,
            "0333-01-01T24:00:00"/*, "0333-01-02T00:00:00"*/ );
    // While W3C XMLSchema specifies a minimum of 4 year digits we are lenient
    // in what we accept.
    doTestTime( util::DateTime(0, 0, 0, 0, 1, 1, 1, false),
            "1-01-01T00:00:00", "0001-01-01T00:00:00" );

    doTestTime( util::DateTime(0, 0, 0, 0, 0, 0, 0, false), "00:00:00" );
    doTestTime( util::DateTime(0, 0, 0, 24, 0, 0, 0, false), "24:00:00" );
    doTestTime( util::DateTime(0, 0, 59, 0, 0, 0, 0, false), "00:59:00" );
    doTestTime( util::DateTime(0, 1, 2, 4, 0, 0, 0, true), "04:02:01Z" );
    doTestTime( util::DateTime(0, 1, 2, 4, 0, 0, 0, true),
            "05:02:01+01:00", "04:02:01Z" );
    doTestTime( util::DateTime(0, 11, 12, 9, 0, 0, 0, true),
            "05:12:11-04:00", "09:12:11Z" );
    doTestTime( util::DateTime(990000000, 59, 59, 23, 0, 0, 0, false),
            "23:59:59.99",  "23:59:59.990000000" );
    doTestTime( util::DateTime(990000000, 59, 59, 23, 0, 0, 0, true),
            "23:59:59.99Z",  "23:59:59.990000000Z" );
    // backwards compatible: recognize invalid 0000-00-00 date (LO 3.5)
    doTestTime( util::DateTime(0, 1, 0, 0, 0, 0, 0, false),
            "0000-00-00T00:00:01", "00:00:01" );
    // backwards compatible: recognize invalid 0-00-00 date (OOo)
    doTestTime( util::DateTime(0, 0, 1, 0, 0, 0, 0, false),
            "0-00-00T00:01:00", "00:01:00" );

    doTestTimeF( "+0001-01-01T00:00:00" ); // invalid: ^+
    doTestTimeF( "0001-1-01T00:00:00" ); // invalid: < 2 M
    doTestTimeF( "0001-01-1T00:00:00" ); // invalid: < 2 D
    doTestTimeF( "0001-01-01T0:00:00" ); // invalid: < 2 H
    doTestTimeF( "0001-01-01T00:0:00" ); // invalid: < 2 M
    doTestTimeF( "0001-01-01T00:00:0" ); // invalid: < 2 S
    doTestTimeF( "0001-01-01T00:00:00." ); // invalid: .$
    doTestTimeF( "0001-01-01T00:00:00+1:00" ); // invalid: < 2 TZ H
    doTestTimeF( "0001-01-01T00:00:00+00:1" ); // invalid: < 2 TZ M
    doTestTimeF( "0001-13-01T00:00:00" ); // invalid: M > 12
    doTestTimeF( "0001-01-32T00:00:00" ); // invalid: D > 31
    doTestTimeF( "0001-01-01T25:00:00" ); // invalid: H > 24
    doTestTimeF( "0001-01-01T00:60:00" ); // invalid: M > 59
    doTestTimeF( "0001-01-01T00:00:60" ); // invalid: S > 59
    doTestTimeF( "0001-01-01T24:01:00" ); // invalid: H=24, but M != 0
    doTestTimeF( "0001-01-01T24:00:01" ); // invalid: H=24, but S != 0
    doTestTimeF( "0001-01-01T24:00:00.1" ); // invalid: H=24, but H != 0
    doTestTimeF( "0001-01-02T00:00:00+15:00" ); // invalid: TZ > +14:00
    doTestTimeF( "0001-01-02T00:00:00+14:01" ); // invalid: TZ > +14:00
    doTestTimeF( "0001-01-02T00:00:00-15:00" ); // invalid: TZ < -14:00
    doTestTimeF( "0001-01-02T00:00:00-14:01" ); // invalid: TZ < -14:00
    doTestTimeF( "2100-02-29T00:00:00-00:00" ); // invalid: no leap year
    doTestTimeF( "1900-02-29T00:00:00-00:00" ); // invalid: no leap year
    doTestTimeF( "T00:00:00" ); // invalid: T
    doTestTimeF( "0:00:00" ); // invalid: < 2 H
    doTestTimeF( "00:0:00" ); // invalid: < 2 M
    doTestTimeF( "00:00:0" ); // invalid: < 2 S
    doTestTimeF( "00:00:00." ); // invalid: .$
    doTestTimeF( "00:00:00+1:00" ); // invalid: < 2 TZ H
    doTestTimeF( "00:00:00+00:1" ); // invalid: < 2 TZ M
    doTestTimeF( "25:00:00" ); // invalid: H > 24
    doTestTimeF( "00:60:00" ); // invalid: M > 59
    doTestTimeF( "00:00:60" ); // invalid: S > 59
    doTestTimeF( "24:01:00" ); // invalid: H=24, but M != 0
    doTestTimeF( "24:00:01" ); // invalid: H=24, but S != 0
    doTestTimeF( "24:00:00.1" ); // invalid: H=24, but H != 0
    doTestTimeF( "00:00:00+15:00" ); // invalid: TZ > +14:00
    doTestTimeF( "00:00:00+14:01" ); // invalid: TZ > +14:00
    doTestTimeF( "00:00:00-15:00" ); // invalid: TZ < -14:00
    doTestTimeF( "00:00:00-14:01" ); // invalid: TZ < -14:00
}

void doTestDouble(char const*const pis, double const rd,
        sal_Int16 const nSourceUnit, sal_Int16 const nTargetUnit)
{
    OUString const is(OUString::createFromAscii(pis));
    double od;
    bool bSuccess(Converter::convertDouble(od, is, nSourceUnit, nTargetUnit));
    SAL_INFO("sax.cppunit","" << od);
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_DOUBLES_EQUAL(rd, od, 0.00000001);
    OUStringBuffer buf;
    Converter::convertDouble(buf, od, true, nTargetUnit, nSourceUnit);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(is, buf.makeStringAndClear());
}

void ConverterTest::testDouble()
{
    doTestDouble("42", 42.0, MeasureUnit::TWIP, MeasureUnit::TWIP);
    doTestDouble("42", 42.0, MeasureUnit::POINT, MeasureUnit::POINT);
    doTestDouble("42", 42.0, MeasureUnit::MM_100TH, MeasureUnit::MM_100TH);
    doTestDouble("42", 42.0, MeasureUnit::MM_10TH, MeasureUnit::MM_10TH);
    doTestDouble("42", 42.0, MeasureUnit::MM, MeasureUnit::MM); // identity don't seem to add unit?
    doTestDouble("42", 42.0, MeasureUnit::CM, MeasureUnit::CM);
    doTestDouble("42", 42.0, MeasureUnit::INCH, MeasureUnit::INCH);
    doTestDouble("2pt", 40.0, MeasureUnit::POINT, MeasureUnit::TWIP);
    doTestDouble("20pc", 1, MeasureUnit::TWIP, MeasureUnit::POINT);
    doTestDouble("4", 2.26771653543307, MeasureUnit::MM_100TH, MeasureUnit::TWIP);
    doTestDouble("4", 22.6771653543307, MeasureUnit::MM_10TH, MeasureUnit::TWIP);
    doTestDouble("4mm", 226.771653543307, MeasureUnit::MM, MeasureUnit::TWIP);
    doTestDouble("4cm", 2267.71653543307, MeasureUnit::CM, MeasureUnit::TWIP);
    doTestDouble("4in", 5760.0, MeasureUnit::INCH, MeasureUnit::TWIP);
    doTestDouble("1440pc", 1.0, MeasureUnit::TWIP, MeasureUnit::INCH);
    doTestDouble("567pc", 1.000125, MeasureUnit::TWIP, MeasureUnit::CM);
    doTestDouble("56.7pc", 1.000125, MeasureUnit::TWIP, MeasureUnit::MM);
    doTestDouble("5.67pc", 1.000125, MeasureUnit::TWIP, MeasureUnit::MM_10TH);
    doTestDouble("0.567pc", 1.000125, MeasureUnit::TWIP, MeasureUnit::MM_100TH);
    doTestDouble("42pt", 1.4816666666666, MeasureUnit::POINT, MeasureUnit::CM);
    doTestDouble("42pt", 14.816666666666, MeasureUnit::POINT, MeasureUnit::MM);
    doTestDouble("42pt", 148.16666666666, MeasureUnit::POINT, MeasureUnit::MM_10TH);
    doTestDouble("42pt", 1481.6666666666, MeasureUnit::POINT, MeasureUnit::MM_100TH);
    doTestDouble("72pt", 1.0, MeasureUnit::POINT, MeasureUnit::INCH);
    doTestDouble("3.5in", 8.89, MeasureUnit::INCH, MeasureUnit::CM);
    doTestDouble("3.5in", 88.9, MeasureUnit::INCH, MeasureUnit::MM);
    doTestDouble("3.5in", 889.0, MeasureUnit::INCH, MeasureUnit::MM_10TH);
    doTestDouble("3.5in", 8890.0, MeasureUnit::INCH, MeasureUnit::MM_100TH);
    doTestDouble("2in", 144, MeasureUnit::INCH, MeasureUnit::POINT);
    doTestDouble("5.08cm", 2.0, MeasureUnit::CM, MeasureUnit::INCH);
    doTestDouble("3.5cm", 3500.0, MeasureUnit::CM, MeasureUnit::MM_100TH);
    doTestDouble("3.5cm", 350.0, MeasureUnit::CM, MeasureUnit::MM_10TH);
    doTestDouble("3.5cm", 35.0, MeasureUnit::CM, MeasureUnit::MM);
    doTestDouble("10cm", 283.464566929134, MeasureUnit::CM, MeasureUnit::POINT);
    doTestDouble("0.5cm", 283.464566929134, MeasureUnit::CM, MeasureUnit::TWIP);
    doTestDouble("10mm", 28.3464566929134, MeasureUnit::MM, MeasureUnit::POINT);
    doTestDouble("0.5mm", 28.3464566929134, MeasureUnit::MM, MeasureUnit::TWIP);
    doTestDouble("10", 2.83464566929134, MeasureUnit::MM_10TH, MeasureUnit::POINT);
    doTestDouble("0.5", 2.83464566929134, MeasureUnit::MM_10TH, MeasureUnit::TWIP);
    doTestDouble("10", 0.283464566929134, MeasureUnit::MM_100TH, MeasureUnit::POINT);
    doTestDouble("0.5", 0.283464566929134, MeasureUnit::MM_100TH, MeasureUnit::TWIP);
    doTestDouble("10mm", 1.0, MeasureUnit::MM, MeasureUnit::CM);
    doTestDouble("10mm", 100.0, MeasureUnit::MM, MeasureUnit::MM_10TH);
    doTestDouble("20mm", 2000.0, MeasureUnit::MM, MeasureUnit::MM_100TH);
    doTestDouble("300", 30.0, MeasureUnit::MM_10TH, MeasureUnit::MM);
    doTestDouble("400", 4.0, MeasureUnit::MM_100TH, MeasureUnit::MM);
    doTestDouble("600", 6000.0, MeasureUnit::MM_10TH, MeasureUnit::MM_100TH);
    doTestDouble("700", 70.0, MeasureUnit::MM_100TH, MeasureUnit::MM_10TH);
}

void doTestStringToMeasure(sal_Int32 rValue, char const*const pis, sal_Int16 nTargetUnit, sal_Int32 nMin, sal_Int32 nMax)
{
    OUString const is(OUString::createFromAscii(pis));
    sal_Int32 nVal;
    bool bSuccess(Converter::convertMeasure(nVal, is, nTargetUnit, nMin, nMax));
    SAL_INFO("sax.cppunit","" << nVal);
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_EQUAL(rValue, nVal);
}

void doTestMeasureToString(char const*const pis, sal_Int32 nMeasure, sal_Int16 const nSourceUnit, sal_Int16 const nTargetUnit)
{
    OUString const is(OUString::createFromAscii(pis));
    OUStringBuffer buf;
    Converter::convertMeasure(buf, nMeasure, nSourceUnit, nTargetUnit);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(is, buf.makeStringAndClear());
}

void ConverterTest::testMeasure()
{
    //check all the measure units
    doTestStringToMeasure(1000, "10mm", MeasureUnit::MM_100TH, -1, 4321);
    doTestStringToMeasure(200, "20mm", MeasureUnit::MM_10TH, 12, 4567);
    doTestStringToMeasure(300, "300", MeasureUnit::MM, 31, 555);
    doTestStringToMeasure(400, "400", MeasureUnit::CM, 10, 4321);
    doTestStringToMeasure(120, "120", MeasureUnit::INCH_1000TH, 10, 4321);
    doTestStringToMeasure(111, "111", MeasureUnit::INCH_100TH, 10, 4321);
    doTestStringToMeasure(22, "22", MeasureUnit::INCH_10TH, 10, 4321);
    doTestStringToMeasure(27, "27", MeasureUnit::INCH, 10, 4321);
    doTestStringToMeasure(52, "52", MeasureUnit::POINT, 10, 4321);
    doTestStringToMeasure(120, "120", MeasureUnit::TWIP, 10, 4321);
    doTestStringToMeasure(666, "666", MeasureUnit::M, 10, 4321);
    doTestStringToMeasure(42, "42", MeasureUnit::KM, 10, 4321);
    doTestStringToMeasure(30, "30", MeasureUnit::PICA, 10, 4321);
    doTestStringToMeasure(20, "20", MeasureUnit::FOOT, 10, 4321);
    doTestStringToMeasure(40, "40", MeasureUnit::MILE, 10, 4321);
    doTestStringToMeasure(40, "40%", MeasureUnit::PERCENT, 10, 4321);
    doTestStringToMeasure(800, "800", MeasureUnit::PIXEL, 10, 4321);
    doTestStringToMeasure(600, "600px", MeasureUnit::PIXEL, 10, 4321);
    doTestStringToMeasure(777, "777", MeasureUnit::APPFONT, 10, 4321);
    doTestStringToMeasure(80000, "80000", MeasureUnit::SYSFONT, 10, 432100);
    //strange values (negative, too large etc.)
    doTestStringToMeasure(555, "666", MeasureUnit::MM, -1000, 555);
    doTestStringToMeasure(-1000, "-1001", MeasureUnit::MM, -1000, 555);
    doTestStringToMeasure(0, "-0", MeasureUnit::MM, -1, 0);
    doTestStringToMeasure(::std::numeric_limits<sal_Int32>::max(), "1234567890mm", MeasureUnit::MM_10TH, 12, ::std::numeric_limits<sal_Int32>::max());
    doTestStringToMeasure(-300, "-300", MeasureUnit::MM, -1000, 555);
    doTestStringToMeasure(::std::numeric_limits<sal_Int32>::min(), "-999999999999999px", MeasureUnit::PIXEL, ::std::numeric_limits<sal_Int32>::min(), 555);   //really crazy numbers...

    doTestMeasureToString("6mm", 600, MeasureUnit::MM_100TH, MeasureUnit::MM);
    doTestMeasureToString("0.005cm", 000000005, MeasureUnit::MM_100TH, MeasureUnit::CM);    // zeros in the front doesn't count
    doTestMeasureToString("3mm", 30, MeasureUnit::MM_10TH, MeasureUnit::MM);
    doTestMeasureToString("6.66cm", 666, MeasureUnit::MM_10TH, MeasureUnit::CM);
    doTestMeasureToString("-157.3pt", -555, MeasureUnit::MM_10TH, MeasureUnit::POINT);
    doTestMeasureToString("174976.378in", 44444000, MeasureUnit::MM_10TH, MeasureUnit::INCH);    //let's check accuracy
    doTestMeasureToString("40%", 40, MeasureUnit::PERCENT, MeasureUnit::PERCENT);
    doTestMeasureToString("70.56mm", 4000, MeasureUnit::TWIP, MeasureUnit::MM);
    doTestMeasureToString("979.928cm", 555550, MeasureUnit::TWIP, MeasureUnit::CM);
    doTestMeasureToString("111.1pt", 2222, MeasureUnit::TWIP, MeasureUnit::POINT);
    doTestMeasureToString("385.7986in", 555550, MeasureUnit::TWIP, MeasureUnit::INCH);
    doTestMeasureToString("-2147483.648cm", std::numeric_limits<sal_Int32>::min(), MeasureUnit::MM_100TH, MeasureUnit::CM);
}

void doTestStringToBool(bool bBool, char const*const pis)
{
    OUString const is(OUString::createFromAscii(pis));
    bool bTemp;
    bool bSuccess(Converter::convertBool(bTemp, is));
    SAL_INFO("sax.cppunit","" << bTemp);
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_EQUAL(bBool, bTemp);

}

void doTestBoolToString(char const*const pis, bool bValue )
{
    OUString const is(OUString::createFromAscii(pis));
    OUStringBuffer buf;
    Converter::convertBool(buf, bValue);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(is, buf.makeStringAndClear());
}

void ConverterTest::testBool()
{
    doTestStringToBool(true, "true");
    doTestStringToBool(false, "false");
    doTestBoolToString("true", true);
    doTestBoolToString("false", false);
}

void doTestStringToPercent(sal_Int32 nValue, char const*const pis)
{
    OUString const is(OUString::createFromAscii(pis));
    sal_Int32 nTemp;
    bool bSuccess(Converter::convertPercent(nTemp, is));
    SAL_INFO("sax.cppunit","" << nTemp);
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_EQUAL(nValue, nTemp);
}

void doTestPercentToString(char const*const pis, sal_Int32 nValue)
{
    OUString const is(OUString::createFromAscii(pis));
    OUStringBuffer buf;
    Converter::convertPercent(buf, nValue);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(is, buf.makeStringAndClear());
}

void ConverterTest::testPercent()
{
    doTestStringToPercent(40, "40%");
    doTestStringToPercent(30, "30");
    doTestStringToPercent(120, "120%");
    doTestStringToPercent(-40, "-40%");
    doTestStringToPercent(0, "0%");
    doTestPercentToString("12%", 12);
    doTestPercentToString("-123%", -123);
    doTestPercentToString("0%", 0);
    doTestPercentToString("1%", 00001);
}

void doTestStringToColor(sal_Int32 nValue, char const*const pis)
{
    OUString const is(OUString::createFromAscii(pis));
    sal_Int32 nTemp;
    bool bSuccess(Converter::convertColor(nTemp, is));
    SAL_INFO("sax.cppunit","" << nTemp);
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_EQUAL(nValue, nTemp);
}

void doTestColorToString(char const*const pis, sal_Int32 nValue)
{
    OUString const is(OUString::createFromAscii(pis));
    OUStringBuffer buf;
    Converter::convertColor(buf, nValue);
    SAL_INFO("sax.cppunit","" << buf.toString());
    CPPUNIT_ASSERT_EQUAL(is, buf.makeStringAndClear());
}

void ConverterTest::testColor()
{
    doTestStringToColor(11259375, "#abcdef");
    doTestStringToColor(160, "#0000a0");
    doTestStringToColor(40960, "#00a000");
    doTestStringToColor(0, "#000000");
    doTestColorToString("#000615", 1557);
    doTestColorToString("#5bcd15", 123456789);
    doTestColorToString("#fffac7", -1337);
    doTestColorToString("#000000", 0);
}

void doTestStringToNumber(sal_Int32 nValue, char const*const pis, sal_Int32 nMin, sal_Int32 nMax)
{
    OUString const is(OUString::createFromAscii(pis));
    sal_Int32 nTemp;
    bool bSuccess(Converter::convertNumber(nTemp, is, nMin, nMax));
    SAL_INFO("sax.cppunit","" << nTemp);
    CPPUNIT_ASSERT(bSuccess);
    CPPUNIT_ASSERT_EQUAL(nValue, nTemp);
}

void ConverterTest::testNumber()
{
    doTestStringToNumber(30, "30", 1, 40);
    doTestStringToNumber(1, "-5", 1, 300);
    doTestStringToNumber(-30, "7", -100, -30);
    doTestStringToNumber(0, "-0", 0, 1);
    doTestStringToNumber(0, "666", -0, 0);
}

CPPUNIT_TEST_SUITE_REGISTRATION(ConverterTest);

}

CPPUNIT_PLUGIN_IMPLEMENT();

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */