tests/support-shortened.pl

   1
   2
   3 my $expected_title = "CITY OF SCARS";
   4 my $expected_id    = "xdpig1";
   5 my $expected_length= 111422543;
   6 my $expected_suffix= "flv";
   7
   8 my $r = quviTest::run(
   9 "http://dai.ly/cityofscars",
  10 "--page-title",
  11     $expected_title,
  12 "--video-id",
  13     $expected_id,
  14 "--file-length",
  15     $expected_length,
  16 "--file-suffix",
  17     $expected_suffix
  18 );
  19
  20 exit $r if $r;
  21
  22 exit quviTest::run(
  23 "http://goo.gl/18ol",
  24 "--page-title",
  25     $expected_title,
  26 "--video-id",
  27     $expected_id,
  28 "--file-length",
  29     $expected_length,
  30 "--file-suffix",
  31     $expected_suffix
  32 );