[cairo-commit] cairo-perl/t CairoSurface.t,1.27,1.28

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* CairoSurface.xs
	* t/CairoSurface.t: Wrap cairo_ps_surface_set_eps and
	cairo_ps_surface_get_eps.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- CairoSurface.t	7 Jan 2008 17:34:09 -0000	1.27
+++ CairoSurface.t	7 Jan 2008 17:41:02 -0000	1.28
@@ -12,7 +12,7 @@
 
 use Config; # for byteorder
 
-use Test::More tests => 72;
+use Test::More tests => 73;
 
 use constant IMG_WIDTH => 256;
 use constant IMG_HEIGHT => 256;
@@ -221,7 +221,7 @@
 }
 
 SKIP: {
-	skip 'ps surface', 14
+	skip 'ps surface', 15
 		unless Cairo::HAS_PS_SURFACE;
 
 	my $surf = Cairo::PsSurface->create ('tmp.ps', IMG_WIDTH, IMG_HEIGHT);
@@ -272,7 +272,7 @@
 	}
 
 	SKIP: {
-		skip 'new stuff', 6
+		skip 'new stuff', 7
 			unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 2); # FIXME: 1.6
 
 		my @levels = Cairo::PsSurface::get_levels();
@@ -285,6 +285,9 @@
 
 		like (Cairo::PsSurface::level_to_string('2'), qr/2/);
 		like (Cairo::PsSurface->level_to_string('3'), qr/3/);
+
+		$surf->set_eps (1);
+		is ($surf->get_eps, 1);
 	}
 }