<commit_before>#!/usr/local/ensembl/bin/perl -w

#
# Test script for Bio::EnsEMBL::Compara::GenomicAlignGroup module
#
# Written by <NAME> (<EMAIL>)
#
# Copyright (c) 2004. EnsEMBL Team
#
# You may distribute this module under the same terms as perl itself

=head1 NAME

genomicAlignBlock.t

=head1 INSTALLATION

*_*_*_*_*_*_*_*_*_*_*_*_*_*_   W A R N I N G  _*_*_*_*_*_*_*_*_*_*_*_*_*_*

YOU MUST EDIT THE <MultiTestDB.conf> FILE BEFORE USING THIS TEST SCRIPT!!!

*_*_*_*_*_*_*_*_*_*_*_*_*_*_   W A R N I N G  _*_*_*_*_*_*_*_*_*_*_*_*_*_*

Please, read the README file for instructions.

=head1 SYNOPSIS

For running this test only:
perl -w ../../../ensembl-test/scripts/runtests.pl genomicAlignGroup.t

For running all the test scripts:
perl -w ../../../ensembl-test/scripts/runtests.pl

For running all the test scripts and cleaning the database afterwards:
perl -w ../../../ensembl-test/scripts/runtests.pl -c

=head1 DESCRIPTION

This script uses a small compara database build following the specifitions given in the MultiTestDB.conf file.

This script (as far as possible) tests all the methods defined in the
Bio::EnsEMBL::Compara::GenomicAlignGroup module.

This script includes 12 tests.

=head1 AUTHOR

<NAME> (<EMAIL>)

=head1 COPYRIGHT

Copyright (c) 2004. EnsEMBL Team

You may distribute this module under the same terms as perl itself

=head1 CONTACT

