<commit_before>#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';

BEGIN{ use_ok('Bio::Phylo::PhyLoTA::Service'); }

my $service = new_ok ('Bio::Phylo::PhyLoTA::Service');

# test retreiving Trichosanthes cucumerina from database
my $name = '<NAME>';
my @nodes = $service->search_node( { taxon_name => $name } )->all;
 
my $node = shift @nodes;
my $id = $node->get_id();
is ( $id, 50543, "found $name");<commit_msg>added test for finding specific taxon in database<commit_after>#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';

BEGIN{ use_ok('Bio::Phylo::PhyLoTA::Service'); }

my $service = new_ok ('Bio::Phylo::PhyLoTA::Service');

# test retreiving Trichosanthes cucumerina from database
my $name = '<NAME>';
my @nodes = $service->search_node( { taxon_name => $name } )->all;
 
my $node = shift @nodes;
my $id = $node->get_id();
is ( $id, 50543, "found $name");

# test searching for smilodon
$name = '<NAME>';
@nodes = $service->search_node( { taxon_name => $name } )->all;
ok ( scalar @nodes > 0, "found at least one node for $name");

# test searching for Echinochloa crus-galli
$name = "<NAME>";
@nodes = $service->search_node( { taxon_name => $name } )->all;
ok ( scalar @nodes > 0, "found at least one node for $name");
{'fraction_non_alphanumeric': 0.18591772151898733, 'fraction_numerical': 0.00949367088607595, 'mean_word_length': 5.325, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 23, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6759212', 'n_tokens_mistral': 489, 'n_tokens_neox': 461, 'n_words': 133}