<commit_before>
use strict;
use warnings;

use Test::More tests=>7;

use_ok('SGN::Genefamily');

my $gf = SGN::Genefamily->new( files_dir => 'genefamily_data', 
			       dataset   => 'test', 
			       name      => 'family_0'
    );

is($gf->name(), "family_0", "name test");
is($gf->dataset(), "test", "dataset test");
is($gf->files_dir(), "genefamily_data", "files_dir test");
is($gf->get_path(), "genefamily_data/test", "get_path test");
my $aln = $gf->get_alignment();
like($aln, qr/KLSILKDV-----------NDKSCV/, "alignment test");

my $fasta = $gf->get_fasta();
$fasta =~ s/\n//g;
like($fasta, qr/KLSILKDVNDKSCV/, "fasta test");


<commit_msg>fixed genefamily.t test to run correctly under prove<commit_after>use strict;
use warnings;

use Test::More tests => 7;
use FindBin;
use File::Spec::Functions;

use_ok('SGN::Genefamily');

my $test_dir = catdir($FindBin::Bin,'genefamily_data');
my $gf = SGN::Genefamily->new( files_dir => $test_dir,
			       dataset   => 'test',
			       name      => 'family_0'
    );

is($gf->name(), "family_0", "name test");
is($gf->dataset(), "test", "dataset test");
is($gf->files_dir(), $test_dir, "files_dir test");
is($gf->get_path(), catdir($test_dir,'test'), "get_path test");
my $aln = $gf->get_alignment();
like($aln, qr/KLSILKDV-----------NDKSCV/, "alignment test");

my $fasta = $gf->get_fasta();
$fasta =~ s/\n//g;
like($fasta, qr/KLSILKDVNDKSCV/, "fasta test");



{'fraction_non_alphanumeric': 0.22842998585572843, 'fraction_numerical': 0.004243281471004243, 'mean_word_length': 4.339622641509434, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 25, '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': '5767921', 'n_tokens_mistral': 586, 'n_tokens_neox': 547, 'n_words': 114}