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.
36 lines
599 B
36 lines
599 B
10 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use lib 'lib';
|
||
|
|
|
||
|
|
use POSIX qw(tmpnam);
|
||
|
|
use Test::More tests => 3;
|
||
|
|
|
||
|
|
require_ok('Playlist::PLS');
|
||
|
|
|
||
|
|
my $pls = new_ok('Playlist::PLS' => []);
|
||
|
|
|
||
|
|
my $path = tmpnam();
|
||
|
|
open my $FH, ">", $path;
|
||
|
|
print $FH <<EOF;
|
||
|
|
[playlist]
|
||
|
|
numberofentries=1
|
||
|
|
File1 = http://1.2.3.4:8000/listen.aac
|
||
|
|
Title1=(#1 - 1/1) Radio Broadcast
|
||
|
|
Length1=-1
|
||
|
|
Version=2
|
||
|
|
EOF
|
||
|
|
close $FH;
|
||
|
|
|
||
|
|
my $out = [{
|
||
|
|
file => 'http://1.2.3.4:8000/listen.aac',
|
||
|
|
title => '(#1 - 1/1) Radio Broadcast',
|
||
|
|
length => '-1',
|
||
|
|
}];
|
||
|
|
is_deeply(scalar $pls->load($path), $out, "Loading test playlist");
|
||
|
|
|
||
|
|
unlink $path;
|
||
|
|
|
||
|
|
exit 0;
|