Commit | Line | Data |
1ea76bff |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | use SQL::Translator::Generator::DDL::SQLServer; |
7 | use SQL::Translator::Schema::Field; |
8 | |
9 | my $shim = SQL::Translator::Generator::DDL::SQLServer->new(); |
10 | |
11 | is $shim->field(SQL::Translator::Schema::Field->new( |
12 | name => 'lol', |
13 | data_type => 'int', |
14 | )), '[lol] int NULL', 'simple field is generated correctly'; |
15 | |
16 | is $shim->field(SQL::Translator::Schema::Field->new( |
17 | name => 'nice', |
18 | data_type => 'varchar', |
19 | size => 10, |
20 | )), '[nice] varchar(10) NULL', 'sized field is generated correctly'; |
21 | |
22 | done_testing; |
23 | |