[cairo-commit] cairo-perl/t Cairo.t,1.5,1.6 CairoSurface.t,1.3,1.4

Torsten Schoenfeld commit at pdx.freedesktop.org
Wed Aug 10 10:01:56 PDT 2005


Committed by: tsch

Update of /cvs/cairo/cairo-perl/t
In directory gabe:/tmp/cvs-serv21968/t

Modified Files:
	Cairo.t CairoSurface.t 
Log Message:
	* t/Cairo.t, Cairo.xs: Bind cairo_set_antialias and
	cairo_get_antialias.

	* t/CairoSurface.t, CairoSurface.xs: Bind cairo_surface_flush,
	cairo_surface_mark_dirty, cairo_surface_mark_dirty_rectangle.

	* MANIFEST, META.yml: Remove META.yml; let EU::MakeMaker generate
	it on "make dist".

	* Makefile.PL: Require cairo 0.9.0.  Add our prerequisites to the
	WriteMakefile call so that they appear in the generated META.yml.
	Support CAIRO_STATUS_FILE_NOT_FOUND.


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Cairo.t	29 Jul 2005 17:19:55 -0000	1.5
+++ Cairo.t	10 Aug 2005 17:01:54 -0000	1.6
@@ -9,7 +9,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 49;
+use Test::More tests => 50;
 
 use constant {
 	IMG_WIDTH => 256,
@@ -43,6 +43,9 @@
 $cr->set_tolerance (0.75);
 is ($cr->get_tolerance, 0.75);
 
+$cr->set_antialias ('subpixel');
+is ($cr->get_antialias, 'subpixel');
+
 $cr->set_fill_rule ('winding');
 is ($cr->get_fill_rule, 'winding');
 

Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- CairoSurface.t	29 Jul 2005 17:19:55 -0000	1.3
+++ CairoSurface.t	10 Aug 2005 17:01:54 -0000	1.4
@@ -39,6 +39,10 @@
 
 isa_ok ($surf->get_font_options, 'Cairo::FontOptions');
 
+$surf->mark_dirty;
+$surf->mark_dirty_rectangle (10, 10, 10, 10);
+$surf->flush;
+
 SKIP: {
 	skip 'png surface', 3
 		unless Cairo::HAS_PNG_FUNCTIONS;




More information about the cairo-commit mailing list