#include "cppunit/extensions/HelperMacros.h"
#include "cppunit/TestCaller.h"
#include "cppunit/TestCase.h"
#include "cppunit/TestSuite.h"

#include "Fontdefs.h"

#include "FTGL/ftgl.h"


class TestGlyph : public FTGlyph
{
    public:
        TestGlyph(FT_GlyphSlot glyph)
        :   FTGlyph(glyph),
            advance(FTPoint(Advance(), 0.0))
        {}

        const FTPoint& Render(const FTPoint& pen, int renderMode){ return advance; }

    private:
        FTPoint advance;
};


class TestFont : public FTFont
{
    public:
        TestFont(const char* fontFilePath)
        :   FTFont(fontFilePath)
        {}

        TestFont(const unsigned char *pBufferBytes, size_t bufferSizeInBytes)
        :   FTFont(pBufferBytes, bufferSizeInBytes)
        {}

        FTGlyph* MakeGlyph(FT_GlyphSlot ftGlyph)
        {
            return new TestGlyph(ftGlyph);
        }
};


class BadGlyphTestFont : public FTFont
{
    public:
        BadGlyphTestFont(const char* fontFilePath)
        :   FTFont(fontFilePath)
        {}

        FTGlyph* MakeGlyph(FT_GlyphSlot ftGlyph)
        {
            return new TestGlyph(ftGlyph);
        }

    private:
        bool CheckGlyph(const unsigned int chr)
        {
            static bool succeed = false;

            if(succeed == false)
            {
                succeed = true;
                return false;
            }

            return true;
        }

};


class FTFontTest : public CppUnit::TestCase
{
    CPPUNIT_TEST_SUITE(FTFontTest);
        CPPUNIT_TEST(testOpenFont);
        CPPUNIT_TEST(testOpenFontFromMemory);
        CPPUNIT_TEST(testAttachFile);
        CPPUNIT_TEST(testAttachData);
        CPPUNIT_TEST(testSetFontSize);
        CPPUNIT_TEST(testSetCharMap);
        CPPUNIT_TEST(testGetCharmapList);
        CPPUNIT_TEST(testBoundingBox);
        CPPUNIT_TEST(testCheckGlyphFailure);
        CPPUNIT_TEST(testAdvance);
        CPPUNIT_TEST(testRender);
    CPPUNIT_TEST_SUITE_END();

    public:
        FTFontTest() : CppUnit::TestCase("FTFont test") {};
        FTFontTest(const std::string& name) : CppUnit::TestCase(name) {};


        void testOpenFont()
        {
            TestFont badFont(BAD_FONT_FILE);
            CPPUNIT_ASSERT_EQUAL(badFont.Error(), 0x06); // invalid argument

            TestFont goodFont(GOOD_FONT_FILE);
            CPPUNIT_ASSERT_EQUAL(goodFont.Error(), 0);
        }


        void testOpenFontFromMemory()
        {
            TestFont badFont((unsigned char*)100, 0);
            CPPUNIT_ASSERT_EQUAL(badFont.Error(), 0x02);

            TestFont goodFont(HPGCalc_pfb.dataBytes, HPGCalc_pfb.numBytes);
            CPPUNIT_ASSERT_EQUAL(goodFont.Error(), 0);
        }


