ChuNa7a/ChuBlog
1
0 Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

事务保存点

Browse Source
This commit is contained in:
LIm1tZz7 committed 2026-10-03 19:12:11 +08:00
1 parent 85008895dd
commit e2997627a7
10 files changed
+171 -6
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

chusql-core/engine/test/Spec.hs
+12 -1
View File
@@ -286,6 +286,17 @@ main = hspec $ do
parseStatement "COMMIT TRANSACTION" `shouldBe` Right CommitTransaction
parseStatement "ROLLBACK" `shouldBe` Right RollbackTransaction
parseStatement "rollback transaction" `shouldBe` Right RollbackTransaction
parseStatement "SAVEPOINT spot" `shouldBe` Right (Savepoint "spot")
parseStatement "savepoint spot" `shouldBe` Right (Savepoint "spot")
parseStatement "ROLLBACK TO spot" `shouldBe` Right (RollbackToSavepoint "spot")
parseStatement "ROLLBACK TO SAVEPOINT spot" `shouldBe` Right (RollbackToSavepoint "spot")
parseStatement "RELEASE spot" `shouldBe` Right (ReleaseSavepoint "spot")
parseStatement "RELEASE SAVEPOINT spot" `shouldBe` Right (ReleaseSavepoint "spot")
it "requires a name on savepoint statements" $ do
parseStatement "SAVEPOINT" `shouldSatisfy` isLeft
parseStatement "ROLLBACK TO" `shouldSatisfy` isLeft
parseStatement "RELEASE" `shouldSatisfy` isLeft
it "parses the bare words only as whole words" $ do
parseStatement "BEGINNER" `shouldSatisfy` isLeft
@@ -297,7 +308,7 @@ main = hspec $ do
(runStatement [("users", users)] =<< parseStatement sql)
`shouldSatisfy` either (isInfixOf "executed by the session") (const False)
)
["BEGIN", "COMMIT", "ROLLBACK"]
["BEGIN", "COMMIT", "ROLLBACK", "SAVEPOINT spot", "ROLLBACK TO spot", "RELEASE spot"]
it "puts transaction errors under the protocol category" $ do
errorCode "BEGIN is executed by the session" `shouldBe` "query_error"