From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

VEESH / SQL-Translator-1.66 / t / 20format_X_name.t 

            

              
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

              
#!/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"');