From a63be9a5a83bb04febfe0802e4adf24a16925732 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Tue, 21 Apr 2015 11:51:59 +1000
Subject: [PATCH] * updated tests

---
 t/pls.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/t/pls.t b/t/pls.t
index 6375bad..4528107 100644
--- a/t/pls.t
+++ b/t/pls.t
@@ -5,7 +5,7 @@ use warnings;
 use lib 'lib';
 
 use POSIX qw(tmpnam);
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 require_ok('Playlist::PLS');
 
@@ -32,4 +32,15 @@ is_deeply(scalar $pls->load($path), $out, "Loading test playlist");
 
 unlink $path;
 
+my $text = <<PLS;
+[playlist]
+numberofentries=1
+File1=http://1.2.3.4:8000/listen.aac
+Title1=(#1 - 1/1) Radio Broadcast
+Length1=-1
+Version=2
+PLS
+
+is($pls->dump, $text);
+
 exit 0;