[cairo-commit] cairo-perl/t CairoPattern.t,1.2,1.3

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoPattern.t 
Log Message:
	* Cairo.pm, CairoPattern.xs, Makefile.PL, cairo-perl.h,
	t/CairoPattern.t: Add Cairo::SolidPattern::create_rgb and
	create_rgba.


Index: CairoPattern.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoPattern.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- CairoPattern.t	12 Jul 2005 20:29:49 -0000	1.2
+++ CairoPattern.t	29 Jan 2006 19:27:21 -0000	1.3
@@ -9,7 +9,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 16;
 
 use constant {
 	IMG_WIDTH => 256,
@@ -18,9 +18,16 @@
 
 use Cairo;
 
-my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT);
+my $pat = Cairo::SolidPattern->create_rgb(1.0, 0.0, 0.0);
+isa_ok ($pat, 'Cairo::SolidPattern');
+isa_ok ($pat, 'Cairo::Pattern');
 
-my $pat = Cairo::SurfacePattern->create ($surf);
+$pat = Cairo::SolidPattern->create_rgba(1.0, 0.0, 0.0, 1.0);
+isa_ok ($pat, 'Cairo::SolidPattern');
+isa_ok ($pat, 'Cairo::Pattern');
+
+my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT);
+$pat = Cairo::SurfacePattern->create ($surf);
 isa_ok ($pat, 'Cairo::SurfacePattern');
 isa_ok ($pat, 'Cairo::Pattern');