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

my $file = '03_basic.html';

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  => '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 => $file), 'Parser');
my %info = $parser->info;
is(ref $info{drive}, 'ARRAY', 'Parser');
is($parser, $parser->reset, 'Parser');