| 1 |
dpavlin |
28 |
#!/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 |
dpavlin |
29 |
diag dump( $hash ); |
| 19 |
dpavlin |
28 |
} |
| 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 |
Parent Directory
| 
Revision Log