63 lines
1.5 KiB
Perl
63 lines
1.5 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => "phone_alphabet";
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::PhoneAlphabet )],
|
|
'1-800-LAWYR-UP to digits' => test_zci(
|
|
'Phone Number: 1-800-52997-87',
|
|
structured_answer => {
|
|
input => ['1-800-LAWYR-UP'],
|
|
operation => 'Phone Number',
|
|
result => '1-800-52997-87'
|
|
}
|
|
),
|
|
|
|
'1-800-fun-hack to phone number' => test_zci(
|
|
'Phone Number: 1-800-386-4225',
|
|
structured_answer => {
|
|
input => ['1-800-fun-hack'],
|
|
operation => 'Phone Number',
|
|
result => '1-800-386-4225'
|
|
}
|
|
),
|
|
'1-800-fun-hack to numbers' => test_zci(
|
|
'Phone Number: 1-800-386-4225',
|
|
structured_answer => {
|
|
input => ['1-800-fun-hack'],
|
|
operation => 'Phone Number',
|
|
result => '1-800-386-4225'
|
|
}
|
|
),
|
|
|
|
|
|
'1958funhack to phone' => test_zci(
|
|
'Phone Number: 19583864225',
|
|
structured_answer => {
|
|
input => ['1958funhack'],
|
|
operation => 'Phone Number',
|
|
result => '19583864225'
|
|
}
|
|
),
|
|
|
|
'13TAXI to phone' => test_zci(
|
|
'Phone Number: 138294',
|
|
structured_answer => {
|
|
input => ['13TAXI'],
|
|
operation => 'Phone Number',
|
|
result => '138294'
|
|
}
|
|
),
|
|
|
|
'something fun to hack to phone' => undef,
|
|
'0x0123 to digits' => undef
|
|
);
|
|
|
|
done_testing;
|