/* 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/. */

/*

 * test_string2.c

 *

 * Tests International Strings

 *

 */

#include "testutil.h"

#include "testutil_nss.h"

static void *plContext = NULL;

static void

createString(

        PKIX_PL_String **vivaEspanaString,

        PKIX_PL_String **straussString,

        PKIX_PL_String **gorbachevString,

        PKIX_PL_String **testUTF16String,

        PKIX_PL_String **chineseString,

        PKIX_PL_String **jeanRenoString)

{

        /* this is meant to fail - it highlights bug 0002 */

        unsigned char utf16String[4] = { 0xF8, 0x60,

                                        0xFC, 0x60};

        unsigned char chinese[16] = { 0xe7, 0xab, 0xa0,

                                        0xe5, 0xad, 0x90,

                                        0xe6, 0x80, 0xa1,

                                        0x20,

                                        0xe4, 0xb8, 0xad,

                                        0xe5, 0x9b, 0xbd

        };

        char* jeanReno = "Jean R\303\251no is an actor.";

        char* gorbachev = /* This is the name "Gorbachev" in cyrllic */

        "\xd0\x93\xd0\xbe\xd1\x80\xd0\xb1\xd0\xb0\xd1\x87\xd1\x91\xd0\xb2";

        char *vivaEspana =

                "¡Viva España!";

        char *strauss =

                "Strauß was born in Österreich";

        PKIX_TEST_STD_VARS();

        /* ---------------------------- */

        subTest("String Creation");

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_Create(

                                        PKIX_ESCASCII,

                                        vivaEspana,

                                        PL_strlen(vivaEspana),

                                        vivaEspanaString,

                                        plContext));

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_Create(

                                        PKIX_ESCASCII,

                                        strauss,

                                        PL_strlen(strauss),

                                        straussString,

                                        plContext));

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_Create(

                                        PKIX_UTF8,

                                        gorbachev,

                                        PL_strlen(gorbachev),

                                        gorbachevString,

                                        plContext));

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_Create(

                                        PKIX_UTF16,

                                        utf16String,

                                        4,

                                        testUTF16String,

                                        plContext));

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_Create(

                                        PKIX_UTF8,

                                        chinese,

                                        16,

                                        chineseString,

                                        plContext));

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_Create(

                                        PKIX_UTF8,

                                        jeanReno,

                                        PL_strlen(jeanReno),

                                        jeanRenoString,

                                        plContext));

cleanup:

        PKIX_TEST_RETURN();

}

static void

testGetEncoded(PKIX_PL_String *string, PKIX_UInt32 format)

{

        void *dest = NULL;

        PKIX_UInt32 length;

        PKIX_TEST_STD_VARS();

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded

                                (string,

                                format,

                                &dest,

                                &length,

                                plContext));

        if (dest){

                (void) printf("\tResult: %s\n", (char *)dest);

                PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        }

cleanup:

        PKIX_TEST_RETURN();

}

static void

testHTMLOutput(

        PKIX_PL_String *vivaEspanaString,

        PKIX_PL_String *straussString,

        PKIX_PL_String *gorbachevString,

        PKIX_PL_String *testUTF16String,

        PKIX_PL_String *chineseString,

        PKIX_PL_String *jeanRenoString)

