[perl-Glib-Object-Introspection] Test Cairo integration

[Torsten SchÃnfeld <tsch src gnome org>]

commit e680c637545a43f710d5fb48e0a180d404dd088f
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue Aug 9 14:13:19 2011 +0200

    Test Cairo integration

 t/cairo-integration.t |   29 +++++++++++++++++++++++++++++
 1 files changed, 29 insertions(+), 0 deletions(-)
---
diff --git a/t/cairo-integration.t b/t/cairo-integration.t
new file mode 100644
index 0000000..a91a574
--- /dev/null
+++ b/t/cairo-integration.t
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+
+BEGIN { require './t/inc/setup.pl' };
+
+use strict;
+use warnings;
+
+my $have_cairo_gobject = eval 'use Cairo::GObject; 1';
+
+plan $have_cairo_gobject ? (tests => 8) : (skip_all => 'Need Cairo::GObject');
+
+my $cr = test_cairo_context_full_return ();
+isa_ok ($cr, 'Cairo::Context');
+is ($cr->status, 'success');
+test_cairo_context_none_in ($cr);
+
+my $surf = test_cairo_surface_none_return ();
+isa_ok ($surf, 'Cairo::Surface');
+is ($surf->status, 'success');
+
+$surf = test_cairo_surface_full_return ();
+isa_ok ($surf, 'Cairo::Surface');
+is ($surf->status, 'success');
+
+test_cairo_surface_none_in ($surf);
+
+$surf = test_cairo_surface_full_out ();
+isa_ok ($surf, 'Cairo::Surface');
+is ($surf->status, 'success');