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;
        diag dump( $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	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