CPAN-MP3-M3U-Parser / t / 04-basic_xml.t

#!/usr/bin/env perl -w
use strict;
use warnings;
use Test::More qw(no_plan);
use File::Spec;
use MP3::M3U::Parser;

my $file = '04_basic_xml.xml';

unlink $file if -e $file;

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 / ) ),

my $result = $parser->result;
is(ref $result, 'ARRAY', 'Parser');

is( $parser, $parser->export(-file => $file ), '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
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.