Experimental filters

[dbsrgits/SQL-Translator.git] / t / 38-filter-names.t

#!/usr/bin/perl -w
# vim:filetype=perl

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

# SQL::Translator::Filter::HelloWorld - Test filter in a package
#=============================================================================
package SQL::Translator::Filter::HelloWorld;

use strict;
use vars qw/$VERSION/;
$VERSION=0.1;

sub filter {
    my ($schema,$args) = (shift,shift);

    my $greeting = $args->{greeting} || "Hello";
    $schema->add_table(
        name => "HelloWorld",
    );
}

# Hack to allow sqlt to see our module as it wasn't loaded from a .pm
$INC{'SQL/Translator/Filter/HelloWorld.pm'}
    = 'lib/SQL/Translator/Filter/HelloWorld.pm';

#=============================================================================

package main;

use strict;
use Test::More;
use Test::Exception;
use Test::SQL::Translator qw(maybe_plan);

use Data::Dumper;

BEGIN {
    maybe_plan(4, 'YAML', 'Test::Differences')
}
use Test::Differences;
use SQL::Translator;

my $in_yaml = qq{---
schema:
  tables:
    Person:
      name: Person
      fields:
        first_name:
          data_type: foovar
          name: first_name
};

#    helloworld:
#      comments: ''
#      constraints: []
#      fields: {}
#      indices: []
#      name: HelloWorld
#      options: []
#      order: 2
my $ans_yaml = qq{---
schema:
  procedures: {}
  tables:
    person:
      comments: ''
      constraints: []
      fields:
        First_name:
          data_type: foovar
          default_value: ~
          extra: {}
          is_nullable: 1
          is_primary_key: 0
          is_unique: 0
          name: First_name
          order: 1
          size:
            - 0
      indices: []
      name: person
      options: []
      order: 1
  triggers: {}
  views: {}
translator:
  add_drop_table: 0
  filename: ~
  no_comments: 0
  parser_args: {}
  parser_type: SQL::Translator::Parser::YAML
  producer_args: {}
  producer_type: SQL::Translator::Producer::YAML
  show_warnings: 1
  trace: 0
  version: 0.07
};

# Parse the test XML schema
my $obj;
$obj = SQL::Translator->new(
    debug         => 0,
    show_warnings => 1,
    from          => "YAML",
    to            => "YAML",
    data          => $in_yaml,
    filters => [
        # Filter from SQL::Translator::Filter::*
        [ 'Names', { 
            tables => 'lc',
            fields => 'ucfirst',
        } ],
    ],

) or die "Failed to create translator object: ".SQL::Translator->error;

#sub translate_ok {
#    my ($sqlt,$ans_yaml,$name) = @_;
#    $name ||= "";
#
#    my $out = eval { $sqlt->translate };
#    fail( $sqlt->error ) if $sqlt->error;
#    fail( "No output" ) unless $out;
#    eq_or_diff $out, $ans_yaml           ,"Translated $name";
#}

my $out;
lives_ok { $out = $obj->translate; }  "Translate ran";
is $obj->error, ''                   ,"No errors";
ok $out ne ""                        ,"Produced something!";
eq_or_diff $out, $ans_yaml           ,"Output looks right";