Commit 94375d0e authored by Arek Icrapzych's avatar Arek Icrapzych
Browse files

adjustement for new method names. All test pass

parent a2802e5f
......@@ -77,7 +77,7 @@ else {
print STDERR "clone->id does not give the expected value!\n";
}
if ($clone->_internal_id == 3) {
if ($clone->dbID == 3) {
print "ok 6\n";
}
......@@ -190,7 +190,7 @@ else {
}
#Delete the current clone and test if this clone and the contigs have been deleted from the database
$clone->delete();
$clone->delete_by_dbID();
#Check if the clone has been deleted
eval {
......
......@@ -91,7 +91,7 @@ foreach my $clone_id (@clones) {
foreach my $gene_id (@geneids) {
$fromdb->gene_Obj->delete($gene_id);
}
$don_clone->delete;
$don_clone->delete_by_dbID;
print "ok 38\n";
check_delete(39);
}
......@@ -109,7 +109,7 @@ sub check_clone {
print STDERR "Clone id not set correctly\n";
}
$c++;
if ($clone->_internal_id == 1) {
if ($clone->dbID == 1) {
print "ok $c\n";
}
else {
......@@ -225,9 +225,12 @@ sub check_gene {
$c++;
my $test =0;
if( defined $suppexon ) {
my @sup = $suppexon->each_Supporting_Feature();
my $sup = shift @sup;
if( defined $sup && $sup->hseqname eq 'AB004857' ) {
$test = 1;
}
......
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