The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#include "unijp.h"
#include <stdio.h>
#include <string.h>

int main(int argc, const char* argv[])
{
  unijp_t* uj;
  const char* love_ucs2 = "\x61\x1b";
  const char* love_utf8 = "\xe6\x84\x9b";
  uj_size_t   ucs2_len = 2;
  uj_size_t   utf8_len = 3;

  printf("1..10\n");

  uj = uj_new((uj_uint8*)love_ucs2, ucs2_len, ujc_ucs2);
  printf("ok 1 - new\n");
  printf("%s 2 - uj.len(%d)==%d\n", uj->data_len==utf8_len ? "ok" : "not ok", (int)uj->data_len, (int)utf8_len);
  printf("%s 3 - data\n", memcmp(uj->data, love_utf8, utf8_len)==0 ? "ok" : "not ok");

  {
    uj_uint8*   out;
    uj_size_t   out_len;
    out = uj_to_utf8(uj, &out_len);
    printf("ok 4 - to_utf8\n");
    printf("%s 5 - utf8.len(%d)==%d\n", out_len==utf8_len ? "ok" : "not ok", (int)out_len, (int)utf8_len);
    printf("%s 6 - utf8\n", memcmp(out, love_utf8, utf8_len)==0 ? "ok" : "not ok");
  }

  {
    uj_uint8*   out;
    uj_size_t   out_len;
    out = uj_to_ucs2(uj, &out_len);
    printf("ok 7 - to_ucs2\n");
    printf("%s 8 - ucs2.len(%d)==%d\n", out_len==ucs2_len ? "ok" : "not ok", (int)out_len, (int)ucs2_len);
    printf("%s 9 - ucs2\n", memcmp(out, love_ucs2, ucs2_len)==0 ? "ok" : "not ok");
  }

  uj_delete(uj);
  printf("ok 10 - delete\n");

  return 0;
}