PageRenderTime 38ms CodeModel.GetById 11ms RepoModel.GetById 1ms app.codeStats 0ms

/t/IsItUp.t

https://github.com/robertbrook/zeroclickinfo-spice
Perl | 37 lines | 30 code | 4 blank | 3 comment | 0 complexity | 0438fb2d016fa61bd0d2ecbb2c70db1f MD5 | raw file
  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4. use Test::More;
  5. use DDG::Test::Spice;
  6. use utf8;
  7. ddg_spice_test(
  8. [qw( DDG::Spice::IsItUp )],
  9. 'is duckduckgo.com up?' => test_spice(
  10. '/js/spice/is_it_up/duckduckgo.com',
  11. call_type => 'include',
  12. caller => 'DDG::Spice::IsItUp',
  13. ),
  14. 'is http://duckduckgo.com up?' => test_spice(
  15. '/js/spice/is_it_up/duckduckgo.com',
  16. call_type => 'include',
  17. caller => 'DDG::Spice::IsItUp',
  18. ),
  19. 'is http://duckduckgo.com online?' => test_spice(
  20. '/js/spice/is_it_up/duckduckgo.com',
  21. call_type => 'include',
  22. caller => 'DDG::Spice::IsItUp',
  23. ),
  24. # unfortunately, the isitup.com api does not
  25. # currently support unicode or ssl
  26. 'is føtex.dk up?' => undef,
  27. 'is https://føtex.dk up?' => undef,
  28. 'is wolframalpha.com working?' => test_spice(
  29. '/js/spice/is_it_up/wolframalpha.com',
  30. caller => 'DDG::Spice::IsItUp',
  31. ),
  32. );
  33. done_testing;