t/lib/dbixcsl_mssql_extra_tests.pm

   1 package dbixcsl_mssql_extra_tests;
   2
   3 use Test::More;
   4
   5 sub extra { +{
   6     create => [
   7         qq{
   8             CREATE TABLE [mssql_loader_test1.dot] (
   9                 id INT IDENTITY NOT NULL PRIMARY KEY,
  10                 dat VARCHAR(8)
  11             )
  12         },
  13     ],
  14     drop   => [ qw/ [mssql_loader_test1.dot] / ],
  15     count  => 4,
  16     run    => sub {
  17         my ($schema, $monikers, $classes) = @_;
  18
  19         ok((my $rs = eval { $schema->resultset('MssqlLoaderTest1Dot') }),
  20             'got a resultset');
  21
  22         ok((my $from = eval { $rs->result_source->from }),
  23             'got an $rsrc->from');
  24
  25         is ref($from), 'SCALAR', '->table is a scalar ref';
  26
  27         is eval { $$from }, '[mssql_loader_test1.dot]',
  28             '->table name is correct';
  29     },
  30 }}
  31
  32 1;