package GoodMap;
use 5.006;
use Moo;
has xml => (is => 'ro', default => sub { File::Spec->catfile('t', 'good-map.xml') });
with 'Map::Tube';
package main;
use 5.006;
use strict; use warnings;
use Test::Map::Tube tests => 3;
my $map = GoodMap->new;
ok_map($map);
ok_map_functions($map);
my @routes = <DATA>;
ok_map_routes($map, \@routes);
__DATA__
Route 1|A1|A3|A1,A2,A3