Commit | Line | Data |
29ecbf4e |
1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: |
3 | |
4 | use strict; |
5 | |
6 | use SQL::Translator; |
7 | use Test::More tests => 25; |
8 | |
5bd0a664 |
9 | my ($tr, $ret); |
29ecbf4e |
10 | |
11 | my %format_X_name = ( |
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]" }, |
16 | ); |
17 | |
18 | ok($tr = SQL::Translator->new); |
19 | |
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"'); |
28 | |
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"'); |
33 | |
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"'); |
38 | |
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"'); |
43 | |
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"'); |
48 | |
49 | |
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"'); |
54 | |
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"'); |
59 | |
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"'); |
64 | |
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"'); |
69 | |
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"'); |
72 | |
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"'); |
75 | |
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"'); |
78 | |
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"'); |