+
+
+#Test reading of custom attributes
+{
+ my $tempdir = tempdir( CLEANUP => 1 );
+
+ generate_sav_file ("$tempdir/in.sav", "$tempdir");
+
+ my $sf = PSPP::Reader->open ("$tempdir/in.sav");
+
+ my $dict = $sf->get_dict ();
+
+ my $var = $dict->get_var_by_name ("numeric");
+
+ my $attr = $var->get_attributes ();
+
+ open (MYFILE, ">$tempdir/out.txt");
+
+ foreach $k (sort (keys (%$attr)))
+ {
+ my $ll = $attr->{$k};
+ print MYFILE "$k =>";
+ print MYFILE map "$_\n", join ', ', @$ll;
+ }
+
+ close (MYFILE);
+
+ ok (compare ("$tempdir/out.txt", <<'EOF'), "Custom Attributes");
+$@Role =>0
+colour =>blue, pink, violet
+nationality =>foreign
+size =>large
+EOF
+}
+
+
+# Test of the get_case_cnt function
+{
+ my $tempdir = tempdir( CLEANUP => 1 );
+
+ generate_sav_file ("$tempdir/in.sav", "$tempdir");
+
+ my $sf = PSPP::Reader->open ("$tempdir/in.sav");
+
+ my $n = $sf->get_case_cnt ();
+
+ 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");
+}