#!perl
use
5.12.0;
use
strict;
use
Test::More 0.82;
use
Map::Tube::Napoli;
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 },
} );