use strict;
use Test::Base;

use Geo::Google::MyMap::KMLURL;

plan tests => 1 * blocks;

filters {
    input    => [qw/chomp/],
    expected => [qw/chomp/],
};

run {
    my $block = shift;

    my $result;

    eval { $result = mymap2kmlurl($block->input); };

    if ( $@ ) {
        ok ( $block->expected eq 'ERROR' && $@ =~ /^Cannot find msid/ );
    } else {
        is ( $result, $block->expected );
    }
};


__END__
=== url2url
--- input
http://maps.google.co.jp/maps/ms?ie=UTF8&hl=ja&msa=0&output=nl&msid=100703231789736299945.00000111c65c3586665af
--- expected
http://maps.google.co.jp/maps/ms?msa=0&msid=100703231789736299945.00000111c65c3586665af&output=kml&ge_fileext=.kml

=== msid2url
--- input
100703231789736299945.00000111c65c3586665af
--- expected
http://maps.google.co.jp/maps/ms?msa=0&msid=100703231789736299945.00000111c65c3586665af&output=kml&ge_fileext=.kml

=== bad case url
--- input
http://maps.google.co.jp/maps/ms?ie=UTF8&hl=ja&msa=0&output=nl&msids=100703231789736299945.00000111c65c3586665af
--- expected
ERROR

=== bad case msid
--- input
100703231789736299945.00000111c65c3586665a
--- expected
ERROR