[libchamplain/libchamplain-0-4] Perl bindings for champlain_marker_set_highlight_text_color and champlain_marker_get_highlight_text_

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit ad2c07551e1236251502dc4dc8b2b89ffdf43105
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sat Jan 9 09:26:48 2010 +0100

    Perl bindings for champlain_marker_set_highlight_text_color and champlain_marker_get_highlight_text_color

 bindings/perl/Champlain/t/ChamplainMarker.t   |   21 ++++++++++++++++++---
 bindings/perl/Champlain/xs/ChamplainMarker.xs |    9 +++++++++
 2 files changed, 27 insertions(+), 3 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainMarker.t b/bindings/perl/Champlain/t/ChamplainMarker.t
index 1f5db59..cae9963 100644
--- a/bindings/perl/Champlain/t/ChamplainMarker.t
+++ b/bindings/perl/Champlain/t/ChamplainMarker.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 318;
+use Clutter::TestHelper tests => 324;
 use Test::Builder;
 
 use Champlain ':coords';
@@ -26,8 +26,14 @@ sub tests {
 	test_new_from_file();
 	test_new_full();
 	test_new_with_image();
+	test_global_colors();
+
+	return 0;
+}
+
+
+sub test_global_colors {
 
-	# Can't be tested but at least we call it
 	Champlain::Marker->set_highlight_color(Clutter::Color->new(0xff, 0xff, 0x00));
 	SKIP: {
 		Champlain->CHECK_VERSION(0, 4, 1) or skip '0.4.1 stuff', 1;
@@ -38,7 +44,16 @@ sub tests {
 		);
 	}
 
-	return 0;
+
+	Champlain::Marker->set_highlight_text_color(Clutter::Color->new(0xff, 0xef, 0x00));
+	SKIP: {
+		Champlain->CHECK_VERSION(0, 4, 1) or skip '0.4.1 stuff', 1;
+		is_color(
+			Champlain::Marker->get_highlight_text_color,
+			Clutter::Color->new(0xff, 0xef, 0x00),
+			"get_highlight_color()"
+		);
+	}
 }
 
 
diff --git a/bindings/perl/Champlain/xs/ChamplainMarker.xs b/bindings/perl/Champlain/xs/ChamplainMarker.xs
index c971b73..54239b6 100644
--- a/bindings/perl/Champlain/xs/ChamplainMarker.xs
+++ b/bindings/perl/Champlain/xs/ChamplainMarker.xs
@@ -144,10 +144,19 @@ champlain_marker_set_highlight_color (class, ClutterColor *color);
 	C_ARGS: color
 
 
+void
+champlain_marker_set_highlight_text_color (class, ClutterColor *color);
+	C_ARGS: color
+
+
 #if CHAMPLAIN_CHECK_VERSION (0, 4, 1)
 
 ClutterColor*
 champlain_marker_get_highlight_color (class)
 	C_ARGS:  /* No args */
 
+const ClutterColor*
+champlain_marker_get_highlight_text_color (class)
+	C_ARGS:  /* No args */
+
 #endif /* 0.4.1 */