8 use SQL::Translator::Parser::xSV qw(parse);
13 my $tr = SQL::Translator->new;
14 my $data = q|One, Two, Three, Four, Five
16 And, So, am, I, "you crazy, crazy bastard"
19 my $val = parse($tr, $data);
21 # $val holds the processed data structure.
23 # The data structure should have one key:
24 is(scalar keys %{$val}, 1, "One table...");
26 # The data structure should have a single key, named sessions
27 ok(defined $val->{'table1'} => "...named 'table1'");
29 # $val->{'table1'} should have a single index (since we haven't
30 # defined an index, but have defined a primary key)
31 my $indices = $val->{'table1'}->{'indices'};
32 is(scalar @{$indices}, 1, "correct index number");
34 is($indices->[0]->{'type'}, 'primary_key', "correct index type");
35 is($indices->[0]->{'fields'}->[0], 'One', "correct index name");
37 # $val->{'table1'} should have two fields, id and a_sessionn
38 my $fields = $val->{'table1'}->{'fields'};
39 is(scalar keys %{$fields} => 5 => "5 fields in %fields");
41 is($fields->{'One'}->{'data_type'}, 'char',
42 "\$fields->{'One'}->{'data_type'} == 'char'");
44 is($fields->{'One'}->{'is_primary_key'} => 1,
45 "\$fields->{'One'}->{'is_primary_key'} == 1");
47 ok(! defined $fields->{'Two'}->{'is_primary_key'},
48 "\$fields->{'Two'}->{'is_primary_key'} == 0");
50 # Test that the order is being maintained by the internal order
52 my @order = sort { $fields->{$a}->{'order'}
54 $fields->{$b}->{'order'}
56 ok($order[0] eq 'One' && $order[4] eq 'Five', "Ordering OK");