以下是该方案：
以下是复制方案的代码。
Task Runner Explorer当我移除SET XACT_ABORT ON时，单元测试成功，但它引发了错误：create procedure sproc_c
as
RAISERROR('An error is found', 11, 1)
go
create procedure sproc_b
as
exec dbo.sproc_c;
go
create procedure sproc_a
as
SET QUOTED_IDENTIFIER OFF
SET ANSI_NULLS ON
SET NOCOUNT ON
SET XACT_ABORT ON
SET ANSI_WARNINGS OFF
declare @transactionName as varchar(50) = '[POC]';
begin tran @transactionName
save tran @transactionName
exec dbo.sproc_b;
commit tran @transactionName
go
CREATE PROCEDURE [test sproc_a]
AS
-- Assert
BEGIN
EXEC tSQLt.ExpectException
@ExpectedMessage = 'An error is found'
END
-- Act
BEGIN
EXEC dbo.sproc_a
END
GO
EXEC tSQLt.Run '[test sproc_a]'
这更像是一个错误报告。嗯，我想问题可能是：有谁知道如何解决它？ ：）
答案 0 :(得分：3)
应用How to ROLLBACK a transaction when testing using tSQLt中的逻辑添加一个TRY CATCH，检查是否仍然需要ROLLBACK。
create procedure sproc_c
as
RAISERROR('An error is found', 11, 1)
go
create procedure sproc_b
as
exec dbo.sproc_c;
go
create procedure sproc_a
as
SET QUOTED_IDENTIFIER OFF
SET ANSI_NULLS ON
SET NOCOUNT ON
SET XACT_ABORT ON
SET ANSI_WARNINGS OFF
declare @transactionName as varchar(50) = '[POC]';
BEGIN TRY
begin tran @transactionName
save tran @transactionName
exec dbo.sproc_b;
commit tran @transactionName
END TRY
BEGIN CATCH
IF @@TRANCOUNT > 0
ROLLBACK;
-- Do some exception handling
-- You'll need to reraise the error to prevent exceptions about inconsistent
-- @@TRANCOUNT before / after execution of the stored proc.
RAISERROR('An error is found', 11, 1);
END CATCH
go
CREATE PROCEDURE [test sproc_a]
AS
-- Assert
BEGIN
EXEC tSQLt.ExpectException
@ExpectedMessage = 'An error is found'
END
-- Act
BEGIN
EXEC dbo.sproc_a
END
GO
EXEC tSQLt.Run '[test sproc_a]'
答案 1 :(得分：1)
我单独发表评论来回答我自己的问题。我调查了tSQLt.Private_RunTest。事实证明：
作为一个解决方案，我攻击了tSQLt.Private_RunTest并替换了代码＆＃34; ROLLBACK TRAN @TranName;＆＃34;用＆＃34; ROLLBACK TRAN;＆＃34;。
我在提交时也添加了一个条件。
我不确定进行此更改后的含义是什么。我们会看到它是怎么回事。以下是我的更改：
CREATE PROCEDURE tSQLt.Private_RunTest
@TestName NVARCHAR(MAX),
@SetUp NVARCHAR(MAX) = NULL
AS
BEGIN
DECLARE @Msg NVARCHAR(MAX); SET @Msg = '';
DECLARE @Msg2 NVARCHAR(MAX); SET @Msg2 = '';
DECLARE @Cmd NVARCHAR(MAX); SET @Cmd = '';
DECLARE @TestClassName NVARCHAR(MAX); SET @TestClassName = '';
DECLARE @TestProcName NVARCHAR(MAX); SET @TestProcName = '';
DECLARE @Result NVARCHAR(MAX); SET @Result = 'Success';
DECLARE @TranName CHAR(32); EXEC tSQLt.GetNewTranName @TranName OUT;
DECLARE @TestResultId INT;
DECLARE @PreExecTrancount INT;
TRUNCATE TABLE tSQLt.CaptureOutputLog;
CREATE TABLE #ExpectException(ExpectException INT,ExpectedMessage NVARCHAR(MAX), ExpectedSeverity INT, ExpectedState INT, ExpectedMessagePattern NVARCHAR(MAX), ExpectedErrorNumber INT, FailMessage NVARCHAR(MAX));
IF EXISTS (SELECT 1 FROM sys.extended_properties WHERE name = N'SetFakeViewOnTrigger')
BEGIN
RAISERROR('Test system is in an invalid state. SetFakeViewOff must be called if SetFakeViewOn was called. Call SetFakeViewOff after creating all test case procedures.', 16, 10) WITH NOWAIT;
RETURN -1;
END;
SELECT @Cmd = 'EXEC ' + @TestName;
SELECT @TestClassName = OBJECT_SCHEMA_NAME(OBJECT_ID(@TestName)), --tSQLt.Private_GetCleanSchemaName('', @TestName),
@TestProcName = tSQLt.Private_GetCleanObjectName(@TestName);
INSERT INTO tSQLt.TestResult(Class, TestCase, TranName, Result)
SELECT @TestClassName, @TestProcName, @TranName, 'A severe error happened during test execution. Test did not finish.'
OPTION(MAXDOP 1);
SELECT @TestResultId = SCOPE_IDENTITY();
BEGIN TRAN;
SAVE TRAN @TranName;
SET @PreExecTrancount = @@TRANCOUNT;
TRUNCATE TABLE tSQLt.TestMessage;
DECLARE @TmpMsg NVARCHAR(MAX);
BEGIN TRY
IF (@SetUp IS NOT NULL) EXEC @SetUp;
EXEC (@Cmd);
IF(EXISTS(SELECT 1 FROM #ExpectException WHERE ExpectException = 1))
BEGIN
SET @TmpMsg = COALESCE((SELECT FailMessage FROM #ExpectException)+' ','')+'Expected an error to be raised.';
EXEC tSQLt.Fail @TmpMsg;
END
END TRY
BEGIN CATCH
IF ERROR_MESSAGE() LIKE '%tSQLt.Failure%'
BEGIN
SELECT @Msg = Msg FROM tSQLt.TestMessage;
SET @Result = 'Failure';
END
ELSE
BEGIN
DECLARE @ErrorInfo NVARCHAR(MAX);
SELECT @ErrorInfo =
COALESCE(ERROR_MESSAGE(), '<ERROR_MESSAGE() is NULL>') +
'[' +COALESCE(LTRIM(STR(ERROR_SEVERITY())), '<ERROR_SEVERITY() is NULL>') + ','+COALESCE(LTRIM(STR(ERROR_STATE())), '<ERROR_STATE() is NULL>') + ']' +
'{' + COALESCE(ERROR_PROCEDURE(), '<ERROR_PROCEDURE() is NULL>') + ',' + COALESCE(CAST(ERROR_LINE() AS NVARCHAR), '<ERROR_LINE() is NULL>') + '}';
IF(EXISTS(SELECT 1 FROM #ExpectException))
BEGIN
DECLARE @ExpectException INT;
DECLARE @ExpectedMessage NVARCHAR(MAX);
DECLARE @ExpectedMessagePattern NVARCHAR(MAX);
DECLARE @ExpectedSeverity INT;
DECLARE @ExpectedState INT;
DECLARE @ExpectedErrorNumber INT;
DECLARE @FailMessage NVARCHAR(MAX);
SELECT @ExpectException = ExpectException,
@ExpectedMessage = ExpectedMessage,
@ExpectedSeverity = ExpectedSeverity,
@ExpectedState = ExpectedState,
@ExpectedMessagePattern = ExpectedMessagePattern,
@ExpectedErrorNumber = ExpectedErrorNumber,
@FailMessage = FailMessage
FROM #ExpectException;
IF(@ExpectException = 1)
BEGIN
SET @Result = 'Success';
SET @TmpMsg = COALESCE(@FailMessage+' ','')+'Exception did not match expectation!';
IF(ERROR_MESSAGE() <> @ExpectedMessage)
BEGIN
SET @TmpMsg = @TmpMsg +CHAR(13)+CHAR(10)+
'Expected Message: <'+@ExpectedMessage+'>'+CHAR(13)+CHAR(10)+
'Actual Message : <'+ERROR_MESSAGE()+'>';
SET @Result = 'Failure';
END
IF(ERROR_MESSAGE() NOT LIKE @ExpectedMessagePattern)
BEGIN
SET @TmpMsg = @TmpMsg +CHAR(13)+CHAR(10)+
'Expected Message to be like <'+@ExpectedMessagePattern+'>'+CHAR(13)+CHAR(10)+
'Actual Message : <'+ERROR_MESSAGE()+'>';
SET @Result = 'Failure';
END
IF(ERROR_NUMBER() <> @ExpectedErrorNumber)
BEGIN
SET @TmpMsg = @TmpMsg +CHAR(13)+CHAR(10)+
'Expected Error Number: '+CAST(@ExpectedErrorNumber AS NVARCHAR(MAX))+CHAR(13)+CHAR(10)+
'Actual Error Number : '+CAST(ERROR_NUMBER() AS NVARCHAR(MAX));
SET @Result = 'Failure';
END
IF(ERROR_SEVERITY() <> @ExpectedSeverity)
BEGIN
SET @TmpMsg = @TmpMsg +CHAR(13)+CHAR(10)+
'Expected Severity: '+CAST(@ExpectedSeverity AS NVARCHAR(MAX))+CHAR(13)+CHAR(10)+
'Actual Severity : '+CAST(ERROR_SEVERITY() AS NVARCHAR(MAX));
SET @Result = 'Failure';
END
IF(ERROR_STATE() <> @ExpectedState)
BEGIN
SET @TmpMsg = @TmpMsg +CHAR(13)+CHAR(10)+
'Expected State: '+CAST(@ExpectedState AS NVARCHAR(MAX))+CHAR(13)+CHAR(10)+
'Actual State : '+CAST(ERROR_STATE() AS NVARCHAR(MAX));
SET @Result = 'Failure';
END
IF(@Result = 'Failure')
BEGIN
SET @Msg = @TmpMsg;
END
END
ELSE
BEGIN
SET @Result = 'Failure';
SET @Msg =
COALESCE(@FailMessage+' ','')+
'Expected no error to be raised. Instead this error was encountered:'+
CHAR(13)+CHAR(10)+
@ErrorInfo;
END
END
ELSE
BEGIN
SET @Result = 'Error';
SET @Msg = @ErrorInfo;
END
END;
END CATCH
BEGIN TRY
-- Replaced "ROLLBACK TRAN @TranName;" with "ROLLBACK TRAN;". The prior approach can't handle nested named transactions.
--ROLLBACK TRAN @TranName;
ROLLBACK TRAN;
END TRY
BEGIN CATCH
DECLARE @PostExecTrancount INT;
SET @PostExecTrancount = @PreExecTrancount - @@TRANCOUNT;
IF (@@TRANCOUNT > 0) ROLLBACK;
BEGIN TRAN;
IF( @Result <> 'Success'
OR @PostExecTrancount <> 0
)
BEGIN
SELECT @Msg = COALESCE(@Msg, '<NULL>') + ' (There was also a ROLLBACK ERROR --> ' + COALESCE(ERROR_MESSAGE(), '<ERROR_MESSAGE() is NULL>') + '{' + COALESCE(ERROR_PROCEDURE(), '<ERROR_PROCEDURE() is NULL>') + ',' + COALESCE(CAST(ERROR_LINE() AS NVARCHAR), '<ERROR_LINE() is NULL>') + '})';
SET @Result = 'Error';
END
END CATCH
If(@Result <> 'Success')
BEGIN
SET @Msg2 = @TestName + ' failed: (' + @Result + ') ' + @Msg;
EXEC tSQLt.Private_Print @Message = @Msg2, @Severity = 0;
END
IF EXISTS(SELECT 1 FROM tSQLt.TestResult WHERE Id = @TestResultId)
BEGIN
UPDATE tSQLt.TestResult SET
Result = @Result,
Msg = @Msg
WHERE Id = @TestResultId;
END
ELSE
BEGIN
INSERT tSQLt.TestResult(Class, TestCase, TranName, Result, Msg)
SELECT @TestClassName,
@TestProcName,
'?',
'Error',
'TestResult entry is missing; Original outcome: ' + @Result + ', ' + @Msg;
END
-- Add "IF (@@TRANCOUNT > 0)" so that it will only do the commit if there is a transaction.
IF (@@TRANCOUNT > 0)
COMMIT;
END;