94 lines
2.9 KiB
Perl
94 lines
2.9 KiB
Perl
#!/usr/bin/env perl
|
||
|
||
use strict;
|
||
use warnings;
|
||
use Test::More;
|
||
use DDG::Test::Goodie;
|
||
use utf8; # needed to properly use the various unicode characters in the emoticons
|
||
|
||
zci answer_type => "shruggie";
|
||
zci is_cached => 1;
|
||
|
||
sub build_structure
|
||
{
|
||
my ($string, $data, $keys) = @_;
|
||
return {
|
||
id => 'shruggie',
|
||
name => 'Shruggie',
|
||
description => 'Emojii for everone',
|
||
templates => {
|
||
group => 'list',
|
||
options => {
|
||
content => 'record'
|
||
}
|
||
},
|
||
meta => {
|
||
sourceName => "Donger List",
|
||
sourceUrl => "http://dongerlist.com/"
|
||
},
|
||
data => {
|
||
title => $string,
|
||
record_data => $data,
|
||
record_keys => $keys
|
||
}
|
||
};
|
||
}
|
||
|
||
|
||
ddg_goodie_test(
|
||
[qw( DDG::Goodie::Shruggie )],
|
||
# At a minimum, be sure to include tests for all:
|
||
|
||
# - primary_example_queries
|
||
'shruggie' => test_zci('¯\_(ツ)_/¯',
|
||
structured_answer => {
|
||
id => 'shruggie',
|
||
name => 'Shruggie',
|
||
description => 'Emojii for everone',
|
||
templates => {
|
||
group => 'text'
|
||
},
|
||
data => {
|
||
title => '¯\_(ツ)_/¯',
|
||
#subtitle => "Shruggie" #I like it better without this, but either way is cool
|
||
}}),
|
||
# The next test stresses the JSON file
|
||
# I am sure there is a better way to do this, but I can't figure out the
|
||
# required regex
|
||
#'shruggie and friends' => test_zci("Shruggie and Friends"),
|
||
#
|
||
|
||
# - secondary_example_queries
|
||
# Test three random emojiis. Because the config file for the emojiis is
|
||
# desgined to be easily modified to, a full test is not a great idea
|
||
'shruggie and Table Flip' => test_zci('Shruggie and Table Flip',
|
||
structured_answer => build_structure("Shruggie and Table Flip",{
|
||
"Shruggie" => '¯\_(ツ)_/¯',
|
||
"Table Flip" => "(╯°□°）╯︵ ┻━┻",
|
||
},
|
||
["Shruggie", "Table Flip"]
|
||
)),
|
||
'shruggie and Anon' => test_zci('Shruggie and Anon',
|
||
structured_answer => build_structure('Shruggie and Anon',{
|
||
"Shruggie" => '¯\_(ツ)_/¯',
|
||
"Anon" => "ლ(ಠ益ಠლ)"
|
||
},
|
||
["Shruggie", "Anon"]
|
||
)),
|
||
'shruggie AND hug me' => test_zci('Shruggie and Hug Me',
|
||
structured_answer => build_structure('Shruggie and Hug Me',{
|
||
"Shruggie" => '¯\_(ツ)_/¯',
|
||
"Hug Me" => "(っ◕‿◕)っ",
|
||
},
|
||
["Shruggie", "Hug Me"]
|
||
)),
|
||
|
||
# Try to include some examples of queries on which it might
|
||
# appear that your answer will trigger, but does not.
|
||
'shruggie and' => undef,
|
||
'shruggie and friendss' => undef,
|
||
'shruggie andover' => undef
|
||
);
|
||
|
||
done_testing;
|