Las Funciones is_deeply e is

A continuación leeemos cada fichero y comprobamos que ambas ReadKnap y Knap01DP dan los resultados esperados.

La función is_deeply nos dice si dos estructuras de datos son equivalentes. Véase perldoc Test::More para mas información sobre el módulo Test::More y las funciones is_deeply e is .

24  my $i = 0;
25  my ($M, $w, $p);
26  my @f;
27
28  # Now 2*@inputfiles = 8 tests
29  for my $file (@inputfiles) {
30    ($M, $w, $p) = ReadKnap((-e "t/$file")?"t/$file":$file);
31    is_deeply($knapsackproblem->[$i], [$M, $w, $p], "ReadKnap $file");
32    my $N = @$w;
33    @f = Knap01DP($M, $w, $p);
34    is($sol[$i++], $f[$N-1][$M], "Knap01DP $file");
35  }

Para mas funciones de Comparación Profunda véase el módulo Test::Deep.