You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

40 lines
885 B

#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use POSIX qw(tmpnam);
use Test::More tests => 3;
require_ok('Text::Playlist::M3U');
my $pls = new_ok('Text::Playlist::M3U' => []);
my $path = tmpnam();
open my $FH, ">", $path;
print $FH <<EOF;
#EXTM3U aspect-ratio=4:3
#EXTINF:-1 cn-id=10338245,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
EOF
close $FH;
my $out = [{
attrs => { 'cn-id' => '10338245' },
file => 'http://127.0.0.1:1027/udp/224.3.22.7:1234',
title => 'First channel',
duration => '-1',
}, {
attrs => { 'cn-id' => '34727751' },
file => 'http://127.0.0.1:1027/udp/224.3.23.9:1234',
title => 'Second channel +8',
duration => '-1',
}];
is_deeply(scalar $pls->load($path), $out, "Loading test playlist");
unlink $path;
exit 0;