Commit 4c225159 authored by Johan Vromans's avatar Johan Vromans Committed by Torsten Schönfeld

Add bindings for cairo_tag_begin and cairo_tag_end

parent a4c8f7d7
......@@ -898,6 +898,14 @@ void cairo_append_path (cairo_t *cr, cairo_path_t *path);
cairo_status_t cairo_status (cairo_t *cr);
#if CAIRO_VERSION >= CAIRO_VERSION_ENCODE(1, 16, 0)
void cairo_tag_begin (cairo_t * cr, const char_utf8 * tag_name, const char_utf8 * attributes);
void cairo_tag_end (cairo_t * cr, const char_utf8 * tag_name);
#endif
# --------------------------------------------------------------------------- #
MODULE = Cairo PACKAGE = Cairo PREFIX = cairo_
......
......@@ -340,6 +340,24 @@ C<$cr-E<gt>restore> to restore to the saved state.
=back
=item $cr->tag_begin($name, $atts) [1.16]
=over
=item $name: string
=item $atts: string
=back
=item $cr->tag_end($name) [1.16]
=over
=item $name: string
=back
=item $cr->copy_page
=item $cr->show_page
......
......@@ -10,7 +10,7 @@
use strict;
use warnings;
use Test::More tests => 70;
use Test::More tests => 72;
unless (eval 'use Test::Number::Delta; 1;') {
my $reason = 'Test::Number::Delta not available';
......@@ -286,3 +286,13 @@ isa_ok ($path, 'ARRAY');
$cr->append_path ($path);
is ($cr->status, 'success');
SKIP: {
skip 'new stuff', 2
unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 16, 0);
$cr->tag_begin("Link","https://www.perl.org");
is ($cr->status, 'success');
$cr->tag_end("Link");
is ($cr->status, 'success');
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment