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

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
Really test cairo_ps_surface_restrict_to_level.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- CairoSurface.t	7 Jan 2008 17:41:02 -0000	1.28
+++ CairoSurface.t	7 Jan 2008 17:45:54 -0000	1.29
@@ -275,6 +275,9 @@
 		skip 'new stuff', 7
 			unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 2); # FIXME: 1.6
 
+		$surf->restrict_to_level ('2');
+		$surf->restrict_to_level ('3');
+
 		my @levels = Cairo::PsSurface::get_levels();
 		ok (scalar @levels > 0);
 		is ($levels[0], '2');