Commit | Line | Data |
---|---|---|
e2158c40 | 1 | #!/usr/local/bin/perl |
2 | ||
3 | use SQL::Translator::Validator; | |
4 | my $data = { | |
5 | random => { | |
6 | type => undef, | |
44fcd0b5 | 7 | indices => [ ], |
e2158c40 | 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", | |
44fcd0b5 | 30 | indices => [ |
e2158c40 | 31 | { |
9398955f | 32 | name => undef, |
e2158c40 | 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 | ||
e2158c40 | 57 | my @r = validate($data); |
e2158c40 | 58 | printf "%s%s", $r[1], $r[0]? "" : "\n"; |