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
89
90
91
92
93
|
#!perl -w
use strict;
use Test::More tests => 30;
BEGIN { use_ok('Params::CallbackRequest') }
my $key = 'myCallbackTester';
my $cbs = [];
##############################################################################
# Set up callback functions.
##############################################################################
# Priority callback.
sub priority {
my $cb = shift;
isa_ok( $cb, 'Params::Callback');
my $params = $cb->params;
my $val = $cb->value;
$val = $cb->priority if $val eq 'def';
$params->{result} .= " $val";
}
sub chk_priority {
my $cb = shift;
isa_ok( $cb, 'Params::Callback');
my $val = $cb->value;
is( $cb->priority, $val, "Check priority value '$val'" );
}
sub def_priority {
my $cb = shift;
isa_ok( $cb, 'Params::Callback');
is( $cb->priority, 5, "Check default priority" );
}
push @$cbs, { pkg_key => $key,
cb_key => 'priority',
cb => \&priority,
priority => 6
},
{ pkg_key => $key,
cb_key => 'chk_priority',
cb => \&chk_priority,
priority => 2
},
{ pkg_key => $key,
cb_key => 'def_priority',
cb => \&def_priority,
};
##############################################################################
# Construct the CallbackRequest object.
##############################################################################
ok( my $cb_request = Params::CallbackRequest->new( callbacks => $cbs),
"Construct CBExec object" );
isa_ok($cb_request, 'Params::CallbackRequest' );
##############################################################################
# Test the callbacks themselves.
##############################################################################
# Test the priority ordering.
my %params = ( "$key|priority_cb0" => 0,
"$key|priority_cb2" => 2,
"$key|priority_cb9" => 9,
"$key|priority_cb7" => 7,
"$key|priority_cb1" => 1,
"$key|priority_cb4" => 4,
"$key|priority_cb" => 'def' );
ok( $cb_request->request(\%params), "Execute priority callback" );
is( $params{result}, " 0 1 2 4 6 7 9", "Check priority result" );
##############################################################################
# Test the default priority.
%params = ( "$key|def_priority_cb" => 1);
ok( $cb_request->request(\%params), "Execute default priority callback" );
##############################################################################
# Check various priority values.
%params = ( "$key|chk_priority_cb0" => 0,
"$key|chk_priority_cb2" => 2,
"$key|chk_priority_cb9" => 9,
"$key|chk_priority_cb7" => 7,
"$key|chk_priority_cb1" => 1,
"$key|chk_priority_cb4" => 4,
"$key|chk_priority_cb" => 2 );
ok( $cb_request->request(\%params), "Execute priority values" );
1;
__END__
|
