maps/t/kml.t

#!/usr/bin/perl

use strict;
use warnings;

use blib;

use Test::More tests => 2;

use_ok('KML');

my $placemarks = [
        {
                point => [ 11, 42 ],
                html => '<b>foobar</b>',
        },{
                point => [ 10,10 ],
                html => '2',
        },
];


ok( my $out = KML->output( placemarks => $placemarks ), 'output' );
diag $out;
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	use blib;
7
8	use Test::More tests => 2;
9
10	use_ok('KML');
11
12	my $placemarks = [
13	{
14	point => [ 11, 42 ],
15	html => '<b>foobar</b>',
16	},{
17	point => [ 10,10 ],
18	html => '2',
19	},
20	];
21
22
23	ok( my $out = KML->output( placemarks => $placemarks ), 'output' );
24	diag $out;