### ----------------------------------------------------
### -- BioPerl6
### -- Licenses: Artistic-2.0
### -- Authors: git:cjfields
### -- File: t/Role/Describable.t
### ----------------------------------------------------
use v6;

use lib './lib';

use Test;

use Bio::Role::Describable;

class Desc does Bio::Role::Describable {  };

my $s = Desc.new(display-name => <ABCD1234>,
                 description => 'Hello, my name is Mr. Ed');

is($s.display-name, 'ABCD1234', 'test display_name');
is($s.description, 'Hello, my name is Mr. Ed', 'test description');
ok($s ~~ Bio::Role::Describable,'Has a Bio::Role::Describe');

$s.display-name = 'WXYZ4567';
$s.description = 'Goodbye, Mr. Bond';

is($s.display-name, 'WXYZ4567');

# testing aliases out
is($s.description, 'Goodbye, Mr. Bond');

#is($s.desc, 'Goodbye, Mr. Bond');  # TODO: aliases don't work yet
#$s.desc     = 'Frankly, my dear...'; # TODO: set via alias
#is($s.description, 'Frankly, my dear...');

done-testing();


