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
|
#!/usr/bin/perl
use Test;
BEGIN { plan tests => 9 }
package X;
use Class::MakeMethods::Template::Hash (
new => 'new',
'array --get_set_ref' => 'foo'
);
package main;
my $o = X->new;
ok( 1 ); #1
ok( ! scalar @{$o->foo} ); #2
ok( $o->foo(123, 456) ); #3
ok( scalar( @a = $o->foo ) ); #4
ok( scalar(@a) == 2 and $o->foo->[1] == 456 ); #5
ok( ! scalar( @a = $o->foo([]) ) ); #6
ok( ! scalar @{$o->foo} ); #7
ok( $o->foo(['b', 'c', 'd']) ); #8
ok( scalar( @a = $o->foo) == 3 and $o->foo->[1] eq 'c' ); #9
exit 0;
|
