tests/t/nosupport.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 => 2;
  14
  15 use Test::Quvi;
  16
  17 my $q = Test::Quvi->new;
  18 my ($r) = $q->run("http://nosupport.url", "--support -qr");
  19 is($r, 0x41, "quvi exit status == QUVI_NOSUPPORT");
  20
  21 ($r) = $q->run("http://youtu.be/9dgSa4wmMzk", "--support -qr");
  22 is($r, 0x00, "quvi exit status == QUVI_OK");