[cairo-commit] cairo-perl/t CairoSurface.t,1.22,1.23

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t (PNG surface tests): Since exceptions are
	actually propagated now, throw the same kind of exception we test
	for.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- CairoSurface.t	27 May 2007 12:34:20 -0000	1.22
+++ CairoSurface.t	7 Oct 2007 13:11:59 -0000	1.23
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # Copyright (c) 2004-2005 by the cairo perl team (see the file README)
 #
@@ -126,14 +127,14 @@
 		my ($closure, $data) = @_;
 		is ($closure, 'blub');
 		like ($data, qr/PNG/);
-		die 'write-error';
+		die 'no-memory';
 	}, 'blub'), 'no-memory');
 
 	is ($surf->write_to_png_stream (sub {
 		my ($closure, $data) = @_;
 		is ($closure, undef);
 		like ($data, qr/PNG/);
-		die 'write-error';
+		die 'no-memory';
 	}), 'no-memory');
 
 	$surf = Cairo::ImageSurface->create_from_png ('tmp.png');