#!/usr/bin/perl
# vim: set ft=perl:
use strict;
use SQL::Translator;
use Test::More tests => 25;
my ($tr, $ret);
my %format_X_name = (
format_table_name => sub { "table_$_[0]" },
format_package_name => sub { "package_$_[0]" },
format_fk_name => sub { "fk_$_[0]" },
format_pk_name => sub { "pk_$_[0]" },
);
ok($tr = SQL::Translator->new);
is(($ret = $tr->format_table_name("foo")), "foo",
'$tr->format_table_name("foo") == "foo"');
is(($ret = $tr->format_package_name("foo")), "foo",
'$tr->format_package_name("foo") == "foo"');
is(($ret = $tr->format_fk_name("foo")), "foo",
'$tr->format_fk_name("foo") == "foo"');
is(($ret = $tr->format_pk_name("foo")), "foo",
'$tr->format_pk_name("foo") == "foo"');
ok($tr->format_table_name($format_X_name{format_table_name}),
'$tr->format_table_name(sub { "table_$_[0]" })');
is(($ret = $tr->format_table_name("foo")), "table_foo",
'$tr->format_table_name("foo") == "table_foo"');
ok($tr->format_package_name($format_X_name{format_package_name}),
'$tr->format_package_name(sub { "package_$_[0]" })');
is(($ret = $tr->format_package_name("foo")), "package_foo",
'$tr->format_package_name("foo") == "package_foo"');
ok($tr->format_fk_name($format_X_name{format_fk_name}),
'$tr->format_fk_name(sub { "fk_$_[0]" })');
is(($ret = $tr->format_fk_name("foo")), "fk_foo",
'$tr->format_fk_name("foo") == "fk_foo"');
ok($tr->format_pk_name($format_X_name{format_pk_name}),
'$tr->format_pk_name(sub { "pk_$_[0]" })');
is(($ret = $tr->format_pk_name("foo")), "pk_foo",
'$tr->format_pk_name("foo") == "pk_foo"');
ok($tr->format_table_name($format_X_name{format_table_name}),
'$tr->format_table_name(sub { "table_$_[0]" })');
is(($ret = $tr->format_table_name("foo")), "table_foo",
'$tr->format_table_name("foo") == "table_foo"');
ok($tr->format_package_name($format_X_name{format_package_name}),
'$tr->format_package_name(sub { "package_$_[0]" })');
is(($ret = $tr->format_package_name("foo")), "package_foo",
'$tr->format_package_name("foo") == "package_foo"');
ok($tr->format_fk_name($format_X_name{format_fk_name}),
'$tr->format_fk_name(sub { "fk_$_[0]" })');
is(($ret = $tr->format_fk_name("foo")), "fk_foo",
'$tr->format_fk_name("foo") == "fk_foo"');
ok($tr->format_pk_name($format_X_name{format_pk_name}),
'$tr->format_pk_name(sub { "pk_$_[0]" })');
is(($ret = $tr->format_pk_name("foo")), "pk_foo",
'$tr->format_pk_name("foo") == "pk_foo"');
is(($ret = $tr->format_table_name($format_X_name{format_table_name}, "foo")), "table_foo",
'$tr->format_table_name(sub { "table_$_[0]" }, "foo") == "table_foo"');
is(($ret = $tr->format_package_name($format_X_name{format_package_name}, "foo")), "package_foo",
'$tr->format_package_name(sub { "package_$_[0]" }, "foo") == "package_foo"');
is(($ret = $tr->format_fk_name($format_X_name{format_fk_name}, "foo")), "fk_foo",
'$tr->format_fk_name(sub { "fk_$_[0]" }, "foo") == "fk_foo"');
is(($ret = $tr->format_pk_name($format_X_name{format_pk_name}, "foo")), "pk_foo",
'$tr->format_pk_name(sub { "pk_$_[0]" }, "foo") == "pk_foo"');