#!/usr/bin/perl use strict; use warnings; use lib 'lib'; use POSIX qw(tmpnam); use Test::More tests => 3; require_ok('Playlist::M3U'); my $pls = new_ok('Playlist::M3U' => []); my $path = tmpnam(); open my $FH, ">", $path; print $FH < { '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;