use strict;
use Test::More 'no_plan';
use Bio::Phylo::IO 'unparse';
use Bio::Phylo::Matrices::Matrix;

{
    my $matrix = Bio::Phylo::Matrices::Matrix->new(
        '-type'   => 'standard',
        '-matrix' => [
            [qw'taxon_1 ? 1 1 1 1'],
            [qw'taxon_2 ? ? 2 1 1'],
            [qw'taxon_3 ? ? 2 2 2'],
            [qw'taxon_4 ? ? 2 2 2'],
            [qw'taxon_5 ? ? ? 2 ?'],
        ],
    );
    my $hennig86 = unparse(
        '-format' => 'hennig86',
        '-phylo'  => $matrix,
    );
    ok($hennig86);
}

{
    my $matrix = Bio::Phylo::Matrices::Matrix->new(
        '-type'   => 'dna',
        '-matrix' => [
            [qw'taxon_1 a c g g t'],
            [qw'taxon_2 a c d b y'],
            [qw'taxon_3 n c a g t'],
            [qw'taxon_4 x g a t t'],
            [qw'taxon_5 y c a g y'],
        ],
    );
    my $hennig86 = unparse(
        '-format' => 'hennig86',
        '-phylo'  => $matrix,
    );
    ok($hennig86);
}

{
    my $matrix = Bio::Phylo::Matrices::Matrix->new(
        '-type'   => 'continuous',
        '-matrix' => [
            [qw'taxon_1 0.234 0.456 0.567'],
            [qw'taxon_2 0.987 0.876 0.654'],
            [qw'taxon_3 0.123 0.345 0.458'],
            [qw'taxon_4 0.923 0.983 0.873'],
            [qw'taxon_5 0.734 0.235 0.456'],
        ],
    );
    my $hennig86 = unparse(
        '-format' => 'hennig86',
        '-phylo'  => $matrix,
    );
    ok($hennig86);
}