From 05106302e992b8da7d7dc2b0db63f447007fae9a Mon Sep 17 00:00:00 2001
From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 12 Apr 2009 15:02:16 +0200
Subject: [PATCH] Test the new constructors

---
 bindings/perl/Champlain/t/ChamplainMarker.t | 87 ++++++++++++++++-----
 1 file changed, 68 insertions(+), 19 deletions(-)

diff --git a/bindings/perl/Champlain/t/ChamplainMarker.t b/bindings/perl/Champlain/t/ChamplainMarker.t
index 71f0650..2c6d04b 100644
--- a/bindings/perl/Champlain/t/ChamplainMarker.t
+++ b/bindings/perl/Champlain/t/ChamplainMarker.t
@@ -3,7 +3,8 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 7;
+use Clutter::TestHelper tests => 28;
+use Test::Builder;
 
 use Champlain ':coords';
 use File::Spec;
@@ -17,9 +18,9 @@ exit tests();
 
 sub tests {
 	test_new();
-	test_new_with_label();
+	test_new_with_text();
 	test_new_with_image();
-	test_new_with_image_full();
+	test_new_full();
 	return 0;
 }
 
@@ -30,26 +31,48 @@ sub test_new {
 }
 
 
-sub test_new_with_label {
-	# Create a label without specifying the colors
-	my $marker_label = Champlain::Marker->new_with_label(
-		"Home", "Airmole 14", undef, undef
+sub test_new_with_text {
+
+	my $marker;
+
+	# Create a label without mandatory arguments
+	$marker = Champlain::Marker->new_with_text(
+		"Home", undef, undef, undef
 	);
-	isa_ok($marker_label, 'Champlain::Marker');
-	
-	# Create a label without specifying the colors
-	my $marker_label_color = Champlain::Marker->new_with_label(
-		"Home", "Airmole 14",
+	isa_ok($marker, 'Champlain::Marker');
+	is($marker->get_text, 'Home', "new_with_text() sets 'text'");
+	ok($marker->get_font_name, "new_with_text(font = undef) sets 'font_name'");
+	isa_ok($marker->get_text_color, 'Clutter::Color', "new_with_text(text_color = undef) sets 'text_color'");
+	isa_ok($marker->get_color, 'Clutter::Color', "new_with_text(color = undef) sets 'color'");
+
+
+	# Create a label by specifying the colors
+	$marker = Champlain::Marker->new_with_text(
+		"Bratislava",
+		"Airmole 14",
 		Clutter::Color->new(0xf3, 0x94, 0x07, 0xbb), # orange
+		Clutter::Color->new(0xff, 0xff, 0xff, 0xff), # white
+	);
+	isa_ok($marker, 'Champlain::Marker');
+	is($marker->get_text, 'Bratislava', "new_with_text() sets 'text'");
+	is($marker->get_font_name, 'Airmole 14', "new_with_text() sets 'font_name'");
+	is_color(
+		$marker->get_text_color,
+		Clutter::Color->new(0xf3, 0x94, 0x07, 0xbb),
+		"new_with_text() sets 'text_color'"
+	);
+	is_color(
+		$marker->get_color,
 		Clutter::Color->new(0xff, 0xff, 0xff, 0xff),
+		"new_with_text() sets 'color'"
 	);
-	isa_ok($marker_label_color, 'Champlain::Marker');
 }
 
 
 sub test_new_with_image {
 	my $marker = Champlain::Marker->new_with_image($FILENAME);
 	isa_ok($marker, 'Champlain::Marker');
+	isa_ok($marker->get_image, 'Clutter::Actor');
 	
 	# Assert that using a file that doesn't exist throws an exception
 	eval {
@@ -59,19 +82,45 @@ sub test_new_with_image {
 }
 
 
-sub test_new_with_image_full {
-	my $marker = Champlain::Marker->new_with_image_full(
+sub test_new_full {
+	my $marker = Champlain::Marker->new_full(
+		"hello",
 		$FILENAME,
-		64, 64, # width, height
-		10, 10 # x, y
 	);
 	isa_ok($marker, 'Champlain::Marker');
+	is($marker->get_text, 'hello', "new_full() sets 'text'");
+	isa_ok($marker->get_image, 'Clutter::Actor');
 	
 	# Assert that using a file that doesn't exist throws an exception
+	$@ = undef;	
 	eval {
-		$marker = Champlain::Marker->new_with_image_full(
-			"does-not-exist.gif", 10, 10, 1, 1
+		$marker = Champlain::Marker->new_full(
+			"test",			
+			"does-not-exist.gif",
 		);
 	};
 	isa_ok($@, "Glib::File::Error");
 }
+
+
+#
+# Compare colors.
+#
+sub is_color {
+	my ($got, $expected, $message) = @_;
+	my $tester = Test::Builder->new();
+	my $are_colors = 1;
+	$are_colors &= $tester->is_eq(ref($got), 'Clutter::Color', "$message, got is a Clutter::Color");
+	$are_colors &= $tester->is_eq(ref($expected), 'Clutter::Color', "$message, expected a Clutter::Color");
+
+	if (! $are_colors) {
+		$tester->ok(0, "$message, can't compare color components") for 1 .. 4;
+		return;
+	}
+
+	$tester->is_num($got->red, $expected->red, "$message, red matches");
+	$tester->is_num($got->green, $expected->green, "$message, green matches");
+	$tester->is_num($got->blue, $expected->blue, "$message, blue matches");
+	$tester->is_num($got->alpha, $expected->alpha, "$message, alpha matches");
+}
+
-- 
2.39.5