From d4e8ecffea6c2cf3a84459ea3e79ba7a6e1ac44a Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Fri, 9 Jan 2004 15:18:57 +0000
Subject: [PATCH] fix broken test case
---
modules/t/densityFeature.t | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/modules/t/densityFeature.t b/modules/t/densityFeature.t
index 680001c88f..051fd5990a 100644
--- a/modules/t/densityFeature.t
+++ b/modules/t/densityFeature.t
@@ -16,7 +16,7 @@ our $verbose = 0; #set to 1 to turn on debug printouts
BEGIN { $| = 1;
use Test;
- plan tests => 6;
+ plan tests => 7;
}
use TestUtils qw( debug );
@@ -28,12 +28,14 @@ my $analysis = Bio::EnsEMBL::Analysis->new(-DBID => 1,
my $start = 10;
my $end = 102;
my $density_value = 123;
+my $density_value_type = 'ratio';
my $df = Bio::EnsEMBL::DensityFeature->new
(-start => $start,
-end => $end,
-analysis => $analysis,
- -density_value => $density_value);
+ -density_value => $density_value,
+ -density_value_type => $density_value_type);
ok($df->start == $start && $df->analysis == $analysis && $df->end == $end);
ok($df->strand == 0);
@@ -44,11 +46,12 @@ $df = Bio::EnsEMBL::DensityFeature->new_fast
({'start' => $start,
'end' => $end,
'analysis' => $analysis,
- 'density_value' => $density_value});
+ 'density_value' => $density_value,
+ 'density_value_type' => $density_value_type});
ok($df->start == $start && $df->analysis == $analysis && $df->end == $end);
ok($df->strand == 0);
ok($df->density_value == $density_value);
-
+ok($df->density_value_type eq $density_value_type);
--
GitLab