zeroclickinfo-goodies/t/HTMLEntitiesDecode.t

#!/usr/bin/env perl

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

zci answer_type => 'html_entity';
zci is_cached   => 1;

sub any_structured_answer {
	return {
		input => '-ANY-',
		result => '-ANY-',
		operation => "HTML Entity Decode"
	};
}

ddg_goodie_test(
    [qw(DDG::Goodie::HTMLEntitiesDecode)],

    # Simple decimal test
    'html decode !' => test_zci("Decoded HTML Entity: !", structured_answer => any_structured_answer()),
    # Simple text test
    'html entity &' => test_zci("Decoded HTML Entity: &", structured_answer => any_structured_answer()),
    # Another simple text test
    'decode html for >' => test_zci("Decoded HTML Entity: >", structured_answer => any_structured_answer()),
    # Simple hex test
    '&#x21 htmlentity' => test_zci("Decoded HTML Entity: !", structured_answer => any_structured_answer()),

    # No "&" and ";" in decimal input
    '#36 html decode' => test_zci("Decoded HTML Entity: \$", structured_answer => any_structured_answer()),
    # Variety in hex queries
    '&#X22 decodehtml' => test_zci("Decoded HTML Entity: \"", structured_answer => any_structured_answer()),
    # More variety in hex queries
    'htmlentity for #x3c' => test_zci("Decoded HTML Entity: <", structured_answer => any_structured_answer()),

    # "&cent;" succeeds
    'html decode &cent;' => test_zci(qr/.*/, structured_answer => any_structured_answer()),
    # "&cent" also succeeds (missing back ";" is OK)
    'html decode &cent' => test_zci(qr/.*/, structured_answer => any_structured_answer()),
    # "cent" fails during the regex match because of the missing front "&" (stricter for text to eliminate false positive encoding hits)
    'html decode cent' => undef,
    # "cent;" fails during the regex match for the same reasons as above
    'html decode cent;' => undef,

    # "&#20;" has no visual representation
    'html entity of &#20;' => test_zci("Decoded HTML Entity: Unicode control character (no visual representation)", structured_answer => any_structured_answer()),

    # Querying for "&bunnyrabbit;" should fail
    'html decode &bunnyrabbit;' => undef,
    # Trying to decode "&" should fail (this is an encoding job)
    'html decode &' => undef,
    # Trying to decode apostrophe should fail (decode_entities() unsuccessful)
    'html decode apostrophe' => undef,

    # natural querying
    'What is the decoded html entity for &#960;?' => test_zci(qr/.*/, structured_answer => any_structured_answer()),
    # natural querying
    'what is decoded html entity for #960 ?' => test_zci(qr/.*/, structured_answer => any_structured_answer()),
    # no "html" in query
    'the decoded entity for &#333; is?' => test_zci(qr/.*/, structured_answer => any_structured_answer()),
);

done_testing;