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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/local/bin/perl
use Test;
BEGIN { plan tests => 15 }
########################################################################
package X;
use lib qw ( ./t );
use Test;
use Class::MakeMethods::Basic::Global ( hash => [ 'a', 'c' ] );
sub new { bless {}, shift; }
########################################################################
package main;
ok( 1 );
my $o = new X;
my $o2 = new X;
ok( ! scalar keys %{$o->a} );
ok( ! defined $o->a('foo') );
ok( $o->a('foo', 'baz') );
ok( $o->a('foo') eq 'baz' );
ok( $o->a('bar', 'baz2') );
{
my @l = $o->a([qw / foo bar / ]);
ok(
$l[0] eq 'baz' and $l[1] eq 'baz2'
);
}
ok( $o->a(qw / a b c d / ) );
{
my %h = %{ $o->a };
my @l = sort keys %h;
ok(
$l[0] eq 'a' and
$l[1] eq 'bar' and
$l[2] eq 'c' and
$l[3] eq 'foo'
);
}
{
my %h=('w' => 'x', 'y' => 'z');
ok(
my $r = $o->a(%h)
);
}
{
my @l = sort keys %{ $o->a };
ok(
$l[0] eq 'a' and
$l[1] eq 'bar' and
$l[2] eq 'c' and
$l[3] eq 'foo' and
$l[4] eq 'w' and
$l[5] eq 'y'
);
}
{
my @l = sort values %{ $o->a };
ok(
$l[0] eq 'b' and
$l[1] eq 'baz' and
$l[2] eq 'baz2' and
$l[3] eq 'd' and
$l[4] eq 'x' and
$l[5] eq 'z'
);
}
ok( ! defined $o->c('foo') );
ok( defined $o->c );
ok( $o->a eq $o2->a );
########################################################################
1;
|
