+
+
+# 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");
+}