1 |
#!/usr/bin/perl |
2 |
|
3 |
use strict; |
4 |
use warnings; |
5 |
|
6 |
use blib; |
7 |
|
8 |
use Data::Dump qw/dump/; |
9 |
|
10 |
use Test::More tests => 6; |
11 |
|
12 |
use_ok('NMEA'); |
13 |
|
14 |
while(<DATA>) { |
15 |
my $hash = NMEA->line( $_ ); |
16 |
|
17 |
ok( $hash, 'line' ) if $hash; |
18 |
diag dump( $hash ); |
19 |
} |
20 |
|
21 |
ok( my $stats = NMEA->stats, 'stats' ); |
22 |
diag "stats = ",dump( $stats ); |
23 |
|
24 |
cmp_ok( $stats->{total}, '==', 3, 'stats->{total}' ); |
25 |
|
26 |
__DATA__ |
27 |
$GPGSV,2,1,08,19,77,276,40,03,60,170,28,22,55,060,42,14,34,119,27*7A |
28 |
$GPGSV,2,2,08,11,21,283,24,01,19,150,,18,17,048,,28,06,331,*7E |
29 |
$GPGSA,A,1,03,19,22,,,,,,,,,,11.2,5.0,10.0*3D |
30 |
$GPGGA,162810.53,,,,,00,00,5.0,,M,0.001012,M,0.0060199,*6C |
31 |
$GPRMC,162810.53,V,,,,,,,011207,,,N*72 |
32 |
$GPGSV,2,1,08,19,77,276,35,03,60,170,25,22,55,060,46,14,34,119,24*72 |
33 |
$GPGSV,2,2,08,11,21,283,26,01,19,150,,18,17,048,,28,06,331,*7C |
34 |
$GPGSA,A,1,03,19,22,,,,,,,,,,11.2,5.0,10.0*3D |
35 |
$GPGGA,162812.00,4548.598079,N,01558.435799,E,1,03,5.0,160.0,M,0.001018,M,0.0060540,*49 |
36 |
$GPRMC,162812.00,A,4548.598079,N,01558.435799,E,000.0,000.0,011207,,,A*5E |
37 |
$GPGSV,2,1,08,19,77,276,33,03,60,170,30,22,55,060,41,14,34,119,20*73 |
38 |
$GPGSV,2,2,08,11,21,283,24,01,19,150,,18,17,048,,28,06,331,*7E |
39 |
$GPGSA,A,3,03,19,22,,,,,,,,,,11.2,5.0,10.0*3F |
40 |
$PGLOR,FIX,66.1,TR,66.0,ST,U,NS,A,DR,N,PS,A*02 |
41 |
$GPGGA,162814.00,4548.602184,N,01558.444985,E,1,03,1.0,158.0,M,0.000014,M,0.0060515,*4B |
42 |
$GPRMC,162814.00,A,4548.602184,N,01558.444985,E,000.0,000.0,011207,,,A*5E |
43 |
$GPGSV,2,1,08,19,77,276,33,03,60,170,26,22,55,060,31,14,34,119,17*77 |
44 |
$GPGSV,2,2,08,11,21,283,22,01,19,150,,18,17,048,,28,06,331,*78 |
45 |
$GPGSA,A,3,03,19,22,,,,,,,,,,2.2,1.0,2.0*3A |
46 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |
47 |
$GPGGA,162816.00,4548.602184,N,01558.444985,E,1,03,1.0,158.0,M,0.000018,M,0.0050515,*46 |
48 |
$GPRMC,162816.00,A,4548.602184,N,01558.444985,E,000.0,000.0,011207,,,A*5C |
49 |
$GPGSV,2,1,08,19,77,276,32,03,60,170,24,22,55,060,28,14,34,119,14*7F |
50 |
$GPGSV,2,2,08,11,21,283,24,01,19,150,,18,17,048,,28,06,331,*7E |
51 |
$GPGSA,A,3,03,19,22,,,,,,,,,,2.2,1.0,2.0*3A |
52 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |
53 |
$GPGGA,162818.00,4548.602184,N,01558.444985,E,1,03,3.0,158.0,M,0.000012,M,0.0050515,*40 |
54 |
$GPRMC,162818.00,A,4548.602184,N,01558.444985,E,000.0,000.0,011207,,,A*52 |
55 |
$GPGSV,2,1,08,19,77,276,34,03,60,170,21,22,55,060,26,11,21,283,23*77 |
56 |
$GPGSV,2,2,08,14,34,119,,01,19,150,,18,17,048,,28,06,331,*79 |
57 |
$GPGSA,A,3,03,19,22,,,,,,,,,,6.7,3.0,6.0*3D |
58 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |
59 |
$GPGGA,162820.00,4548.602184,N,01558.444985,E,1,02,1.0,158.0,M,0.000018,M,0.0050515,*42 |
60 |
$GPRMC,162820.00,A,4548.602184,N,01558.444985,E,000.0,000.0,011207,,,A*59 |
61 |
$GPGSV,2,1,08,19,77,276,41,22,55,060,45,03,60,170,18,11,21,283,27*7E |
62 |
$GPGSV,2,2,08,14,34,119,,01,19,150,,18,17,048,,28,06,331,*79 |
63 |
$GPGSA,A,3,19,22,,,,,,,,,,,2.2,1.0,2.0*39 |
64 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |
65 |
$GPGGA,162822.00,4548.602184,N,01558.444985,E,1,03,3.0,158.0,M,-0.003000,M,0.0050515,*64 |
66 |
$GPRMC,162822.00,A,4548.602184,N,01558.444985,E,000.0,000.0,011207,,,A*5B |
67 |
$GPGSV,2,1,08,19,77,276,42,03,60,170,31,22,55,060,44,11,21,283,24*74 |
68 |
$GPGSV,2,2,08,14,34,119,,01,19,150,,18,17,048,,28,06,331,*79 |
69 |
$GPGSA,A,3,03,19,22,,,,,,,,,,6.7,3.0,6.0*3D |
70 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |
71 |
$GPGGA,162824.00,4548.608206,N,01558.436748,E,1,03,0.5,159.0,M,-0.004002,M,0.0050515,*69 |
72 |
$GPRMC,162824.00,A,4548.608206,N,01558.436748,E,000.0,000.0,011207,,,A*54 |
73 |
$GPGSV,2,1,08,19,77,270,,03,58,170,,22,54,058,,14,35,117,*7F |
74 |
$GPGSV,2,2,08,11,22,284,,01,20,149,,18,16,048,,28,07,331,*7E |
75 |
$GPGSA,A,3,,,,,,,,,,,,,6.7,3.0,6.0*36 |
76 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |
77 |
$GPGGA,163140.00,4548.603898,N,01558.433593,E,6,00,3.0,158.0,M,-0.029014,M,0.0050515,*6F |
78 |
$GPRMC,163140.00,V,4548.603898,N,01558.433593,E,000.0,000.0,011207,,,E*4A |
79 |
$GPGSV,2,1,08,19,77,270,,03,58,170,,22,54,058,,14,35,117,*7F |
80 |
$GPGSV,2,2,08,11,22,284,,01,20,149,,18,16,048,,28,07,331,*7E |
81 |
$GPGSA,A,3,,,,,,,,,,,,,6.7,3.0,6.0*36 |
82 |
$PGLOR,FIX,1.0,ST,U,NS,A,DR,N,PS,A*2A |