Bindings for champlain_map_source_factory_get_list

diff --git a/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t b/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
index f727c583bec58a1d771d61cac84371bfd172ff81..1dbbe2b6fb37f1364a028d32ccc2d8da50183bde 100644 (file)
--- a/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
+++ b/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
@@ -38,6 +38,9 @@ sub test_map_factory {
        generic_create($factory, Champlain::MapSourceFactory->OSM_CYCLEMAP);
        generic_create($factory, Champlain::MapSourceFactory->OAM);
        generic_create($factory, Champlain::MapSourceFactory->MFF_RELIEF);
+       
+       my @maps = $factory->get_list();
+       ok(@maps >= 5, "Maps factory has the default maps");
 }
 
 

diff --git a/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs b/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
index 40901e3397817f7b8938f129c9d1c686d3be0e42..4e02ac969c7551533dd0d1a0b566d0288003b3b9 100644 (file)
--- a/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
+++ b/bindings/perl/Champlain/xs/ChamplainMapSourceFactory.xs
@@ -9,8 +9,23 @@ champlain_map_source_factory_get_default (class)
        C_ARGS: /* No args */
 
 
-#gchar**
-#champlain_map_source_factory_get_list (ChamplainMapSourceFactory *factory)
+void
+champlain_map_source_factory_get_list (ChamplainMapSourceFactory *factory)
+       PREINIT:
+               gchar **list = NULL;
+               gchar *item = NULL;
+               gint i = 0;
+       
+       PPCODE:
+               list = champlain_map_source_factory_get_list(factory);
+               
+               item = list[0];
+               while (item != NULL) {
+                       XPUSHs(sv_2mortal(newSVGChar(item)));
+                       item = list[++i];
+               }
+               
+               g_strfreev(list);
 
 
 ChamplainMapSource*