zeroclickinfo-goodies/t/HelpLine.t

19 lines
255 B
Perl
Raw Normal View History

2013-06-21 13:35:10 -07:00
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'helpline';
ddg_goodie_test(
[qw(
DDG::Goodie::HelpLine
)],
'suicide' => test_zci(qr/24 Hour Suicide Hotline: [\d\-){7}]/),
);
done_testing;