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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#!/usr/bin/env perl
# Copyright (C) 2008-2010, Sebastian Riedel.
use strict;
use warnings;
use Test::More tests => 39;
# Now that's a wave of destruction that's easy on the eyes.
use_ok('Mojo::Parameters');
# Basics with custom pair separator
my $params = Mojo::Parameters->new('foo=b%3Bar&baz=23');
my $params2 = Mojo::Parameters->new('x', 1, 'y', 2);
is($params->pair_separator, '&', 'right pair separator');
is($params->to_string, 'foo=b%3Bar&baz=23', 'right format');
is($params2->to_string, 'x=1&y=2', 'right format');
$params->pair_separator(';');
is($params->to_string, 'foo=b%3Bar;baz=23', 'right format');
is("$params", 'foo=b%3Bar;baz=23', 'right format');
# Append
is_deeply($params->params, ['foo', 'b;ar', 'baz', 23], 'right structure');
$params->append('a', 4, 'a', 5, 'b', 6, 'b', 7);
is($params->to_string, "foo=b%3Bar;baz=23;a=4;a=5;b=6;b=7", 'right format');
# Clone
my $clone = $params->clone;
is("$params", "$clone", 'equal results');
# Merge
$params->merge($params2);
is($params->to_string, 'foo=b%3Bar;baz=23;a=4;a=5;b=6;b=7;x=1;y=2',
'right format');
is($params2->to_string, 'x=1&y=2', 'right format');
# Param
is_deeply($params->param('foo'), 'b;ar', 'right structure');
is_deeply([$params->param('a')], [4, 5], 'right structure');
# Parse with ";" separator
$params->parse('q=1;w=2;e=3;e=4;r=6;t=7');
is($params->to_string, 'q=1;w=2;e=3;e=4;r=6;t=7', 'right format');
# Remove
$params->remove('r');
is($params->to_string, 'q=1;w=2;e=3;e=4;t=7', 'right format');
$params->remove('e');
is($params->to_string, 'q=1;w=2;t=7', 'right format');
# Hash
is_deeply($params->to_hash, {q => 1, w => 2, t => 7}, 'right structure');
# List names
is_deeply([$params->param], [qw/q t w/], 'right structure');
# Append
$params->append('a', 4, 'a', 5, 'b', 6, 'b', 7);
is_deeply(
$params->to_hash,
{a => [4, 5], b => [6, 7], q => 1, w => 2, t => 7},
'right structure'
);
# 0 value
$params = Mojo::Parameters->new(foo => 0);
is_deeply($params->param('foo'), 0, 'right structure');
is($params->to_string, 'foo=0', 'right format');
$params = Mojo::Parameters->new($params->to_string);
is_deeply($params->param('foo'), 0, 'right structure');
is($params->to_string, 'foo=0', 'right format');
# Reconstruction
$params = Mojo::Parameters->new('foo=bar&baz=23');
is("$params", 'foo=bar&baz=23', 'right format');
$params = Mojo::Parameters->new('foo=bar;baz=23');
is("$params", 'foo=bar;baz=23', 'right format');
# Undefined params
$params = Mojo::Parameters->new;
$params->append('c', undef);
$params->append(undef, 'c');
$params->append(undef, undef);
is($params->to_string, "c=&=c&=", 'right format');
is_deeply($params->to_hash, {c => '', '' => ['c', '']}, 'right structure');
$params->remove('c');
is($params->to_string, "=c&=", 'right format');
$params->remove(undef);
ok((not defined $params->to_string), 'empty');
# +
$params = Mojo::Parameters->new('foo=%2B');
is($params->param('foo'), '+', 'right value');
is_deeply($params->to_hash, {foo => '+'}, 'right structure');
$params->param('foo ' => 'a');
is($params->to_string, "foo=%2B&foo+=a", 'right format');
$params->remove('foo ');
is_deeply($params->to_hash, {foo => '+'}, 'right structure');
$params->append('1 2', '3+3');
is($params->param('1 2'), '3+3', 'right value');
is_deeply($params->to_hash, {foo => '+', '1 2' => '3+3'}, 'right structure');
# Array values
$params = Mojo::Parameters->new;
$params->append(foo => [qw/bar baz/], a => 'b', bar => [qw/bas test/]);
is_deeply([$params->param('foo')], [qw/bar baz/], 'right values');
is($params->param('a'), 'b', 'right value');
is_deeply([$params->param('bar')], [qw/bas test/], 'right values');
is_deeply(
$params->to_hash,
{foo => ['bar', 'baz'], a => 'b', bar => ['bas', 'test']},
'right structure'
);
|