This modules is part of the EnsEMBL project (http://www.ensembl.org)

Questions can be posted to the ensembl-dev mailing list:
<EMAIL>

=cut



use strict;

BEGIN { $| = 1;  
    use Test;
    plan tests => 13;
}

use Bio::EnsEMBL::Utils::Exception qw (warning verbose);
use Bio::EnsEMBL::Test::MultiTestDB;
use Bio::EnsEMBL::Test::TestUtils;

use Bio::EnsEMBL::Compara::GenomicAlignGroup;

# switch off the debug prints 
our $verbose = 0;

#####################################################################
## Connect to the test database using the MultiTestDB.conf file

my $multi = Bio::EnsEMBL::Test::MultiTestDB->new( "multi" );
my $homo_sapiens = Bio::EnsEMBL::Test::MultiTestDB->new("homo_sapiens");
my $mus_musculus = Bio::EnsEMBL::Test::MultiTestDB->new("mus_musculus");
my $rattus_norvegicus = Bio::EnsEMBL::Test::MultiTestDB->new("rattus_norvegicus");

my $compara_db = $multi->get_DBAdaptor( "compara" );

my $genomic_align_group;
my $genomic_align_group_adaptor = $compara_db->get_GenomicAlignGroupAdaptor;
my $genomic_align_adaptor = $compara_db->get_GenomicAlignAdaptor;

## Data extracted from the database and used to check and test the API
my $genomic_align_group_id = 3597147;
my $genomic_align_group_type = "default";
my $genomic_align_1 = $genomic_align_adaptor->fetch_by_dbID(9505792);
my $genomic_align_2 = $genomic_align_adaptor->fetch_by_dbID(9505794);
my $genomic_align_array = [$genomic_align_1, $genomic_align_2];

##
#####################################################################
  
# 
# 1
# 
debug("Test Bio::EnsEMBL::Compara::GenomicAlignGroup::new(void) method");
  $genomic_align_group = new Bio::EnsEMBL::Compara::GenomicAlignGroup();<commit_msg>Update data in order to match new test DB<commit_after>#!/usr/local/ensembl/bin/perl -w

#
# Test script for Bio::EnsEMBL::Compara::GenomicAlignGroup module
#
# Written by <NAME> (<EMAIL>)
#
# Copyright (c) 2004. EnsEMBL Team
#
# You may distribute this module under the same terms as perl itself

=head1 NAME

genomicAlignBlock.t

=head1 INSTALLATION

*_*_*_*_*_*_*_*_*_*_*_*_*_*_   W A R N I N G  _*_*_*_*_*_*_*_*_*_*_*_*_*_*

YOU MUST EDIT THE <MultiTestDB.conf> FILE BEFORE USING THIS TEST SCRIPT!!!

*_*_*_*_*_*_*_*_*_*_*_*_*_*_   W A R N I N G  _*_*_*_*_*_*_*_*_*_*_*_*_*_*

Please, read the README file for instructions.

=head1 SYNOPSIS

For running this test only:
perl -w ../../../ensembl-test/scripts/runtests.pl genomicAlignGroup.t

For running all the test scripts:
perl -w ../../../ensembl-test/scripts/runtests.pl

For running all the test scripts and cleaning the database afterwards:
perl -w ../../../ensembl-test/scripts/runtests.pl -c

=head1 DESCRIPTION

This script uses a small compara database build following the specifitions given in the MultiTestDB.conf file.

This script (as far as possible) tests all the methods defined in the
Bio::EnsEMBL::Compara::GenomicAlignGroup module.

This script includes 12 tests.

=head1 AUTHOR

<NAME> (<EMAIL>)

=head1 COPYRIGHT

Copyright (c) 2004. EnsEMBL Team

You may distribute this module under the same terms as perl itself

=head1 CONTACT

This modules is part of the EnsEMBL project (http://www.ensembl.org)

Questions can be posted to the ensembl-dev mailing list:
<EMAIL>

=cut



use strict;

BEGIN { $| = 1;  
    use Test;
    plan tests => 13;
}

use Bio::EnsEMBL::Utils::Exception qw (warning verbose);
use Bio::EnsEMBL::Test::MultiTestDB;
use Bio::EnsEMBL::Test::TestUtils;

use Bio::EnsEMBL::Compara::GenomicAlignGroup;

# switch off the debug prints 
our $verbose = 0;

#####################################################################
## Connect to the test database using the MultiTestDB.conf file

my $multi = Bio::EnsEMBL::Test::MultiTestDB->new( "multi" );
my $homo_sapiens = Bio::EnsEMBL::Test::MultiTestDB->new("homo_sapiens");
my $mus_musculus = Bio::EnsEMBL::Test::MultiTestDB->new("mus_musculus");
my $rattus_norvegicus = Bio::EnsEMBL::Test::MultiTestDB->new("rattus_norvegicus");

my $compara_db = $multi->get_DBAdaptor( "compara" );

my $genomic_align_group;
my $genomic_align_group_adaptor = $compara_db->get_GenomicAlignGroupAdaptor;
my $genomic_align_adaptor = $compara_db->get_GenomicAlignAdaptor;

## Data extracted from the database and used to check and test the API
my $genomic_align_group_id = 251834;
my $genomic_align_group_type = "default";
my $genomic_align_1 = $genomic_align_adaptor->fetch_by_dbID(10292464);
my $genomic_align_2 = $genomic_align_adaptor->fetch_by_dbID(10292450);
my $genomic_align_array = [$genomic_align_1, $genomic_align_2];

##
#####################################################################
  
# 
# 1
# 
debug("Test Bio::EnsEMBL::Compara::GenomicAlignGroup::new(void) method");
  $genomic_align_group = new Bio::EnsEMBL::Compara::GenomicAlignGroup();
{'fraction_non_alphanumeric': 0.1695687550854353, 'fraction_numerical': 0.015459723352318959, 'mean_word_length': 5.644324324324324, 'pattern_counts': {'":': 0, '<': 15, '<?xml version=': 0, '>': 35, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, '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': '4985370', 'n_tokens_mistral': 2288, 'n_tokens_neox': 2118, 'n_words': 569}