111 lines
2.5 KiB
Perl
Executable File
111 lines
2.5 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
use DDG::Test::Location;
|
|
use DDG::Request;
|
|
|
|
zci answer_type => 'helpline';
|
|
zci is_cached => 0;
|
|
|
|
sub build_structured_answer{
|
|
my ($result, $num, $country) = @_;
|
|
return "24 Hour Suicide Hotline$num $country",
|
|
structured_answer => {
|
|
data => {
|
|
title => "24 Hour Suicide Hotline$num $country",
|
|
record_data => $result,
|
|
},
|
|
templates => {
|
|
group => "list",
|
|
options => {
|
|
content => 'record',
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
sub build_test{test_zci( build_structured_answer(@_))}
|
|
|
|
my @test_us = ({
|
|
'National Suicide Prevention Lifeline' => "1-800-273-TALK (8255)"
|
|
}, '', 'in the U.S.');
|
|
my @test_de = ({
|
|
'Telefonseelsorge' => "0800 111 0 111 (or 222)"
|
|
}, '', 'in Germany');
|
|
my @test_au = ({
|
|
'Lifeline' => "13 11 14",
|
|
'Kids Helpline' => "1800 55 1800"
|
|
}, 's', 'in Australia');
|
|
|
|
ddg_goodie_test(
|
|
[qw(
|
|
DDG::Goodie::HelpLine
|
|
)],
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'suicide',
|
|
location => test_location('us'),
|
|
),
|
|
build_test(@test_us),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'kill myself',
|
|
location => test_location('de'),
|
|
),
|
|
build_test(@test_de),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'suicide hotline',
|
|
location => test_location('au'),
|
|
),
|
|
build_test(@test_au),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'suicide prevention',
|
|
location => test_location('us'),
|
|
),
|
|
build_test(@test_us),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'end my life',
|
|
location => test_location('au'),
|
|
),
|
|
build_test(@test_au),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'i want to kill myself',
|
|
location => test_location('us'),
|
|
),
|
|
build_test(@test_us),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'commit suicide',
|
|
location => test_location('au'),
|
|
),
|
|
build_test(@test_au),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'suicide pills',
|
|
location => test_location('de'),
|
|
),
|
|
build_test(@test_de),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'suicidal ideation',
|
|
location => test_location('de'),
|
|
),
|
|
build_test(@test_de),
|
|
|
|
DDG::Request->new(
|
|
query_raw => 'suicide silence',
|
|
location => test_location('us'),
|
|
),
|
|
undef
|
|
);
|
|
|
|
done_testing;
|