Algorithm-Munkres
view release on metacpan or search on metacpan
t/DoubleInvoke.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# The following are among the tests run by this script:
# This test case checks the module with normal input values, i.e. without fractions/negative values/zeros etc.
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 11;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/DoubleInvoke.t view on Meta::CPAN
[ 7, 2, 8, 1, 12],
);
my @soln = (3,4,2,1,0);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
@mat = (
[2,4,7],
[3,9,5],
[8,2,9],
);
@soln = (0,2,1);
@assign_out = ();
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
#eq_array(\@assign_out,\@out,"Are these equal ?");
__END__
t/Fractions.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# This test cases check for fractional input values.
# The following are among the tests run by this script:
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 5;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Fractions.t view on Meta::CPAN
[8.32, 2.0, 9.99],
);
my @soln = (0,2,1);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
t/Horz_Matrix.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# This test cases check for horizontal input matrix i.e. 1xM matrix.
# The following are among the tests run by this script:
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 11;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
[11, 4, 90, 4, 3, 1, 6, 77, 43],
);
my @soln = (5,0,1,2,3,4,6,7,8);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
t/Ill_Formed.t view on Meta::CPAN
my @mat = (
[1,2,3],
[1,2],
);
my @assign_out = ();
my $soln_out = "Please check the input matrix.\nThe input matrix is not a well-formed matrix!\nThe input matrix has to be rectangular or square matrix.\n";
eval {assign(\@mat,\@assign_out)};
#Compare the lengths of the Solution array and the Output array.
is($soln_out, $@, 'Compare the returned error message.');
__END__
t/LargeMatrix.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# The following are among the tests run by this script:
# This test case checks the module performance for a matrix of size 25x25
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 27;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/LargeMatrix.t view on Meta::CPAN
[ 9, 7, 15.5, 1, 6, 11.4, 1, 90, 10, 45, 11.4, 1, 90, 10, 45, 11.4, 1, 90, 10, 45, 11.4, 1, 90, 10, 45,],
);
my @soln = (1,0,3,5,2,6,7,4,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
t/Negative.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# The following are among the tests run by this script:
# This test case checks the module for negative input values.
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 13;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Negative.t view on Meta::CPAN
[-8, -2, -9],
);
my @soln = (2,1,0);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
@mat = (
[-2, -4, 7],
[-3, 9, -5],
[8, -2, 9],
);
@soln = (0,2,1);
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
@mat = (
[-2, -4, 0],
[0, 9, -5],
[8, 0, 9],
);
@soln = (0,2,1);
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
#eq_array(\@assign_out,\@out,"Are these equal ?");
__END__
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# The following are among the tests run by this script:
# This test case checks the module with normal input values, i.e. without fractions/negative values/zeros etc.
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 11;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
[8,2,9],
);
my @soln = (0,2,1);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
@mat = (
[ 12, 3, 7, 4, 10],
[ 5, 10, 6, 2, 4],
[ 8, 5, 1, 4, 9],
[ 15, 2, 7, 8, 10],
[ 7, 2, 8, 1, 12],
);
@soln = (3,4,2,1,0);
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
#eq_array(\@assign_out,\@out,"Are these equal ?");
__END__
t/Obvious.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# The following are among the tests run by this script:
# This test case checks the module with input arrays which have very straight forward solutions.
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 9;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Obvious.t view on Meta::CPAN
[10,10, 1],
);
my @soln = (0,1,2);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
@mat = (
[1, 1, 2],
[1, 1, 1],
[3, 1, 1],
);
@soln = (0,1,2);
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
t/Rect_Matrix1.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# This test cases check for rectangular input matrix i.e. MxN matrix.
# The following are among the tests run by this script:
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 7;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Rect_Matrix1.t view on Meta::CPAN
[23, 1, 2, 56, 4],
);
my @soln = (3,1,0,2,4);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
t/Rect_Matrix2.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# This test cases check for rectangular input matrix i.e. MxN matrix.
# The following are among the tests run by this script:
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 7;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Rect_Matrix2.t view on Meta::CPAN
[12,56],
);
my @soln = (1,2,0,3,4);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
t/Rect_Unit.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# This test cases check for rectangular input matrix i.e. MxN matrix.
# The following are among the tests run by this script:
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 7;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Rect_Unit.t view on Meta::CPAN
[1],
);
my @soln = (0,1,2,3,4);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# The following are among the tests run by this script:
# This test case checks the module for unit input matrix and matrix with all zeros.
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 9;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
[1,1,1],
);
my @soln = (0,1,2);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
@mat = (
[0, 0, 0],
[0, 0, 0],
[0, 0, 0],
);
@soln = (0,1,2);
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
#eq_array(\@assign_out,\@out,"Are these equal ?");
__END__
t/Vert_Matrix.t view on Meta::CPAN
# Anagha Kulkarni, University of Minnesota Duluth
# kulka020@d.umn.edu
#
# Ted Pedersen, University of Minnesota Duluth
# tpederse@d.umn.edu
# A script to run tests on the Algorithm::Mukres module.
# This test cases check for vertical input matrix i.e. Mx1 matrix.
# The following are among the tests run by this script:
# 1. Try loading the Algorithm::Munkres i.e. is it added to the @INC variable
# 2. Compare the lengths of the Solution array and the Output array.
# 3. Compare each element of the Solution array and the Output array.
use strict;
use warnings;
use Test::More tests => 11;
BEGIN { use_ok('Algorithm::Munkres') };
my @mat = (
t/Vert_Matrix.t view on Meta::CPAN
[ 43],
);
my @soln = (1,2,3,4,5,0,6,7,8);
my @assign_out = ();
my $i = 0;
assign(\@mat,\@assign_out);
#Compare the lengths of the Solution array and the Output array.
is($#soln, $#assign_out, 'Compare the lengths of the Solution array and the Output array.');
#Compare each element of the Solution array and the Output array.
for($i = 0; $i <= $#assign_out; $i++)
{
is($soln[$i], $assign_out[$i], "Compare $i element of the Solution array and the Output array")
}
__END__
( run in 0.336 second using v1.01-cache-2.11-cpan-65fba6d93b7 )