Browse Source

* updated tests

master
Alex 'AdUser' Z 9 years ago
parent
commit
4259a87047
  1. 4
      t/m3u.t

4
t/m3u.t

@ -13,7 +13,7 @@ my $pls = new_ok('Text::Playlist::M3U' => []);
my $text = <<M3U;
#EXTM3U aspect-ratio=4:3
#EXTINF:-1 cn-id=10338245,First channel
#EXTINF:-1,First channel
http://127.0.0.1:1027/udp/224.3.22.7:1234
#EXTINF:-1 cn-id=34727751,Second channel +8
http://127.0.0.1:1027/udp/224.3.23.9:1234
@ -25,7 +25,7 @@ print $FH $text;
close $FH;
my $out = [{
attrs => { 'cn-id' => '10338245' },
attrs => {},
file => 'http://127.0.0.1:1027/udp/224.3.22.7:1234',
title => 'First channel',
duration => '-1',

Loading…
Cancel
Save