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

[Ross McFarland]

Committed by: rwmcfa1

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

Modified Files:
	Cairo.t 
Log Message:
	* t/CairoMatrix.t, t/CairoPattern.t, t/CairoSurface.t: initial import,
	95% complete tests

	* Cairo.xs, CairoMatrix.xs, CairoSurface.xs, CairoPattern.xs: no more
	new's, not really a good idea.
	
	* CairoFont.xs: all disabled for now

	* CairoMatrix.xs: copy, multiply, and transforms fixed while doing
	tests

	* CairoPattern.xs: get_matrix fixed whlie doing tests

	* CairoSurface.xs: cleaned up the namespace problems herein. fixed
	several output funcs.

	* MANIFEST: added TODO and new tests.

	* MANIFEST.SKIP: skip CairoEnums.xs

	* t/Cairo.t: no new test, change Surface stuff due to namespace above

Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Cairo.t	11 Nov 2004 02:20:32 -0000	1.2
+++ Cairo.t	12 Nov 2004 03:26:34 -0000	1.3
@@ -10,7 +10,7 @@
 use warnings;
 use Data::Dumper;
 
-use Test::More tests => 48;
+use Test::More tests => 47;
 
 use constant {
 	IMG_WIDTH => 256,
@@ -26,7 +26,6 @@
 ok (%Cairo::backends, '%Cairo::backends');
 
 isa_ok (my $cr = Cairo->create, 'Cairo', 'create');
-isa_ok ($cr = Cairo->new, 'Cairo', 'new');
 {
 	isa_ok (my $copy = $cr->copy, 'Cairo', 'copy');
 }
@@ -39,7 +38,7 @@
 is ($@, '', '$cr->save|restore');
 
 {
-	my $surf = Cairo::ImageSurface->create ('RGB24', IMG_WIDTH, IMG_HEIGHT);
+	my $surf = Cairo::Surface->image_create ('RGB24', IMG_WIDTH, IMG_HEIGHT);
 	isa_ok ($surf, 'Cairo::Surface', 'support');
 
 	$cr->set_target_surface ($surf);
@@ -234,7 +233,7 @@
 is ($@, '', 'fonts');
 
 {
-	my $surf = Cairo::ImageSurface->create ('RGB24', IMG_WIDTH, IMG_HEIGHT);
+	my $surf = Cairo::Surface->image_create ('RGB24', IMG_WIDTH, IMG_HEIGHT);
 	eval
 	{
 		$cr->show_surface ($surf, IMG_WIDTH, IMG_HEIGHT);