From 0809d1414307eede8fc556734e3675e3848143e3 Mon Sep 17 00:00:00 2001
From: Alessandro Vullo <avullo@ebi.ac.uk>
Date: Thu, 31 Oct 2013 10:00:15 +0000
Subject: [PATCH] Use pure perl versions of assert_[integer|numeric]
---
modules/Bio/EnsEMBL/Utils/Scalar.pm | 6 +++---
modules/t/altAlleleGroup.t | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/modules/Bio/EnsEMBL/Utils/Scalar.pm b/modules/Bio/EnsEMBL/Utils/Scalar.pm
index 6422e76240..f4b7922233 100644
--- a/modules/Bio/EnsEMBL/Utils/Scalar.pm
+++ b/modules/Bio/EnsEMBL/Utils/Scalar.pm
@@ -118,10 +118,10 @@ BEGIN {
} else {
*check_ref = \&check_ref_pp;
*assert_ref = \&assert_ref_pp;
- # *assert_numeric = \&assert_numeric_pp;
- # *assert_integer = \&assert_integer_pp;
}
-
+
+ *assert_numeric = \&assert_numeric_pp;
+ *assert_integer = \&assert_integer_pp;
}
diff --git a/modules/t/altAlleleGroup.t b/modules/t/altAlleleGroup.t
index f7747e1d7d..b8be460a9e 100644
--- a/modules/t/altAlleleGroup.t
+++ b/modules/t/altAlleleGroup.t
@@ -98,8 +98,8 @@ my $gene = $aag->get_representative_Gene;
is($gene->stable_id, 'ENSG00000131044',"Ensure both correct instantiation of Gene and ID thereof");
#Checking we can filter the members list by a gene object and an ID
-is_deeply($aag->get_all_Gene_ids(undef, [18259]), [18256, 18257,18258,18259], 'Filtering out a Gene by ID');
-is_deeply($aag->get_all_Gene_ids(undef, [$ga->fetch_by_dbID(18259)]), [18256, 18257,18258,18259], 'Filtering out a Gene by object');
+is_deeply($aag->get_all_Gene_ids(undef, [18259]), [18256, 18257,18258], 'Filtering out a Gene by ID');
+is_deeply($aag->get_all_Gene_ids(undef, [$ga->fetch_by_dbID(18259)]), [18256, 18257,18258], 'Filtering out a Gene by object');
my $gene_list = $aag->get_all_Genes;
$gene = $gene_list->[0];
--
GitLab