* updated tests

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;