EXEC sp_configure 'clr enabled', 1

DECLARE @cmd NVARCHAR(MAX);

SET @cmd='ALTER DATABASE ' + QUOTENAME(DB_NAME()) + ' SET TRUSTWORTHY ON;';

EXEC(@cmd);

CREATE PROCEDURE tSQLt.ResultSetFilter @ResultsetNo INT, @Command NVARCHAR(MAX)

EXTERNAL NAME tSQLtCLR.[tSQLtCLR.StoredProcedures].ResultSetFilter;

CREATE PROCEDURE tSQLt.AssertResultSetsHaveSameMetaData @expectedCommand NVARCHAR(MAX), @actualCommand NVARCHAR(MAX)

EXTERNAL NAME tSQLtCLR.[tSQLtCLR.StoredProcedures].AssertResultSetsHaveSameMetaData;

CREATE TYPE tSQLtPrivate EXTERNAL NAME tSQLtCLR.[tSQLtCLR.tSQLtPrivate];

CREATE PROCEDURE tSQLt.NewConnection @command NVARCHAR(MAX)

EXTERNAL NAME tSQLtCLR.[tSQLtCLR.StoredProcedures].NewConnection;

CREATE PROCEDURE tSQLt.TableToText

@txt NVARCHAR(MAX) OUTPUT,

@TableName NVARCHAR(MAX),

@OrderBy NVARCHAR(MAX) = NULL

SET @txt = tSQLtPrivate::TableToString(@TableName,@OrderBy);

END;

CREATE TABLE tSQLt.CaptureOutputLog (

Id INT IDENTITY(1,1) PRIMARY KEY CLUSTERED,

OutputText NVARCHAR(MAX)

);

CREATE PROCEDURE tSQLt.LogCapturedOutput @text NVARCHAR(MAX)

INSERT INTO tSQLt.CaptureOutputLog (OutputText) VALUES (@text);

END;

CREATE PROCEDURE tSQLt.CaptureOutput @command NVARCHAR(MAX)

EXTERNAL NAME tSQLtCLR.[tSQLtCLR.StoredProcedures].CaptureOutput;

CREATE PROCEDURE tSQLt.SuppressOutput @command NVARCHAR(MAX)

EXTERNAL NAME tSQLtCLR.[tSQLtCLR.StoredProcedures].SuppressOutput;

CREATE FUNCTION tSQLt.Private_GetForeignKeyDefinition(

@SchemaName NVARCHAR(MAX),

@ParentTableName NVARCHAR(MAX),

@ForeignKeyName NVARCHAR(MAX)

)

RETURNS TABLE

RETURN SELECT 'CONSTRAINT ' + name + ' FOREIGN KEY (' +

parCol + ') REFERENCES ' + refName + '(' + refCol + ')' cmd,

CASE

WHEN RefTableIsFakedInd = 1

THEN 'CREATE UNIQUE INDEX ' + tSQLtPrivate::CreateUniqueObjectName() + ' ON ' + refName + '(' + refCol + ');'

ELSE ''

END CreIdxCmd

FROM (SELECT QUOTENAME(SCHEMA_NAME(k.schema_id)) AS SchemaName,

QUOTENAME(k.name) AS name,

QUOTENAME(OBJECT_NAME(k.parent_object_id)) AS parName,

QUOTENAME(SCHEMA_NAME(refTab.schema_id)) + '.' + QUOTENAME(refTab.name) AS refName,

QUOTENAME(parCol.name) AS parCol,

QUOTENAME(refCol.name) AS refCol,

CASE WHEN e.name IS NULL THEN 0

ELSE 1

END AS RefTableIsFakedInd

FROM sys.foreign_keys k

JOIN sys.foreign_key_columns c

ON k.object_id = c.constraint_object_id

JOIN sys.columns parCol

ON parCol.object_id = c.parent_object_id

AND parCol.column_id = c.parent_column_id

JOIN sys.columns refCol

ON refCol.object_id = c.referenced_object_id

AND refCol.column_id = c.referenced_column_id

LEFT JOIN sys.extended_properties e

ON e.name = 'tSQLt.FakeTable_OrgTableName'

AND e.value = OBJECT_NAME(c.referenced_object_id)

JOIN sys.tables refTab

ON COALESCE(e.major_id,refCol.object_id) = refTab.object_id

WHERE k.parent_object_id = OBJECT_ID(@SchemaName + '.' + @ParentTableName)

AND k.object_id = OBJECT_ID(@SchemaName + '.' + @ForeignKeyName)

)x;

CREATE PROCEDURE tSQLt.Private_RenameObjectToUniqueName

@SchemaName NVARCHAR(MAX),

@ObjectName NVARCHAR(MAX),

@NewName NVARCHAR(MAX) = NULL OUTPUT

SET @NewName=tSQLtPrivate::CreateUniqueObjectName();

DECLARE @RenameCmd NVARCHAR(MAX);

SET @RenameCmd = 'EXEC sp_rename ''' +

@SchemaName + '.' + @ObjectName + ''', ''' +

@NewName + ''';';

EXEC tSQLt.SuppressOutput @RenameCmd;

END;

CREATE PROCEDURE tSQLt.Private_RenameObjectToUniqueNameUsingObjectId

@ObjectId INT,

@NewName NVARCHAR(MAX) = NULL OUTPUT

DECLARE @SchemaName NVARCHAR(MAX);

DECLARE @ObjectName NVARCHAR(MAX);

SELECT @SchemaName = QUOTENAME(OBJECT_SCHEMA_NAME(@ObjectId)), @ObjectName = QUOTENAME(OBJECT_NAME(@ObjectId));

EXEC tSQLt.Private_RenameObjectToUniqueName @SchemaName,@ObjectName, @NewName OUTPUT;

END;