| 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"'); |
projects / dbsrgits/SQL-Translator.git / blame