[OSM-talk-nl] Unittest voor API

[Martijn van Oosterhout]

2008/8/20 Stefan de Konink <skinkie at xs4all.nl>:
> Voor diegene die aanwezig waren op de laatste OSM dag in Veenendaal;
> mocht er iemand van jullie (op korte termijn) tijd hebben om een kleine
> unittest te maken, voor de osm api server...

Ik heb niet de tijd om een complete unit test te maken, maar hier is
alvast iets (niet getest:

#!/usr/bin/perl -w
use strict;
use lib '/home/kleptog/osm/svn/svn.openstreetmap.org/applications/utils/perl_lib/';
use Geo::OSM::APIClientV5;

my $api = new Geo::OSM::APIClient( api =>
'http://www.openstreetmap.org/api/0.5/', username =>
'user at example.com', password=>'secret' );

my $node = new Geo::OSM::Node({lat=>1, lon=>2}, {});
my $id = $api->create($node);
my $test = $api->get_node($id);
# Compare $node and $test....
$test = $api->get_way(289832);  # This exists hopefully....
for my $i (@{ $test->nodes })
{
  my $test2 = $api->get_node_ways($i);
  # Check $test2 contains way 289832
}
... etc...

Hopelijk geeft dit je het idee...

Mvg,
-- 
Martijn van Oosterhout <kleptog at gmail.com> http://svana.org/kleptog/