maps/t/nmea.t

#!/usr/bin/perl

use strict;
use warnings;

use blib;

use Data::Dump qw/dump/;

use Test::More tests => 6;

use_ok('NMEA');

while(<DATA>) {
        my $hash = NMEA->line( $_ );

        ok( $hash, 'line' ) if $hash;
}

ok( my $stats = NMEA->stats, 'stats' );
diag "stats = ",dump( $stats );

cmp_ok( $stats->{total}, '==', 3, 'stats->{total}' );

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