view release on metacpan or  search on metacpan

t/data/compliant/long-names.nex  view on Meta::CPAN

#NEXUS

BEGIN TAXA;
      dimensions ntax=8;
      taxlabels A B C D E F SupercalifragilisticexpialidOTU H;  
END;

BEGIN CHARACTERS;
      dimensions nchar=5;
      charlabels SupercalifragilisticexpialLabel Two Three
      Four Five;
      format datatype=protein missing=? gap=-;
      matrix
A     --QNE
B     --QNE
C     TWO--
D     THREE
E     FORE-
F     FIVE-
SupercalifragilisticexpialidOTU     SIX--
H     SEVEN;
END;

BEGIN TREES;
       tree SupercalifragilisticexpialiTree = (((((((A:1,B:1):1,C:2):1,D:3):1,E:4):1,F:5):1,SupercalifragilisticexpialidOTU:6):1,H:7);
END;

t/data/compliant/really-long-names.nex  view on Meta::CPAN

#NEXUS

BEGIN TAXA;
      dimensions ntax=8;
      taxlabels A B C D E F OTUWithSpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticocholangiocholecystenterostomiesAlsoHippopotomonstrosesquipedalianSupercalifragilisticexpialidociousAntidisestablishmentarianPseudopseudohypoparathyroida...
END;

BEGIN CHARACTERS;
      dimensions nchar=5;
      charlabels SpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticoangiocholecystenterostomiesAndHippopotomonstrosesquipedalianSupercalifragilisticexpialidociousAntidisestablishmentarianPseudopseudohypoparathyroidalPneumoencephalographic...
      Four Five;
      format datatype=protein missing=? gap=-;
      matrix
A     --QNE
B     --QNE
C     TWO--
D     THREE
E     F-ORE
F     FIVE-
OTUWithSpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticocholangiocholecystenterostomiesAlsoHippopotomonstrosesquipedalianSupercalifragilisticexpialidociousAntidisestablishmentarianPseudopseudohypoparathyroidalPneumoencephalographyFromBe...
H     SEVEN;
END;

BEGIN TREES;
       tree SupercalifragilisticexpialidociousSpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticocholangiocholecystenterostomiesAndHippopotomonstrosesquipedalianAntidisestablishmentarianPseudopseudohypoparathyroidalPneumoencephalographicP...
END;

t/nexus_taxa-labels.t  view on Meta::CPAN

   $nexus      = new Bio::NEXUS( $file_name); 					    # create an object
};

is( $@,'', 'NEXUS object created and parsed');                # check that we got something

$tree_block = $nexus->get_block("trees");
$taxa_block = $nexus->get_block("Taxa");
$tree = $tree_block->get_tree();
is(@{$tree->get_nodes},15,"15 nodes defined: 8 otus + 7 root");
is(@{$tree->get_node_names},8,"8 OTUs defined ");
ok(grep(/OTUWithSpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticocholangiocholecystenterostomiesAlsoHippopotomonstrosesquipedalianSupercalifragilisticexpialidociousAntidisestablishmentarianPseudopseudohypoparathyroidalPneumoencephalogra...
ok(grep(/SpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticoangiocholecystenterostomiesAndHippopotomonstrosesquipedalianSupercalifragilisticexpialidociousAntidisestablishmentarianPseudopseudohypoparathyroidalPneumoencephalographicCharacte...
ok(grep(/OTUWithSpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticocholangiocholecystenterostomiesAlsoHippopotomonstrosesquipedalianSupercalifragilisticexpialidociousAntidisestablishmentarianPseudopseudohypoparathyroidalPneumoencephalogra...
is($nexus->get_block("Trees")->get_tree->get_name ,'SupercalifragilisticexpialidociousSpectrophotofluorometricallyPsychoneuroendocrinologicalHepaticocholangiocholecystenterostomiesAndHippopotomonstrosesquipedalianAntidisestablishmentarianPseudopseudo...