From a137d4cdbecfb9b92afa88d7b8b241e9f0443acf Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Thu, 24 Mar 2005 10:11:43 +0000
Subject: [PATCH] Tests for RegulatoryMotif.pm
---
modules/t/regulatoryMotif.t | 27 +++++++++++++++++++++++++++
1 file changed, 27 insertions(+)
create mode 100644 modules/t/regulatoryMotif.t
diff --git a/modules/t/regulatoryMotif.t b/modules/t/regulatoryMotif.t
new file mode 100644
index 0000000000..360e474223
--- /dev/null
+++ b/modules/t/regulatoryMotif.t
@@ -0,0 +1,27 @@
+use strict;
+use Bio::EnsEMBL::Test::TestUtils;
+
+use Bio::EnsEMBL::RegulatoryMotif;
+
+BEGIN { $| = 1;
+ use Test;
+ plan tests => 7;
+}
+
+my $verbose = 0;
+
+#
+# Test constructor
+#
+my $rm = Bio::EnsEMBL::RegulatoryMotif->new(-NAME => 'Joe',
+ -TYPE => 'promoter');
+
+ok($rm);
+ok(ref($rm));
+ok($rm->isa('Bio::EnsEMBL::RegulatoryMotif'));
+
+ok($rm->name eq 'Joe');
+ok($rm->type eq 'promoter');
+
+ok(test_getter_setter($rm,'name','Fred'));
+ok(test_getter_setter($rm,'type','miRNA_target'));
--
GitLab