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	dpavlin	30	#!/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;