#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;

zci is_cached => 1;
zci answer_type => "unicodefuzzysearch";

ddg_goodie_test(
    [qw(
                DDG::Goodie::UnicodeFuzzySearch
        )],
    # ------
    "unicode white heart" =>
	test_zci("WHITE HEART SUIT: \x{2661} (U+2661)", html => "WHITE HEART SUIT: \x{2661} (U+2661)"),
    "0f00 unicode" =>
	test_zci("TIBETAN SYLLABLE OM: \x{0f00} (U+0F00)", html => ("TIBETAN SYLLABLE OM: \x{0f00} (U+0F00)")),
    # ------
    "unicode snowman" =>
	test_zci("SNOWMAN: \x{2603} (U+2603)
SNOWMAN WITHOUT SNOW: \x{26c4} (U+26C4)
BLACK SNOWMAN: \x{26c7} (U+26C7)",
             html => "<ul><li>SNOWMAN: \x{2603} (U+2603)</li><li>SNOWMAN WITHOUT SNOW: \x{26c4} (U+26C4)</li><li>BLACK SNOWMAN: \x{26c7} (U+26C7)</li></ul>"),
    # ------
    "sharp s unicode" =>
	test_zci("LATIN SMALL LETTER SHARP S: \x{00df} (U+00DF)
LATIN CAPITAL LETTER SHARP S: \x{1e9e} (U+1E9E)
MUSIC SHARP SIGN: \x{266f} (U+266F)",
             html => "<ul><li>LATIN SMALL LETTER SHARP S: \x{00df} (U+00DF)</li><li>LATIN CAPITAL LETTER SHARP S: \x{1e9e} (U+1E9E)</li><li>MUSIC SHARP SIGN: \x{266f} (U+266F)</li></ul>"),
    # ------
    'unicode black heart' =>
    test_zci("BLACK HEART SUIT: \x{2665} (U+2665)
HEAVY BLACK HEART: \x{2764} (U+2764)
ROTATED HEAVY BLACK HEART BULLET: \x{2765} (U+2765)",
            html => "<ul><li>BLACK HEART SUIT: \x{2665} (U+2665)</li><li>HEAVY BLACK HEART: \x{2764} (U+2764)</li><li>ROTATED HEAVY BLACK HEART BULLET: \x{2765} (U+2765)</li></ul>"),
    # ------
    'unicode 2665' =>
    test_zci("BLACK HEART SUIT: \x{2665} (U+2665)",
            html => "BLACK HEART SUIT: \x{2665} (U+2665)"),
    # -- emoji : lower bound
    'unicode cyclone' =>
    test_zci(
        qq|CYCLONE: <img src="/iu/?u=http%3A%2F%2Fwww.emoji-cheat-sheet.com%2Fgraphics%2Femojis%2Fcyclone.png" alt="\x{1F300}" width="20" style="vertical-align:bottom"/> (U+1F300)|,
        html => qq|CYCLONE: <img src="/iu/?u=http%3A%2F%2Fwww.emoji-cheat-sheet.com%2Fgraphics%2Femojis%2Fcyclone.png" alt="\x{1F300}" width="20" style="vertical-align:bottom"/> (U+1F300)|
    ),
    # -- emoji : upper bound
    'unicode left luggage' =>
    test_zci(
        qq|LEFT LUGGAGE: <img src="/iu/?u=http%3A%2F%2Fwww.emoji-cheat-sheet.com%2Fgraphics%2Femojis%2Fleft_luggage.png" alt="\x{1F6C5}" width="20" style="vertical-align:bottom"/> (U+1F6C5)|,
        html => qq|LEFT LUGGAGE: <img src="/iu/?u=http%3A%2F%2Fwww.emoji-cheat-sheet.com%2Fgraphics%2Femojis%2Fleft_luggage.png" alt="\x{1F6C5}" width="20" style="vertical-align:bottom"/> (U+1F6C5)|
    )
);

done_testing;