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

added tests for Attribute class

parent 6882d903
No related branches found
No related tags found
No related merge requests found
use lib 't';
use strict;
use warnings;
use Bio::EnsEMBL::Attribute;
use TestUtils qw(debug test_getter_setter);
our $verbose = 0; #set to 1 to turn on debug printouts
BEGIN { $| = 1;
use Test;
plan tests => 8;
}
use TestUtils qw( debug test_getter_setter );
#
# test constructor
#
my $code = 'testcode';
my $name = 'testname';
my $desc = 'testdesc';
my $value = 'testval';
my $attrib = Bio::EnsEMBL::Attribute->new
(-CODE => $code,
-NAME => $name,
-DESC => $desc,
-VALUE => $value);
ok($attrib->code() eq $code);
ok($attrib->name() eq $name);
ok($attrib->desc() eq $desc);
ok($attrib->value() eq $value);
#
# test getter/setters
#
ok(test_getter_setter($attrib, 'name', 'newname'));
ok(test_getter_setter($attrib, 'code', 'newcode'));
ok(test_getter_setter($attrib, 'desc', 'newdesc'));
ok(test_getter_setter($attrib, 'value', 'newvalue'));
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