Skip to content
Snippets Groups Projects
Commit a548de07 authored by Graham McVicker's avatar Graham McVicker
Browse files

added karyotypeBand.t test script

parent 9624802f
No related branches found
No related tags found
No related merge requests found
{
'port' => 3306,
'driver' => 'mysql',
'user' => 'root',
'pass' => '',
'host' => 'localhost',
'user' => 'ensadmin',
'pass' => 'ensembl',
'host' => 'ecs1c',
'zip' => 'test_genome.zip',
#add a line with the dbname and module
......
use strict;
use warnings;
use lib 't';
BEGIN { $| = 1;
use Test;
plan tests => 7;
}
use TestUtils qw(debug test_getter_setter);
use Bio::EnsEMBL::KaryotypeBand;
#
#1 TEST - KaryotypeBand compiles
#
ok(1);
#
# 2 test constructor
#
my $kb = Bio::EnsEMBL::KaryotypeBand->new;
ok($kb->isa('Bio::EnsEMBL::KaryotypeBand'));
#
# 3-7 test getter/setters
#
ok(test_getter_setter($kb, 'name', 'p.31'));
ok(test_getter_setter($kb, 'chr_name', 'X'));
ok(test_getter_setter($kb, 'start', 12_200_000));
ok(test_getter_setter($kb, 'end', 13_000_000));
ok(test_getter_setter($kb, 'stain', 'gpos50'));
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment