1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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 = Regress::test_cairo_context_full_return ();
isa_ok ($cr, 'Cairo::Context');
is ($cr->status, 'success');
Regress::test_cairo_context_none_in ($cr);
my $surf = Regress::test_cairo_surface_none_return ();
isa_ok ($surf, 'Cairo::Surface');
is ($surf->status, 'success');
$surf = Regress::test_cairo_surface_full_return ();
isa_ok ($surf, 'Cairo::Surface');
is ($surf->status, 'success');
Regress::test_cairo_surface_none_in ($surf);
$surf = Regress::test_cairo_surface_full_out ();
isa_ok ($surf, 'Cairo::Surface');
is ($surf->status, 'success');
|
