From 9ba4767ab50364e1487a7b2bf25c3f884140fc08 Mon Sep 17 00:00:00 2001
From: Ian Longden <ianl@sanger.ac.uk>
Date: Fri, 12 Oct 2007 14:43:38 +0000
Subject: [PATCH] changed test to test for optional code name to be passed to
fetch_all_by_ and remove_from_
---
modules/t/attributeAdaptor.t | 41 +++++++++++++++++++++++++++++++-----
1 file changed, 36 insertions(+), 5 deletions(-)
diff --git a/modules/t/attributeAdaptor.t b/modules/t/attributeAdaptor.t
index 1fc31491ff..6c92cfb0e1 100644
--- a/modules/t/attributeAdaptor.t
+++ b/modules/t/attributeAdaptor.t
@@ -4,7 +4,7 @@ use Bio::EnsEMBL::Test::TestUtils;
BEGIN { $| = 1;
use Test;
- plan tests => 22;
+ plan tests => 26;
}
use Bio::EnsEMBL::Test::MultiTestDB;
@@ -140,6 +140,15 @@ ok($count == 1);
ok(@attribs == 1);
+
+@attribs = @{$aa->fetch_all_by_Slice($slice,"rubbish")};
+ok(@attribs == 0);
+
+@attribs = @{$aa->fetch_all_by_Slice($slice,"test_code2")};
+ok(@attribs == 1);
+
+
+
$attrib = $attribs[0];
ok($attrib->name eq 'test_name2');
@@ -149,19 +158,31 @@ ok($attrib->value eq 'test_value2');
#
-# test the removal of this attribute
+# test the removal of this attribute with atrrib code
#
-$aa->remove_from_Slice($slice);
+$aa->remove_from_Slice($slice,"junk");
+$count = $db->dbc->db_handle->selectall_arrayref
+ ("SELECT count(*) FROM seq_region_attrib " .
+ "WHERE seq_region_id = " . $slice->get_seq_region_id())->[0]->[0];
+
+ok($count == 1);
+
+
+
#
-# make sure the seq_region_attrib table was updated
+# test the removal of this attribute
#
+
+$aa->remove_from_Slice($slice,"test_code2");
$count = $db->dbc->db_handle->selectall_arrayref
("SELECT count(*) FROM seq_region_attrib " .
"WHERE seq_region_id = " . $slice->get_seq_region_id())->[0]->[0];
ok($count == 0);
+
+
#
# make sure the attribute is no longer retrievable
#
@@ -173,7 +194,6 @@ ok(@attribs == 0);
#
# try to add an attribute with an already existing code
#
-
$aa->store_on_Slice($slice, [$attrib]);
#
# make sure the seq_region_attrib table was updated
@@ -197,4 +217,15 @@ print "attribs: " . scalar(@attribs) . "\n";
ok(@attribs == 1);
+#
+# test the removal of this attribute
+#
+$aa->remove_from_Slice($slice);
+$count = $db->dbc->db_handle->selectall_arrayref
+ ("SELECT count(*) FROM seq_region_attrib " .
+ "WHERE seq_region_id = " . $slice->get_seq_region_id())->[0]->[0];
+
+ok($count == 0);
+
+
$multi->restore('core', 'misc_attrib', 'seq_region_attrib', 'attrib_type');
--
GitLab