Burak Gürsoy avatar Burak Gürsoy committed d5d5fc5

Perl::Critic refactoring.
HTML::Entities is now an optional dependency.
New tests.

Comments (0)

Files changed (5)

 2.30 Thu Dec 31 04:39:58 2009
     => Perl::Critic refactoring.
     => HTML::Entities is now an optional dependency.
+    => New tests.
 
 2.24 Thu Sep  3 02:02:02 2009
     => Pod & distro fixes. Also correct a typo after __END__.
 lib/MP3/M3U/Parser/Constants.pm
 lib/MP3/M3U/Parser/Dummy.pm
 lib/MP3/M3U/Parser/Export.pm
-t/03-basic.t
+t/01-basic.t
+t/02-export.t
 t/04-basic_xml.t
 t/05-sub_html.t
 t/06-sub_search.t
+#!/usr/bin/env perl -w
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use File::Spec;
+
+BEGIN {
+    use_ok('MP3::M3U::Parser');
+}
+
+my $parser = MP3::M3U::Parser->new(
+                -parse_path => 'asis',
+                -seconds    => 'format',
+                -search     => q{},
+                -overwrite  => 1,
+                -encoding   => 'ISO-8859-9',
+                -expformat  => 'html',
+            );
+
+ok(ref $parser eq 'MP3::M3U::Parser', 'Parser');
+
+is( $parser,
+    $parser->parse( File::Spec->catfile( qw/ t data test.m3u / ) ),
+    'Parser'
+);
+
+my $result = $parser->result;
+is(ref $result, 'ARRAY', 'Parser');
+
+is($parser, $parser->export(-file => '03_basic.html'), 'Parser');
+my %info = $parser->info;
+is(ref $info{drive}, 'ARRAY', 'Parser');
+is($parser, $parser->reset, 'Parser');
+#!/usr/bin/env perl -w
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use File::Spec;
+
+BEGIN {
+    use_ok('MP3::M3U::Parser');
+}
+
+my $parser = MP3::M3U::Parser->new(
+                -parse_path => 'asis',
+                -seconds    => 'format',
+                -search     => q{},
+                -overwrite  => 1,
+                -encoding   => 'ISO-8859-9',
+                -expformat  => 'xml',
+            );
+
+is(ref $parser, 'MP3::M3U::Parser', 'Parser' );
+
+is( $parser,
+    $parser->parse( File::Spec->catfile( qw/ t data test.m3u / ) ),
+    'Parser'
+);
+
+my $result = $parser->result;
+is(ref $result, 'ARRAY', 'Parser');
+
+is( $parser, $parser->export(-file => '04_basic_xml.xml'), 'Parser');
+
+my %info = $parser->info;
+is( ref $info{drive}, 'ARRAY', 'Parser' );
+
+is( $parser, $parser->reset, 'Parser' );

t/03-basic.t

-#!/usr/bin/env perl -w
-use strict;
-use warnings;
-use Test::More qw(no_plan);
-use File::Spec;
-
-BEGIN {
-    use_ok('MP3::M3U::Parser');
-}
-
-my $parser = MP3::M3U::Parser->new(
-                -parse_path => 'asis',
-                -seconds    => 'format',
-                -search     => q{},
-                -overwrite  => 1,
-                -encoding   => 'ISO-8859-9',
-                -expformat  => 'html',
-            );
-
-ok(ref $parser eq 'MP3::M3U::Parser', 'Parser');
-
-is( $parser,
-    $parser->parse( File::Spec->catfile( qw/ t data test.m3u / ) ),
-    'Parser'
-);
-
-my $result = $parser->result;
-is(ref $result, 'ARRAY', 'Parser');
-
-is($parser, $parser->export(-file => '03_basic.html'), 'Parser');
-my %info = $parser->info;
-is(ref $info{drive}, 'ARRAY', 'Parser');
-is($parser, $parser->reset, 'Parser');
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.