1use strict;
2use warnings;
3use Test::More;
4use GPS::Babel;
5
6my $babel = GPS::Babel->new;
7plan(
8  $babel->get_exename
9  ? ( tests => 2 )
10  : ( skip_all => 'No gpsbabel found on path' )
11);
12
13eval {
14  $SIG{__WARN__} = sub { die @_ };
15  my $info = $babel->get_info;
16};
17
18ok !$@, "No errors, warnings";
19
20like $babel->version, qr{^\d+ (?: \. \d+ )+$}x, "Version looks sane";
21
22diag "Testing against ", $babel->get_exename, ", version: ",
23 $babel->version, "\n";
24