Commit | Line | Data |
d3fad399 |
1 | #!/usr/local/bin/perl |
2 | # vim: set ft=perl: |
3 | |
4 | use strict; |
5 | use Test::More tests => 2; |
6 | use Test::Differences; |
7 | use SQL::Translator; |
8 | |
9 | my $create = q| |
10 | CREATE TABLE random ( |
11 | id int auto_increment PRIMARY KEY, |
12 | foo varchar(255) not null default '', |
13 | updated timestamp |
14 | ); |
15 | |; |
16 | |
17 | my $yaml = q|--- #YAML:1.0 |
af53e4ec |
18 | schema: |
19 | random: |
20 | foo: |
21 | extra: {} |
22 | name: foo |
23 | order: 2 |
24 | size: |
25 | - 255 |
26 | type: varchar |
27 | id: |
28 | extra: {} |
29 | name: id |
30 | order: 1 |
31 | size: |
32 | - 11 |
33 | type: int |
34 | updated: |
35 | extra: {} |
36 | name: updated |
37 | order: 3 |
38 | size: |
39 | - 0 |
40 | type: timestamp |
d3fad399 |
41 | |; |
42 | |
43 | my $out; |
44 | my $tr = SQL::Translator->new( |
45 | parser => "MySQL", |
46 | producer => "YAML" |
47 | ); |
48 | |
49 | |
50 | ok($out = $tr->translate(\$create), 'Translate MySQL to YAML'); |
51 | eq_or_diff($out, $yaml, 'YAML matches expected'); |
52 | |