#!/usr/bin/perl
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;
my $min_ver = 0.25;
eval "use Test::Map::Tube $min_ver tests => 3";
plan skip_all => "Test::Map::Tube $min_ver required." if $@;
use utf8;
use Map::Tube::Tokyo;
my $map = Map::Tube::Tokyo->new;
ok_map($map);
ok_map_functions($map);
my @routes = <DATA>;
ok_map_routes($map, \@routes);
__DATA__
Route 1|Takaracho|Otemachi|Takaracho,Nihombashi,Otemachi