From 7716a16af4d3cd2bbc3876e16df3edd9ed0a66b1 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Mon, 3 Mar 2003 14:36:01 +0000
Subject: [PATCH] added test for Slice::get_base_count
---
modules/t/slice.t | 23 ++++++++++++++++++++++-
1 file changed, 22 insertions(+), 1 deletion(-)
diff --git a/modules/t/slice.t b/modules/t/slice.t
index ddd6626761..9624dcc6a8 100644
--- a/modules/t/slice.t
+++ b/modules/t/slice.t
@@ -5,7 +5,7 @@ use lib 't';
BEGIN { $| = 1;
use Test;
- plan tests => 48;
+ plan tests => 49;
}
use TestUtils qw( debug );
@@ -285,3 +285,24 @@ ok( $super_slices->[0]->chr_start() == 29591966 );
debug( "Supercontig name ".$super_slices->[0]->name() );
ok( $super_slices->[0]->name() eq "NT_028392" );
+
+#
+# 49 get_base_count
+#
+my $hash = $slice->get_base_count;
+my $a = $hash->{'a'};
+my $c = $hash->{'c'};
+my $t = $hash->{'t'};
+my $g = $hash->{'g'};
+my $n = $hash->{'n'};
+my $gc_content = $hash->{'%gc'};
+
+debug( "Base count: a=$a c=$c t=$t g=$g n=$n \%gc=$gc_content");
+ok($a == 234371
+ && $c == 224761
+ && $t == 243734
+ && $g == 227135
+ && $n == 0
+ && $gc_content == 48.59
+ && $a+$c+$t+$g+$n == $slice->length);
+
--
GitLab