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
|
#!/usr/bin/perl -w
# -*- perl -*-
#
# Author: Slaven Rezic
#
# This test is just for older perls (5.004, 5.005)
# because the other test scripts in this suite have
# too large prerequisites (Test::More, \Q in regexpes...)
use strict;
use Kwalify qw(validate);
use Test;
plan tests => 2;
{
my $schema06_pl =
{
'sequence' => [
{
'mapping' => {
'email' => {
'type' => 'str'
},
'groups' => {
'sequence' => [
{
'unique' => 'yes',
'type' => 'str'
}
],
'type' => 'seq'
},
'name' => {
'unique' => 'yes',
'required' => 'yes',
'type' => 'str'
}
},
'required' => 'yes',
'type' => 'map'
}
],
'type' => 'seq'
};
my $document06a_pl =
[
{
'email' => 'admin@mail.com',
'groups' => [
'users',
'foo',
'admin'
],
'name' => 'foo'
},
{
'email' => 'admin@mail.com',
'groups' => [
'users',
'admin'
],
'name' => 'bar'
},
{
'email' => 'baz@mail.com',
'groups' => [
'users'
],
'name' => 'baz'
}
];
my $document06b_pl =
[
{
'email' => 'admin@mail.com',
'groups' => [
'foo',
'users',
'admin',
'foo'
],
'name' => 'foo'
},
{
'email' => 'admin@mail.com',
'groups' => [
'admin',
'users'
],
'name' => 'bar'
},
{
'email' => 'baz@mail.com',
'groups' => [
'users'
],
'name' => 'bar'
}
];
ok(validate($schema06_pl, $document06a_pl));
eval { validate($schema06_pl, $document06b_pl) };
ok($@);
}
__END__
|
