fix Location tests to match API

cjfields · Feb 26, 2012 · fb0ee84 · fb0ee84
1 parent 0d64c7f
commit fb0ee84
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 8 deletions.
diff --git a/lib/Biome/Location/Simple.pm b/lib/Biome/Location/Simple.pm
@@ -18,12 +18,6 @@ with 'Biome::Role::Location::Locatable';
 sub BUILD {
     my ($self, $params) = @_;
 
-    if ($params->{location_string}) {
-        $self->throw("Can't use 'location_string' with other parameters")
-            if (scalar(keys %$params) > 1);
-        $self->from_string($params->{location_string});
-    }
-
     if ($params->{start} && $params->{end} && ($params->{end} < $params->{start})) {
         $self->warn('End is greater than start; flipping strands');
         $self->end($params->{start});

diff --git a/t/Location/Simple.t b/t/Location/Simple.t
@@ -281,9 +281,12 @@ is($container->end, 90);
 $container->add_sub_Location($f);
 is($container->num_sub_Locations(), 5);
 
-$simple = Biome::Location::Simple->new(location_string => '10..20');
+$simple = Biome::Location::Simple->new(start => 10,
+									   end	 => 20);
 
-$fuzzy = Biome::Location::Simple->new( location_string  => '<10..20');
+$fuzzy = Biome::Location::Simple->new( start => 10,
+									   start_pos_type => '<',
+									   end	 => 20);
 
 $fuzzy->strand(-1);
 is($fuzzy->to_string(), 'complement(<10..20)');