view release on metacpan or  search on metacpan

t/full.t  view on Meta::CPAN

# remove confusing vertical whitespace
$output    =~ s/[\r\n]//g;
$turn_info =~ s/[\r\n]//g;

is( $output, $turn_info, 'Output as expected' );

#===================
# Other tests

eval { $app->transition_set('does_not_exist') };
ok( $@, 'Selecting unknown transition set dies' );
like( $@, qr/Unknown transition set/, 'Error message' );

done_testing;