From 485ec9f3d6fea056b779dbbad60f105dd92de34d Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Tue, 22 Jul 2003 16:36:53 +0000
Subject: [PATCH] added MetaContainer tests

---
 modules/t/metaContainer.t | 79 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 modules/t/metaContainer.t

diff --git a/modules/t/metaContainer.t b/modules/t/metaContainer.t
new file mode 100644
index 0000000000..02b70d785b
--- /dev/null
+++ b/modules/t/metaContainer.t
@@ -0,0 +1,79 @@
+use strict;
+use warnings;
+
+use lib 't';
+
+BEGIN { $| = 1;  
+	use Test;
+	plan tests => 10;
+}
+
+use TestUtils qw( debug );
+
+use MultiTestDB;
+
+
+my $mdb = MultiTestDB->new();
+my $db = $mdb->get_DBAdaptor('core');
+
+$mdb->save('core', 'meta');
+
+
+#
+# 1 - Can construct meta container
+#
+
+my $mc = $db->get_MetaContainer();
+ok($mc);
+
+
+#
+# 2 - list_value_by_key
+#
+
+my ($asm_default) = @{$mc->list_value_by_key('assembly.default')};
+ok($asm_default eq 'NCBI_30');
+
+
+#
+# 3-4 store key value
+#
+
+$mc->store_key_value('testkey', 'testvalue1');
+$mc->store_key_value('testkey', 'testvalue2');
+
+my $listref = $mc->list_value_by_key('testkey');
+ok($listref->[0] eq 'testvalue1');
+ok($listref->[1] eq 'testvalue2');
+
+
+#
+# 5-6 - get_Species
+#
+
+my $species = $mc->get_Species();
+ok($species->common_name eq 'Human');
+my $bin = $species->binomial;
+ok($bin eq 'Homo sapiens');
+
+#
+# 7 - get_taxon_id
+#
+my $taxid = $mc->get_taxonomy_id();
+ok($taxid == 9606);
+
+
+#
+# 8 - get_default_assembly
+#
+$asm_default = $mc->get_default_assembly();
+ok($asm_default eq 'NCBI_30');
+
+#
+# 9 - get_max_assembly_contig
+#
+my $maxac = $mc->get_max_assembly_contig();
+ok($maxac == 1_000_000);
+
+$mdb->restore('core', 'meta');
+
-- 
GitLab