1 package dbixcsl_mssql_extra_tests;
15 CREATE TABLE [${vendor}_loader_test1.dot] (
16 id INT IDENTITY NOT NULL PRIMARY KEY,
21 drop => [ "[${vendor}_loader_test1.dot]" ],
24 my ($schema, $monikers, $classes) = @_;
26 my $vendor_titlecased = "\u\L$vendor";
29 $schema->resultset("${vendor_titlecased}LoaderTest1Dot") }),
32 ok((my $from = eval { $rs->result_source->from }),
33 'got an $rsrc->from');
35 is ref($from), 'SCALAR', '->table is a scalar ref';
37 is eval { $$from }, "[${vendor}_loader_test1.dot]",
38 '->table name is correct';