X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2Ft%2FPspp.t;h=b8b76d3c35d43b604deea796b4b964a35b9bb5d6;hb=20934a68593edbd52577f1ba0ea93c74eb018af5;hp=05ba24119a7cc382d97f68c8bfaaa5a3b3414926;hpb=2433a0bf2a07042d7a5b70c36196c498b0393f7f;p=pspp

diff --git a/perl-module/t/Pspp.t b/perl-module/t/Pspp.t
index 05ba24119a..b8b76d3c35 100644
--- a/perl-module/t/Pspp.t
+++ b/perl-module/t/Pspp.t
@@ -25,7 +25,7 @@
 
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More tests => 38;
+use Test::More tests => 37;
 use Text::Diff;
 use File::Temp qw/ tempfile tempdir /;
 use Memory::Usage;
@@ -624,48 +624,3 @@ EOF
 
  ok ($n == 5, "Case count");
 }
-
-
-# Check for a leak in append_case
-{
-    my $record_count = 10_000;
-    my $var_count = 10;
-
-    # Record amount of memory used by current process
-    my $mu = Memory::Usage->new();
-
-    my $dict = PSPP::Dict->new();
-    foreach my $i (1..$var_count)
-    {
-        my $var = PSPP::Var->new ($dict, "var$i", fmt => 12, width => 2);
-        $var->set_label ("var $i");
-    }
-
-    my $sysfile = PSPP::Sysfile->new ('testfile.sav', $dict, compress => 1);
-
-    $mu->record('');
-
-    foreach my $i (1..$record_count)
-    {
-        my @data = map { int(rand() * 100) } (1..$var_count);
-        $sysfile->append_case (\@data);
-    }
-
-    $mu->record('');
-
-    $sysfile->close;
-
-    my @memstate = @{$mu->state()};
-
-    my @array0 = @{$memstate[0]};
-    my @array1 = @{$memstate[1]};
-
-    # ignore the timestamps
-    $array0[0] = 0;
-    $array1[0] = 0;
-
-    my $result0 = join(",",@array0);
-    my $result1 = join(",",@array1);
-
-    ok (($result0 eq $result1), "Memory management of append_case");
-}