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

Torsten Schoenfeld commit at pdx.freedesktop.org
Thu Aug 10 16:13:59 PDT 2006


Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* CairoSurface.xs: Patch from Yaakov S puts version guards around
	a few PDF and PS functions that appeared in 1.2.0.

	* t/CairoSurface.t: Do the same for the corresponding tests.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- CairoSurface.t	10 Aug 2006 17:34:40 -0000	1.12
+++ CairoSurface.t	10 Aug 2006 23:13:57 -0000	1.13
@@ -141,7 +141,12 @@
 	isa_ok ($surf, 'Cairo::PdfSurface');
 	isa_ok ($surf, 'Cairo::Surface');
 
-	$surf->set_size (23, 42);
+	SKIP: {
+		skip 'new stuff', 0
+			unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
+
+		$surf->set_size (23, 42);
+	}
 
 	$surf = $surf->create_similar ('alpha', IMG_WIDTH, IMG_HEIGHT);
 	isa_ok ($surf, 'Cairo::ImageSurface');
@@ -167,11 +172,16 @@
 	isa_ok ($surf, 'Cairo::PsSurface');
 	isa_ok ($surf, 'Cairo::Surface');
 
-	$surf->set_size (23, 42);
+	SKIP: {
+		skip 'new stuff', 0
+			unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
 
-	$surf->dsc_comment("Bla?");
-	$surf->dsc_begin_setup;
-	$surf->dsc_begin_page_setup;
+		$surf->set_size (23, 42);
+
+		$surf->dsc_comment("Bla?");
+		$surf->dsc_begin_setup;
+		$surf->dsc_begin_page_setup;
+	}
 
 	$surf = $surf->create_similar ('alpha', IMG_WIDTH, IMG_HEIGHT);
 	isa_ok ($surf, 'Cairo::ImageSurface');



More information about the cairo-commit mailing list