The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!perl
use 5.12.0;
use strict;
use warnings FATAL => 'all';
use Test::More 0.82;
eval 'use Test::Map::Tube';
plan skip_all => 'Test::Map::Tube required for this test' if $@;
plan skip_all => 'these tests are for authors only!' unless ( $ENV{AUTHOR_TESTING} || $ENV{RELEASE_TESTING} );
plan tests => 1;
ok_map( Map::Tube::Napoli->new( ), {
ok_map_connected => { max_allowed => 2 },
ok_links_bidirectional => 1,
ok_station_names_different => { max_allowed => 20 },
ok_station_names_complete => { max_allowed => 12 },
} );