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 | |
57 | use SQL::Translator; |
58 | |
59 | my $tr = SQL::Translator->new(parser => "MySQL"); |
60 | |
9398955f |
61 | #$data = $tr->translate("t/data/mysql/BGEP-RE-create.sql"); |
e2158c40 |
62 | |
63 | my @r = validate($data); |
64 | |
65 | printf "%s%s", $r[1], $r[0]? "" : "\n"; |