-sub check {
- for (0 .. 4) { return 0 unless $c[$_] == $x[$_]; }
- return 1;
-}
-
-my $i = -1;
-my $wiz = wizard get => sub { ++$c[0] },
- set => sub { ++$c[1] },
- len => sub { ++$c[2] },
- clear => sub { ++$c[3] },
- free => sub { ++$c[4] };
-ok(check(), 'scalar : create wizard');