        void testAttachFile()
        {
            testFont->Attach(TYPE1_AFM_FILE);
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0x07); // unimplemented feature
        }


        void testAttachData()
        {
            testFont->Attach((unsigned char*)100, 0);
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0x07); // unimplemented feature
        }


        void testSetFontSize()
        {
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, testFont->Ascender(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, testFont->Descender(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, testFont->LineHeight(), 0.01);

            float advance = testFont->Advance(GOOD_UNICODE_TEST_STRING);
            CPPUNIT_ASSERT_EQUAL(advance, 0.f);

            CPPUNIT_ASSERT(testFont->FaceSize(FONT_POINT_SIZE));
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0);

            CPPUNIT_ASSERT_EQUAL(testFont->FaceSize(), FONT_POINT_SIZE);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(52, testFont->Ascender(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(-15, testFont->Descender(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(81.86, testFont->LineHeight(), 0.01);

            CPPUNIT_ASSERT(testFont->FaceSize(FONT_POINT_SIZE * 2));
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0);

            CPPUNIT_ASSERT_EQUAL(testFont->FaceSize(), FONT_POINT_SIZE * 2);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(104, testFont->Ascender(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(-29, testFont->Descender(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(163.72, testFont->LineHeight(), 0.01);
        }


        void testSetCharMap()
        {
            CPPUNIT_ASSERT(true == testFont->CharMap(ft_encoding_unicode));
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0);
            CPPUNIT_ASSERT(false == testFont->CharMap(ft_encoding_johab));
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0x06); // invalid argument
        }


        void testGetCharmapList()
        {
            CPPUNIT_ASSERT_EQUAL(testFont->CharMapCount(), 2U);

            FT_Encoding* charmapList = testFont->CharMapList();

            CPPUNIT_ASSERT_EQUAL(charmapList[0], ft_encoding_unicode);
            CPPUNIT_ASSERT_EQUAL(charmapList[1], ft_encoding_adobe_standard);
        }


        void testBoundingBox()
        {
            CPPUNIT_ASSERT(testFont->FaceSize(FONT_POINT_SIZE));
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0);

            FTBBox bbox;

            bbox = testFont->BBox(GOOD_ASCII_TEST_STRING);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(1.21, bbox.Lower().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(-15.12, bbox.Lower().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0.00, bbox.Lower().Z(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(307.43, bbox.Upper().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(51.54, bbox.Upper().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0.00, bbox.Upper().Z(), 0.01);

            testFont->BBox(BAD_ASCII_TEST_STRING);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().Z(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().Z(), 0.01);

            testFont->BBox(GOOD_UNICODE_TEST_STRING);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(2.15, bbox.Lower().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(-6.12, bbox.Lower().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0.00, bbox.Lower().Z(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(134.28, bbox.Upper().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(61.12, bbox.Upper().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0.00, bbox.Upper().Z(), 0.01);

            testFont->BBox(BAD_UNICODE_TEST_STRING);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().Z(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().Z(), 0.01);

            testFont->BBox((char*)0);

            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Lower().Z(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().X(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().Y(), 0.01);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, bbox.Upper().Z(), 0.01);
        }

        void testCheckGlyphFailure()
        {
            BadGlyphTestFont* font = new BadGlyphTestFont(GOOD_FONT_FILE);

            float advance = font->Advance(GOOD_ASCII_TEST_STRING);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0.0, advance, 0.01);
        }

        void testAdvance()
        {
            CPPUNIT_ASSERT(testFont->FaceSize(FONT_POINT_SIZE));
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0);

            float advance = testFont->Advance(GOOD_ASCII_TEST_STRING);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(312.10, advance, 0.01);

            advance = testFont->Advance(BAD_ASCII_TEST_STRING);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, advance, 0.01);

            advance = testFont->Advance(GOOD_UNICODE_TEST_STRING);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(144, advance, 0.01);

            advance = testFont->Advance(BAD_UNICODE_TEST_STRING);
            CPPUNIT_ASSERT_DOUBLES_EQUAL(0, advance, 0.01);
        }

        void testRender()
        {
            testFont->Render(GOOD_ASCII_TEST_STRING);
            CPPUNIT_ASSERT_EQUAL(testFont->Error(), 0);
        }


        void setUp()
        {
            testFont = new TestFont(GOOD_FONT_FILE);
        }


        void tearDown()
        {
            delete testFont;
        }

    private:
        TestFont* testFont;

};

CPPUNIT_TEST_SUITE_REGISTRATION(FTFontTest);