/t/IsItUp.t
Perl | 37 lines | 30 code | 4 blank | 3 comment | 0 complexity | 0438fb2d016fa61bd0d2ecbb2c70db1f MD5 | raw file
- #!/usr/bin/env perl
- use strict;
- use warnings;
- use Test::More;
- use DDG::Test::Spice;
- use utf8;
- ddg_spice_test(
- [qw( DDG::Spice::IsItUp )],
- 'is duckduckgo.com up?' => test_spice(
- '/js/spice/is_it_up/duckduckgo.com',
- call_type => 'include',
- caller => 'DDG::Spice::IsItUp',
- ),
- 'is http://duckduckgo.com up?' => test_spice(
- '/js/spice/is_it_up/duckduckgo.com',
- call_type => 'include',
- caller => 'DDG::Spice::IsItUp',
- ),
- 'is http://duckduckgo.com online?' => test_spice(
- '/js/spice/is_it_up/duckduckgo.com',
- call_type => 'include',
- caller => 'DDG::Spice::IsItUp',
- ),
- # unfortunately, the isitup.com api does not
- # currently support unicode or ssl
- 'is føtex.dk up?' => undef,
- 'is https://føtex.dk up?' => undef,
- 'is wolframalpha.com working?' => test_spice(
- '/js/spice/is_it_up/wolframalpha.com',
- caller => 'DDG::Spice::IsItUp',
- ),
- );
- done_testing;