projects
/
dbsrgits/SQL-Translator.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6c1f326be91f91cc1eb164ce0c489d4f905596a4
[dbsrgits/SQL-Translator.git]
/
bin
/
validator_test.pl
1
#!/usr/local/bin/perl
2
3
use SQL::Translator::Validator;
4
my $data = {
5
random => {
6
type => undef,
7
indices => [ ],
8
fields => {
9
id => {
10
name => "id",
11
data_type => "int",
12
size => 11,
13
order => 1,
14
null => 0,
15
default => 1
16
},
17
seed => {
18
name => "seed",
19
data_type => "char",
20
size => 32,
21
order => 2,
22
null => 0,
23
default => 1
24
},
25
26
}
27
},
28
session => {
29
type => "HEAP",
30
indices => [
31
{
32
name => undef,
33
primary_key => 1,
34
fields => [ "id" ],
35
}
36
],
37
fields => {
38
id => {
39
name => "id",
40
data_type => "int",
41
size => 11,
42
order => 2,
43
null => 0,
44
default => 1
45
},
46
foo => {
47
name => "foo",
48
data_type => "char",
49
size => 255,
50
order => 1,
51
null => 1
52
},
53
}
54
}
55
};
56
57
my @r = validate($data);
58
printf "%s%s", $r[1], $r[0]? "" : "\n";