[cairo-commit] cairo-perl/t Cairo.t, 1.12, 1.13 CairoSurface.t, 1.19, 1.20

[Torsten Schoenfeld]

Committed by: tsch

Update of /cvs/cairo/cairo-perl/t
In directory kemper:/tmp/cvs-serv2116/t

Modified Files:
	Cairo.t CairoSurface.t 
Log Message:
	* Cairo.xs
	* t/Cairo.t: Wrap cairo_get_scaled_font.

	* CairoSurface.xs
	* t/CairoSurface.t: Re-add the binding for cairo_surface_finish.
	It was orignally removed because its effect can also be achieved
	by destroying the surface or letting it go out of scope.  But
	Oleksandr Alex Protasenko convinced me that it's still a good idea
	to have it anyway, mainly for paginated surfaces like PDF and PS
	which defer rendering as long as they can.  With $surf->finish you
	can more clearly express what you're intending to do than with
	$surf = undef.

	* examples/png-streams.pl: Fix indention.


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Cairo.t	18 Jan 2007 19:53:39 -0000	1.12
+++ Cairo.t	17 Mar 2007 16:13:32 -0000	1.13
@@ -9,7 +9,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 67;
+use Test::More tests => 68;
 
 use constant {
 	IMG_WIDTH => 256,
@@ -233,6 +233,13 @@
 	$cr->set_scaled_font ($font);
 }
 
+SKIP: {
+	skip 'new stuff', 1
+		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 4, 0);
+
+	isa_ok ($cr->get_scaled_font, 'Cairo::ScaledFont');
+}
+
 isa_ok ($cr->get_source, 'Cairo::Pattern');
 
 my @pnt = $cr->get_current_point;

Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- CairoSurface.t	5 Jan 2007 21:01:47 -0000	1.19
+++ CairoSurface.t	17 Mar 2007 16:13:32 -0000	1.20
@@ -68,6 +68,8 @@
 	}
 }
 
+$surf->finish;
+
 $surf = $surf->create_similar ('color', IMG_WIDTH, IMG_HEIGHT);
 isa_ok ($surf, 'Cairo::ImageSurface');
 isa_ok ($surf, 'Cairo::Surface');