{

        void *dest = NULL;

        PKIX_UInt32 length;

        FILE *htmlFile = NULL;

        PKIX_TEST_STD_VARS();

        /* Opening a file for output */

        htmlFile = fopen("utf8.html", "w");

        if (htmlFile != plContext) {

                (void) fprintf(htmlFile, "<html><head>\n");

                (void) fprintf(htmlFile, "

                (void) fprintf(htmlFile,

                        "content = \"text/html; charset = UTF-8\">\n");

                (void) fprintf(htmlFile, "</head><body>\n");

                (void) fprintf(htmlFile, "<font size =\"+2\">\n");

        } else

                (void) printf("Could not open HTML file\n");

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(testUTF16String,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        if (htmlFile != plContext) {

                (void) printf("%d bytes written to HTML file\n",

                        fwrite(dest, length, 1, htmlFile));

                (void) fprintf(htmlFile, "
\n");

        }

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(chineseString,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        if (htmlFile != plContext) {

                (void) printf("%d bytes written to HTML file\n",

                        fwrite(dest, length, 1, htmlFile));

                (void) fprintf(htmlFile, "
\n");

        }

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(jeanRenoString,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        if (htmlFile != plContext) {

                (void) printf("%d bytes written to HTML file\n",

                        fwrite(dest, length, 1, htmlFile));

                (void) fprintf(htmlFile, "
\n");

        }

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(vivaEspanaString,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        if (htmlFile != plContext) {

                (void) printf("%d bytes written to HTML file\n",

                        fwrite(dest, length, 1, htmlFile));

                (void) fprintf(htmlFile, "
\n");

        }

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(straussString,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        if (htmlFile != plContext) {

                (void) printf("%d bytes written to HTML file\n",

                        fwrite(dest, length, 1, htmlFile));

                (void) fprintf(htmlFile, "
\n");

        }

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(straussString,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_String_GetEncoded(gorbachevString,

                                            PKIX_UTF8,

                                            &dest,

                                            &length,

                                            plContext));

        if (htmlFile != plContext) {

                (void) printf("%d bytes written to HTML file\n",

                        fwrite(dest, length, 1, htmlFile));

                (void) fprintf(htmlFile, "
\n");

        }

        PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Free(dest, plContext));

        dest = NULL;

        length = 0;

        if (htmlFile != plContext) {

                (void) fprintf(htmlFile, "</font>\n");

                (void) fprintf(htmlFile, "</body></html>\n");

                (void) fclose(htmlFile);

        }

cleanup:

        PKIX_TEST_RETURN();

}

static void

testDestroy(

        PKIX_PL_String *string)

{

        PKIX_TEST_STD_VARS();

        PKIX_TEST_DECREF_BC(string);

cleanup:

        PKIX_TEST_RETURN();

}

int test_string2(int argc, char *argv[]) {

        PKIX_PL_String *vivaEspanaString, *straussString, *testUTF16String;

        PKIX_PL_String *chineseString, *jeanRenoString, *gorbachevString;

        PKIX_UInt32 actualMinorVersion;

        PKIX_UInt32 j = 0;

        PKIX_TEST_STD_VARS();

        startTests("Unicode Strings");

        PKIX_TEST_EXPECT_NO_ERROR(

            PKIX_PL_NssContext_Create(0, PKIX_FALSE, NULL, &plContext));

        subTest("PKIX_PL_String_Create");

        createString(&vivaEspanaString,

                    &straussString,

                    &gorbachevString,

                    &testUTF16String,

                    &chineseString,

                    &jeanRenoString);

        subTest("Converting UTF-16 to EscASCII");

        testGetEncoded(testUTF16String, PKIX_ESCASCII);

        subTest("Converting UTF-8 to EscASCII");

        testGetEncoded(chineseString, PKIX_ESCASCII);

        subTest("Converting UTF-8 to EscASCII");

        testGetEncoded(jeanRenoString, PKIX_ESCASCII);

        subTest("Converting EscASCII to UTF-16");

        testGetEncoded(vivaEspanaString, PKIX_UTF16);

        subTest("Converting UTF-8 to UTF-16");

        testGetEncoded(chineseString, PKIX_UTF16);

        subTest("Creating HTML Output File \'utf8.html\'");

        testHTMLOutput(vivaEspanaString,

                    straussString,

                    gorbachevString,

                    testUTF16String,

                    chineseString,

                    jeanRenoString);

        subTest("Unicode Destructors");

        testDestroy(testUTF16String);

        testDestroy(chineseString);

        testDestroy(jeanRenoString);

        testDestroy(vivaEspanaString);

        testDestroy(straussString);

        testDestroy(gorbachevString);

cleanup:

        PKIX_Shutdown(plContext);

        PKIX_TEST_RETURN();

        endTests("Unicode Strings");

        return (0);

}