7 use Test::More tests => 25;
9 my (%format_X_name, $tr, $ret);
12 format_table_name => sub { "table_$_[0]" },
13 format_package_name => sub { "package_$_[0]" },
14 format_fk_name => sub { "fk_$_[0]" },
15 format_pk_name => sub { "pk_$_[0]" },
18 ok($tr = SQL::Translator->new);
20 is(($ret = $tr->format_table_name("foo")), "foo",
21 '$tr->format_table_name("foo") == "foo"');
22 is(($ret = $tr->format_package_name("foo")), "foo",
23 '$tr->format_package_name("foo") == "foo"');
24 is(($ret = $tr->format_fk_name("foo")), "foo",
25 '$tr->format_fk_name("foo") == "foo"');
26 is(($ret = $tr->format_pk_name("foo")), "foo",
27 '$tr->format_pk_name("foo") == "foo"');
29 ok($tr->format_table_name($format_X_name{format_table_name}),
30 '$tr->format_table_name(sub { "table_$_[0]" })');
31 is(($ret = $tr->format_table_name("foo")), "table_foo",
32 '$tr->format_table_name("foo") == "table_foo"');
34 ok($tr->format_package_name($format_X_name{format_package_name}),
35 '$tr->format_package_name(sub { "package_$_[0]" })');
36 is(($ret = $tr->format_package_name("foo")), "package_foo",
37 '$tr->format_package_name("foo") == "package_foo"');
39 ok($tr->format_fk_name($format_X_name{format_fk_name}),
40 '$tr->format_fk_name(sub { "fk_$_[0]" })');
41 is(($ret = $tr->format_fk_name("foo")), "fk_foo",
42 '$tr->format_fk_name("foo") == "fk_foo"');
44 ok($tr->format_pk_name($format_X_name{format_pk_name}),
45 '$tr->format_pk_name(sub { "pk_$_[0]" })');
46 is(($ret = $tr->format_pk_name("foo")), "pk_foo",
47 '$tr->format_pk_name("foo") == "pk_foo"');
50 ok($tr->format_table_name($format_X_name{format_table_name}),
51 '$tr->format_table_name(sub { "table_$_[0]" })');
52 is(($ret = $tr->format_table_name("foo")), "table_foo",
53 '$tr->format_table_name("foo") == "table_foo"');
55 ok($tr->format_package_name($format_X_name{format_package_name}),
56 '$tr->format_package_name(sub { "package_$_[0]" })');
57 is(($ret = $tr->format_package_name("foo")), "package_foo",
58 '$tr->format_package_name("foo") == "package_foo"');
60 ok($tr->format_fk_name($format_X_name{format_fk_name}),
61 '$tr->format_fk_name(sub { "fk_$_[0]" })');
62 is(($ret = $tr->format_fk_name("foo")), "fk_foo",
63 '$tr->format_fk_name("foo") == "fk_foo"');
65 ok($tr->format_pk_name($format_X_name{format_pk_name}),
66 '$tr->format_pk_name(sub { "pk_$_[0]" })');
67 is(($ret = $tr->format_pk_name("foo")), "pk_foo",
68 '$tr->format_pk_name("foo") == "pk_foo"');
70 is(($ret = $tr->format_table_name($format_X_name{format_table_name}, "foo")), "table_foo",
71 '$tr->format_table_name(sub { "table_$_[0]" }, "foo") == "table_foo"');
73 is(($ret = $tr->format_package_name($format_X_name{format_package_name}, "foo")), "package_foo",
74 '$tr->format_package_name(sub { "package_$_[0]" }, "foo") == "package_foo"');
76 is(($ret = $tr->format_fk_name($format_X_name{format_fk_name}, "foo")), "fk_foo",
77 '$tr->format_fk_name(sub { "fk_$_[0]" }, "foo") == "fk_foo"');
79 is(($ret = $tr->format_pk_name($format_X_name{format_pk_name}, "foo")), "pk_foo",
80 '$tr->format_pk_name(sub { "pk_$_[0]" }, "foo") == "pk_foo"');