Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl
Commits
79a1ae96
Commit
79a1ae96
authored
Jun 07, 2006
by
Ian Longden
Browse files
new fixes
parent
da503522
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
6 deletions
+7
-6
modules/t/assemblyMapper.t
modules/t/assemblyMapper.t
+5
-4
modules/t/unmappedObject.t
modules/t/unmappedObject.t
+2
-2
No files found.
modules/t/assemblyMapper.t
View file @
79a1ae96
...
...
@@ -40,26 +40,27 @@ ok( $asm_mapper && $asm_mapper->isa( "Bio::EnsEMBL::ChainedAssemblyMapper" ));
#
my
@coords
=
$asm_mapper
->
map
(
'
1
',
1
,
50
,
1
,
$chr_cs
);
ok
(
$coords
[
0
]
->
id
()
eq
"
multimap_testregion
"
);
ok
(
$coords
[
0
]
->
id
()
==
965905
);
ok
(
$coords
[
0
]
->
start
()
==
10
);
ok
(
$coords
[
0
]
->
end
()
==
59
);
ok
(
$coords
[
0
]
->
strand
()
==
1
);
@coords
=
$asm_mapper
->
map
(
"
multimap_testregion
",
100
,
800
,
1
,
$chnk_cs
);
ok
(
$coords
[
0
]
->
id
()
eq
"
1
"
);
ok
(
$coords
[
0
]
->
id
()
==
469271
);
#seq_region_id not name now.
ok
(
$coords
[
0
]
->
start
()
==
91
);
ok
(
$coords
[
0
]
->
end
()
==
200
);
ok
(
$coords
[
0
]
->
strand
()
==
1
);
ok
(
$coords
[
1
]
->
isa
(
"
Bio::EnsEMBL::Mapper::Gap
"
)
);
ok
(
$coords
[
2
]
->
id
()
eq
"
1
"
);
ok
(
$coords
[
2
]
->
id
()
==
469271
);
ok
(
$coords
[
2
]
->
start
()
==
201
);
ok
(
$coords
[
2
]
->
end
()
==
400
);
ok
(
$coords
[
2
]
->
strand
()
==
-
1
);
ok
(
$coords
[
4
]
->
id
()
eq
"
2
"
);
ok
(
$coords
[
4
]
->
id
()
==
469282
);
ok
(
$coords
[
4
]
->
start
()
==
1
);
ok
(
$coords
[
4
]
->
end
()
==
100
);
ok
(
$coords
[
4
]
->
strand
()
==
-
1
);
...
...
modules/t/unmappedObject.t
View file @
79a1ae96
...
...
@@ -10,7 +10,6 @@ use Bio::EnsEMBL::Test::MultiTestDB;
use
Bio::EnsEMBL::Test::
TestUtils
;
use
Bio::EnsEMBL::
UnmappedObject
;
use
Bio::EnsEMBL::DBSQL::
UnmappedObjectAdaptor
;
our
$verbose
=
0
;
my
$multi
=
Bio::EnsEMBL::Test::
MultiTestDB
->
new
();
...
...
@@ -44,7 +43,7 @@ my $test_query_score = 1;
my
$test_target_score
=
1000
;
my
$test_summary
=
'
TEST failed match
';
my
$test_desc
=
'
TEST failed match due to being below threshold of 90%
';
my
$test_ensembl_id
=
"
123456
";
my
$test_ensembl_id
=
"
21734
";
my
$test_ensembl_object_type
=
"
Translation
";
my
$uo
=
Bio::EnsEMBL::
UnmappedObject
->
new
(
-
unmapped_object_id
=>
0
,
...
...
@@ -60,6 +59,7 @@ my $uo = Bio::EnsEMBL::UnmappedObject->new (
-
summary
=>
$test_summary
,
-
full_desc
=>
$test_desc
);
$uma
->
store
(
$uo
);
my
@objects
=
@
{
$uma
->
fetch_all
()};
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment