tests/t/format_default.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 use Test::Quvi;
  14
  15 my $q = Test::Quvi->new;
  16
  17 my @dirs = qw(
  18   data/format/default
  19   data/format/default/ignore/length_bytes
  20   );
  21
  22 my $c = $q->get_config;
  23 push @dirs, "data/format/default/todo" if $c->{todo};
  24 push @dirs, "data/format/default/nlfy" if $c->{nlfy};
  25 push @dirs, "data/format/default/nsfw" if $c->{nsfw};
  26
  27 my @files = $q->find_json(@dirs);
  28
  29 plan skip_all => "Nothing to test" if scalar @files == 0;
  30 plan tests => scalar @files * 2;
  31
  32 my $j   = $q->get_json_obj;
  33 my $ign = qr|/ignore/(.*?)/|;
  34
  35 foreach (@files)
  36 {
  37   my $e = $q->read_json($_);
  38
  39   $q->mark_ignored(\$e, $1) if $_ =~ /$ign/;
  40
  41   my ($r, $o) = $q->run($e->{page_url}, "-qr");
  42   is($r, 0, "quvi exit status == 0")
  43     or diag $e->{page_url};
  44 SKIP:
  45   {
  46     skip 'quvi exit status != 0', 1 if $r != 0;
  47     cmp_deeply($j->decode($o), $e, "compare with $_")
  48       or diag $e->{page_url};
  49   }
  50 }
  51
  52 # vim: set ts=2 sw=2 tw=72 expandtab: