tests/support-academicearth.pl

   1 my $r = quviTest::run(
   2 "http://www.academicearth.org/lectures/building-dynamic-websites-http",
   3 "--page-title",
   4     "HTTP",
   5 "--video-id",
   6     "har_buildsite_lecture1876",
   7 "--file-length",
   8     "419838936",
   9 "--file-suffix",
  10     "flv",
  11 "--no-shortened"
  12 );
  13
  14 exit $r if $r;
  15
  16 exit quviTest::run(
  17 "http://www.academicearth.org/lectures/intro-roman-architecture",
  18 "--page-title",
  19     "1. Introduction to Roman Architecture",
  20 "--video-id",
  21     "qd3MJPHaotQ",
  22 "--file-length",
  23     "78035755",
  24 "--file-suffix",
  25     "flv",
  26 "--no-shortened"
  27 );