Added tests for ssps and views!

Author: lizbaron

Source/tSQLt.UndoTestDoubles.ssp.sql

@@ -11,7 +11,7 @@ BEGIN
 
   BEGIN TRAN;
   DELETE FROM tSQLt.Private_RenamedObjectLog OUTPUT Deleted.* INTO #RenamedObjects;
-  WITH L AS
+  WITH LL AS
   (
     SELECT 
         ROL.Id,
@@ -20,13 +20,27 @@ BEGIN
         ROL.ObjectId,
         OBJECT_SCHEMA_NAME(ROL.ObjectId) SchemaName,
         OBJECT_NAME(ROL.ObjectId) CurrentName,
-        PARSENAME(ROL.OriginalName,1) OriginalName,
-        O.type ObjectType
+        PARSENAME(ROL.OriginalName,1) OriginalName
       FROM #RenamedObjects ROL
       JOIN sys.objects O
         ON ROL.ObjectId = O.object_id
       LEFT JOIN #RenamedObjects ParentROL
         ON O.parent_object_id = ParentROL.ObjectId
+  ),
+  L AS
+  (
+    SELECT 
+        LL.Id,
+        LL.ParentId,
+        LL.SortId,
+        LL.ObjectId,
+        LL.SchemaName,
+        LL.CurrentName,
+        LL.OriginalName,
+        FakeO.type ObjectType
+      FROM LL
+      JOIN sys.objects FakeO
+        ON FakeO.object_id = OBJECT_ID(QUOTENAME(LL.SchemaName)+'.'+QUOTENAME(LL.OriginalName))
   )
   SELECT @cmd = 
   (

Tests/UndoTestDoublesTests.class.sql

@@ -215,12 +215,40 @@ BEGIN
   EXEC tSQLt.AssertEmptyTable @TableName = 'tSQLt.Private_RenamedObjectLog';
 END;
 GO
+CREATE PROCEDURE UndoTestDoublesTests.[test restores a faked stored procedure]
+AS
+BEGIN
+  EXEC ('CREATE PROCEDURE UndoTestDoublesTests.aSimpleSSP @Id INT AS RETURN;');
+  DECLARE @OriginalObjectId INT = OBJECT_ID('UndoTestDoublesTests.aSimpleSSP');
+  EXEC tSQLt.SpyProcedure @ProcedureName = 'UndoTestDoublesTests.aSimpleSSP';
+
+  EXEC tSQLt.UndoTestDoubles;
+
+  DECLARE @RestoredObjectId INT = OBJECT_ID('UndoTestDoublesTests.aSimpleSSP');
+  EXEC tSQLt.AssertEquals @Expected = @OriginalObjectId, @Actual = @RestoredObjectId;
+
+END;
+GO
+CREATE PROCEDURE UndoTestDoublesTests.[test restores a faked view]
+AS
+BEGIN
+  EXEC ('CREATE VIEW UndoTestDoublesTests.aSimpleView AS SELECT NULL X;');
+  DECLARE @OriginalObjectId INT = OBJECT_ID('UndoTestDoublesTests.aSimpleView');
+  EXEC tSQLt.FakeTable @TableName = 'UndoTestDoublesTests.aSimpleView';
+
+  EXEC tSQLt.UndoTestDoubles;
+
+  DECLARE @RestoredObjectId INT = OBJECT_ID('UndoTestDoublesTests.aSimpleView');
+  EXEC tSQLt.AssertEquals @Expected = @OriginalObjectId, @Actual = @RestoredObjectId;
+
+END;
+GO
 
 /*--
 TODO
-- stored procedures
-- views
 - functions
 - rename object to unique name
+-- no replacement
+-- random replacement
 
 --*/