File: each.t

package info (click to toggle)
libset-object-perl 1.42-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 620 kB
  • sloc: perl: 1,069; makefile: 14
file content (32 lines) | stat: -rw-r--r-- 380 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
use Test::More skip_all => "TO-DO";



print "1..2\n";

my @a = ("a".."e",0);
my $a = Set::Object->new(@a);

my $e;
my %e;

while (defined($e = $a->each)) {
    print "# e = $e\n";
    $e{$e}++;
}

print "not " if defined $e;
print "ok 1\n";

my $n;

for my $e (@a) {
    $n++ if exists $e{$e} && $e{$e} == 1;
}

print "not " unless $n == @a && keys %e == @a;
print "ok 2\n";