tests/support-cctv.pl

   1
   2 # We will need utf8 for this.
   3 quviTest::check_codeset();
   4
   5 my $rc = quviTest::run_t(
   6 "cctv",
   7 "--page-title",
   8     "[百家讲坛]王立群读史记之秦始皇（一）荆轲刺秦王(2008.06.08)百家讲坛,名栏目",
   9 "--video-id",
  10     "VIDE1212909276513233",
  11 "--file-length",
  12     "75987226",
  13 "--file-suffix",
  14     "flv"
  15 ); # single-segment
  16
  17 $rc = quviTest::run("-t", "12474", "--no-shortened")  if !$rc; # multi-segment
  18
  19 exit $rc;