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

---
 t/m3u.t | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/t/m3u.t b/t/m3u.t
index 0122234..ebc06fc 100644
--- a/t/m3u.t
+++ b/t/m3u.t
@@ -5,21 +5,23 @@ use warnings;
 use lib 'lib';
 
 use POSIX qw(tmpnam);
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 require_ok('Text::Playlist::M3U');
 
 my $pls = new_ok('Text::Playlist::M3U' => []);
 
-my $path = tmpnam();
-open my $FH, ">", $path;
-print $FH <<EOF;
+my $text = <<M3U;
 #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
+M3U
+
+my $path = tmpnam();
+open my $FH, ">", $path;
+print $FH $text;
 close $FH;
 
 my $out = [{
@@ -37,4 +39,6 @@ my $out = [{
 is_deeply(scalar $pls->load($path), $out, "Loading test playlist");
 unlink $path;
 
+is($text, $pls->dump);
+
 exit 0;