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	#!/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