Transactions are broken when trying to delete only the IsTempObject=1 objects. The build is terribly broken.

Author: lizbaron

Source/tSQLt.UndoTestDoubles.ssp.sql

@@ -37,15 +37,28 @@ BEGIN
         LL.SchemaName,
         LL.CurrentName,
         LL.OriginalName,
-        FakeO.type ObjectType
+        FakeO.type ObjectType,
+        CASE WHEN EP.value IS NOT NULL THEN 1 ELSE 0 END IsTempObject
       FROM LL
       LEFT JOIN sys.objects FakeO
         ON FakeO.object_id = OBJECT_ID(QUOTENAME(LL.SchemaName)+'.'+QUOTENAME(LL.OriginalName))
+      LEFT JOIN sys.extended_properties AS EP
+        ON EP.class_desc = 'TABLE'
+       AND EP.major_id = FakeO.object_id
+       AND EP.name = 'tSQLt.IsTempObject'
+       AND EP.value = 1
   )
   SELECT @cmd = 
   (
     SELECT 
-        ISNULL(CASE WHEN L.ParentId IS NULL THEN DC.cmd+';' END,'')+
+        ISNULL(CASE 
+                 WHEN L.ParentId IS NULL THEN 
+                   CASE WHEN L.IsTempObject = 1 
+                     THEN  DC.cmd+';' 
+                     ELSE 'RAISERROR(''Cannot drop UndoTestDoublesTests.SimpleTable1 as it isn''''t marked as temporary. Use @Force = 1 to override.'',16,10);'
+                   END
+                 ELSE NULL
+               END,'')+
         'EXEC tSQLt.Private_RenameObject '''+L.SchemaName+''','''+L.CurrentName+''','''+L.OriginalName+''';'
       FROM L
      CROSS APPLY tSQLt.Private_GetDropItemCmd(QUOTENAME(L.SchemaName)+'.'+QUOTENAME(L.OriginalName),L.ObjectType) DC

Tests/UndoTestDoublesTests.class.sql

@@ -399,3 +399,19 @@ BEGIN
   END;
 END;
 GO
+CREATE PROCEDURE UndoTestDoublesTests.[test drops only objects that are marked as temporary (IsTempObject = 1)]
+AS
+BEGIN
+  SELECT '1',@@TRANCOUNT,'test drops only objects that are marked as temporary (IsTempObject = 1)'testname
+  CREATE TABLE UndoTestDoublesTests.SimpleTable1 (i INT);
+
+  EXEC tSQLt.RemoveObject @ObjectName = 'UndoTestDoublesTests.SimpleTable1';
+  CREATE TABLE UndoTestDoublesTests.SimpleTable1 (i INT);
+
+  EXEC tSQLt.ExpectException @ExpectedMessage = 'Cannot drop UndoTestDoublesTests.SimpleTable1 as it isn''t marked as temporary. Use @Force = 1 to override.', @ExpectedSeverity = 16, @ExpectedState = 10;
+  SELECT '2',@@TRANCOUNT
+  EXEC tSQLt.UndoTestDoubles;
+  SELECT '3',@@TRANCOUNT
+  
+END;
+GO