tests/t/shortened.t

   1
   2 use warnings;
   3 use strict;
   4
   5 use Test::More;
   6
   7 eval "use JSON::XS";
   8 plan skip_all => "JSON::XS required for testing" if $@;
   9
  10 eval "use Test::Deep";
  11 plan skip_all => "Test::Deep required for testing" if $@;
  12
  13 plan tests => 4;
  14
  15 use Test::Quvi;
  16
  17 my $q = Test::Quvi->new;
  18
  19 plan skip_all => "TEST_SKIP rule"
  20   if $q->test_skip("shortened");
  21
  22 # All roads lead to (same) URL.
  23 my @u = (
  24
  25   # Resolved without querying over the internet.
  26   "http://dai.ly/cityofscars",
  27
  28   # Query over the internet to resolved this one.
  29   "http://goo.gl/18ol"
  30 );
  31
  32 my $f = "data/resolve/shortened.json";
  33
  34 # 1=prepend --data-root (if specified in cmdline)
  35 my $e = $q->read_json($f, 1);
  36
  37 # dailymotion returns content-length that varies from
  38 # time to time, no idea why.
  39 $q->mark_ignored(\$e, 'length_bytes');
  40
  41 foreach (@u)
  42 {
  43   my ($r, $o) = $q->run($_, "-q");
  44   is($r, 0, "quvi exit status == 0")
  45     or diag $_;
  46 SKIP:
  47   {
  48     skip 'quvi exit status != 0', 1 if $r != 0;
  49     my $j = $q->get_json_obj;
  50     cmp_deeply($j->decode($o), $e, "compare with $f")
  51       or diag $_;
  52   }
  53 }
  54
  55 # vim: set ts=2 sw=2 tw=72 expandtab: