Commit a0ec8b08 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add Test::Synopsis test, rename pod test

parent 9059ccee
Loading
Loading
Loading
Loading
+1 −0
Original line number Diff line number Diff line
@@ -10,6 +10,7 @@ my $build = Module::Build->new(
		'Test::Compile' => 0,
		'Test::Pod' => 0,
		'Test::Command' => 0,
		'Test::Synopsis' => 0,
	},
	module_name => 'WWW::Efa',
	license => 'unrestricted',
+32 −0
Original line number Diff line number Diff line
package WWW::Efa;

=head1 NAME

WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service

=head1 SYNOPSIS

    use WWW::Efa;

    my $efa = WWW::Efa->new(
        from => ['Essen', 'HBf'],
        to   => ['Muelheim', 'HBf'],
    );

    $efa->submit();
    $efa->parse();

    for my $con ($efa->connections()) {
        for my $c (@{$con}) {
            printf(
                "%-5s ab  %-30s %-20s %s\n%-5s an  %-30s\n\n",,
                @{$c}->{'dep_time', 'dep_stop', 'train_line', 'train_dest'},
                @{$c}->{'arr_time', 'arr_stop'},
            );
        }
    }

=head1 DESCRIPTION

Foo bar

=cut

use strict;
use warnings;
use 5.010;

t/02-synopsis.t

0 → 100644
+18 −0
Original line number Diff line number Diff line
#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;

eval "use Test::Synopsis";

if ($@) {
	plan skip_all => 'Test::Synopsis required for testing';
}
else {
	plan tests => 1;
}

for my $m (qw(lib/WWW/Efa.pm)) {
	synopsis_ok($m);
}
+0 −0

File moved.