From fc27c1a596d0c0f50643f00054857e0b6d77d456 Mon Sep 17 00:00:00 2001
From: Arne Stabenau <stabenau@sanger.ac.uk>
Date: Mon, 1 Mar 2004 16:43:27 +0000
Subject: [PATCH] adapt the test to new Attribute API
---
modules/t/slice.t | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/modules/t/slice.t b/modules/t/slice.t
index b3695a9b3b..bcfefccd95 100644
--- a/modules/t/slice.t
+++ b/modules/t/slice.t
@@ -140,13 +140,9 @@ ok($slice->length == ($END-$START + 1));
my $clone = $slice_adaptor->fetch_by_region('clone','AL121583.25');
-my @types = $clone->get_attribute_types();
+my @attrib = @{$clone->get_all_Attributes('htg_phase')};
-ok(@types == 1 && $types[0] eq 'htg_phase');
-
-my @attrib = $clone->get_attribute('htg_phase');
-
-ok(@attrib == 1 && $attrib[0] == 4);
+ok(@attrib == 1 && $attrib[0]->value() == 4);
#
# Test expand
--
GitLab