[perl-Pango] On pango 1.0, skip tests that need Pango::AttrIterator->get_attrs

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

commit 9ea9d2644824dc7123eb2dd37327a9a59278f498
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Thu Dec 17 21:23:06 2009 +0100

    On pango 1.0, skip tests that need Pango::AttrIterator->get_attrs

 t/PangoAttributes.t |   29 +++++++++++++++++++----------
 1 files changed, 19 insertions(+), 10 deletions(-)
---
diff --git a/t/PangoAttributes.t b/t/PangoAttributes.t
index 9f73621..5d8b4e1 100644
--- a/t/PangoAttributes.t
+++ b/t/PangoAttributes.t
@@ -451,17 +451,23 @@ isa_ok ($iter, 'Pango::AttrIterator');
 is_deeply ([$iter->range], [0, 23]);
 ok ($iter->get ('weight')->equal ($attr_weight));
 
-my @attrs = $iter->get_attrs;
-is (scalar @attrs, 2);
-ok ($attrs[1]->equal ($attr_variant));
 
-ok ($iter->next);
-ok ($iter->next);
+SKIP: {
+	skip 'get_attrs', 6
+		unless Pango->CHECK_VERSION (1, 2, 0);
+
+	my @attrs = $iter->get_attrs;
+	is (scalar @attrs, 2);
+	ok ($attrs[1]->equal ($attr_variant));
 
- attrs = $iter->get_attrs;
-is (scalar @attrs, 0);
+	ok ($iter->next);
+	ok ($iter->next);
 
-is ($iter->get ('weight'), undef);
+	@attrs = $iter->get_attrs;
+	is (scalar @attrs, 0);
+
+	is ($iter->get ('weight'), undef);
+}
 
 # get_font
 $list = Pango::AttrList->new;
@@ -508,7 +514,7 @@ SKIP: {
 
 	my $list_new = $list->filter ($callback, 'urgs');
 	$iter = $list_new->get_iterator;
-	@attrs = $iter->get_attrs;
+	my @attrs = $iter->get_attrs;
 	is (scalar @attrs, 1);
 	isa_ok ($attrs[0], 'Pango::AttrWeight');
 	ok ($iter->next);
@@ -526,7 +532,10 @@ isa_ok ($attr_list, 'Pango::AttrList');
 is ($text, 'this text is really cool (no lie)', 'text is stripped of tags');
 ok ((not defined $accel_char), 'no accel_char if no accel_marker');
 
-{
+SKIP: {
+	skip 'need get_attrs', 7
+		unless Pango->CHECK_VERSION (1, 2, 0);
+
 	# first, only <big>
 	my $iter = $attr_list->get_iterator;
 	my @attrs = $iter->get_attrs;