From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Fri, 8 May 2009 14:38:25 +0000 (+0200)
Subject: Test get/set draw_background
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85f93a5073a65855b63ad5556daffa107b136341;p=libchamplain

Test get/set draw_background

Update the test of get/set single_line_mode to use FALSE. This will actually
change the value.
---

diff --git a/bindings/perl/Champlain/t/ChamplainMarker.t b/bindings/perl/Champlain/t/ChamplainMarker.t
index d0b63d1..4ef50e0 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 => 214;
+use Clutter::TestHelper tests => 228;
 use Test::Builder;
 
 use Champlain ':coords';
@@ -120,7 +120,7 @@ sub generic_test {
 	ok(!$marker->get_wrap, "wrap is false by default");
 	is($marker->get_ellipsize, 'none', "ellipsize is 'none' by default");
 	ok($marker->get_single_line_mode, "single_line_mode is true by default");
-
+	ok($marker->get_draw_background, "draw-background is true by default");
 
 	# Test the setters
 	$marker->set_use_markup(TRUE);
@@ -135,8 +135,11 @@ sub generic_test {
 	$marker->set_ellipsize('start');
 	is($marker->get_ellipsize, 'start', "set_ellipsize()");
 
-	$marker->set_single_line_mode(TRUE);
-	ok($marker->get_single_line_mode, "set_single_line_mode()");
+	$marker->set_single_line_mode(FALSE);
+	ok(!$marker->get_single_line_mode, "set_single_line_mode()");
+
+	$marker->set_draw_background(FALSE);
+	ok(!$marker->get_draw_background, "set_draw_background()");
 
 	
 	$marker->set_text("dummy test");
@@ -165,11 +168,9 @@ sub generic_test {
 	is($marker->get_font_name, "Mono 14", "set_font_name()");
 	$marker->set_font_name(undef);
 	is($marker->get_font_name, undef, "set_font_name(undef)");
-
-	# Can't be tested but at least we call it
-#	$marker->set_attributes('as');
 }
 
+
 #
 # Assert that two colors are unique.
 #