t/06xsv.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3
   4 #
   5 # Tests for xSV parser
   6 #
   7 use strict;
   8 use SQL::Translator;
   9 use SQL::Translator::Parser::xSV qw(parse);
  10 use Test::More tests => 13;
  11
  12 my $tr = SQL::Translator->new;
  13 my $data = q|One, Two, Three, Four, Five, Six, Seven
  14 I, Am, Some, Data, Yo, -10, .04
  15 And, So, am, I, "you crazy, crazy bastard", 500982, 1.1
  16 |;
  17
  18 $tr->parser_args( trim_fields => 1, scan_fields => 1 );
  19 my $val = parse($tr, $data);
  20
  21 # $val holds the processed data structure.
  22
  23 # The data structure should have one key:
  24 is(scalar keys %{$val}, 1, "One table...");
  25
  26 # The data structure should have a single key, named sessions
  27 ok(defined $val->{'table1'} => "...named 'table1'");
  28
  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");
  33
  34 is($indices->[0]->{'type'}, 'primary_key', "correct index type");
  35 is($indices->[0]->{'fields'}->[0], 'One', "correct index name");
  36
  37 # $val->{'table1'} should have two fields, id and a_sessionn
  38 my $fields = $val->{'table1'}->{'fields'};
  39 is(scalar keys %{$fields} => 7 => "7 fields in %fields");
  40
  41 is($fields->{'One'}->{'data_type'}, 'char',
  42     "\$fields->{'One'}->{'data_type'} == 'char'");
  43
  44 my $size = join(',', @{ $fields->{'One'}{'size'} } );
  45 is( $size, 3, "\$fields->{'One'}->{'size'} == 3");
  46
  47 is($fields->{'One'}->{'is_primary_key'} => 1,
  48     "\$fields->{'One'}->{'is_primary_key'} == 1");
  49
  50 ok(! defined $fields->{'Two'}->{'is_primary_key'},
  51     "\$fields->{'Two'}->{'is_primary_key'} == 0");
  52
  53 is($fields->{'Six'}->{'data_type'}, 'integer',
  54     "\$fields->{'Six'}->{'data_type'} == 'integer'");
  55
  56 is($fields->{'Seven'}->{'data_type'}, 'float',
  57     "\$fields->{'Seven'}->{'data_type'} == 'float'");
  58
  59 # Test that the order is being maintained by the internal order
  60 # data element
  61 my @order = sort { $fields->{$a}->{'order'}
  62                              <=>
  63                    $fields->{$b}->{'order'}
  64                  } keys %{$fields};
  65 ok($order[0] eq 'One' && $order[4] eq 'Five', "Ordering OK");