t/71-generator-sql_server.t

   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