File: rt131354.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 (11 lines) | stat: -rw-r--r-- 348 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
# RT 131354, perl5.28 regression forgetting GMG
use 5.008;
use Set::Object qw/ set /;
use Test::More tests => 2;

my $a = set("a", "b", "c");
my $b = set();
#my @l = @$a; # using @l fixed the 5.28 bug
$added = $b->insert(@$a);
is($added, 3, "Set::Object->insert() [ returned # added ]");
is($b->size(), 3, "Set::Object->size() [ three members ]");