1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!/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"');
|
