Add SEND, RECEIVE, CREATE CREDENTIAL and enable 8 more tests

- Implement SEND statement for Service Broker messaging
- Implement RECEIVE statement for WAITFOR (RECEIVE ...)
- Update WAITFOR to support statement option with nested RECEIVE/GET CONVERSATION GROUP
- Add CREATE CREDENTIAL statement support
- Add COMMIT TRANSACTION WITH (DELAYED_DURABILITY) support
- Enable SendStatementTests, WaitForStatementTests90, CreateCredentialStatementTests
- Enable CommitTransactionStatementTests120 baseline
- 75 tests now passing (was 67)

Author: claude

ast/case_expression.go

@@ -0,0 +1,32 @@
+package ast
+
+// SearchedCaseExpression represents a CASE WHEN ... THEN ... ELSE ... END expression.
+type SearchedCaseExpression struct {
+	WhenClauses    []*SearchedWhenClause
+	ElseExpression ScalarExpression
+}
+
+func (s *SearchedCaseExpression) node()             {}
+func (s *SearchedCaseExpression) scalarExpression() {}
+
+// SearchedWhenClause represents a WHEN ... THEN clause.
+type SearchedWhenClause struct {
+	WhenExpression BooleanExpression
+	ThenExpression ScalarExpression
+}
+
+// SimpleCaseExpression represents a CASE expression WHEN value THEN result END.
+type SimpleCaseExpression struct {
+	InputExpression ScalarExpression
+	WhenClauses     []*SimpleWhenClause
+	ElseExpression  ScalarExpression
+}
+
+func (s *SimpleCaseExpression) node()             {}
+func (s *SimpleCaseExpression) scalarExpression() {}
+
+// SimpleWhenClause represents a WHEN value THEN result clause.
+type SimpleWhenClause struct {
+	WhenExpression ScalarExpression
+	ThenExpression ScalarExpression
+}

ast/create_credential_statement.go

@@ -0,0 +1,12 @@
+package ast
+
+// CreateCredentialStatement represents a CREATE CREDENTIAL statement.
+type CreateCredentialStatement struct {
+	Name             *Identifier
+	Identity         ScalarExpression
+	Secret           ScalarExpression
+	IsDatabaseScoped bool
+}
+
+func (c *CreateCredentialStatement) node()      {}
+func (c *CreateCredentialStatement) statement() {}

ast/receive_statement.go

@@ -0,0 +1,14 @@
+package ast
+
+// ReceiveStatement represents a RECEIVE ... FROM queue statement.
+type ReceiveStatement struct {
+	Top                      ScalarExpression
+	SelectElements           []SelectElement
+	Queue                    *SchemaObjectName
+	Into                     *VariableTableReference
+	Where                    BooleanExpression
+	IsConversationGroupIdWhere bool
+}
+
+func (r *ReceiveStatement) node()      {}
+func (r *ReceiveStatement) statement() {}

ast/send_statement.go

@@ -0,0 +1,11 @@
+package ast
+
+// SendStatement represents a SEND ON CONVERSATION statement.
+type SendStatement struct {
+	ConversationHandles []ScalarExpression
+	MessageTypeName     *IdentifierOrValueExpression
+	MessageBody         ScalarExpression
+}
+
+func (s *SendStatement) node()      {}
+func (s *SendStatement) statement() {}

find_tests.sh

@@ -0,0 +1,8 @@
+#!/bin/bash
+cd /home/user/teesql/parser/testdata
+for dir in */; do
+    d="${dir%/}"
+    if [ -f "$d/ast.json" ] && grep -q '"skip": true' "$d/metadata.json" 2>/dev/null; then
+        echo "$d"
+    fi
+done

parser/lexer.go

@@ -113,6 +113,9 @@ const (
 	TokenDeclare
 	TokenIf
 	TokenElse
+	TokenCase
+	TokenWhen
+	TokenThen
 	TokenWhile
 	TokenBegin
 	TokenEnd
@@ -172,6 +175,10 @@ const (
 	TokenLineno
 	TokenStatusonly
 	TokenNoreset
+	TokenSend
+	TokenMessage
+	TokenTyp
+	TokenReceive
 )
 
 // Token represents a lexical token.
@@ -547,6 +554,9 @@ var keywords = map[string]TokenType{
 	"DECLARE":       TokenDeclare,
 	"IF":            TokenIf,
 	"ELSE":          TokenElse,
+	"CASE":          TokenCase,
+	"WHEN":          TokenWhen,
+	"THEN":          TokenThen,
 	"WHILE":         TokenWhile,
 	"BEGIN":         TokenBegin,
 	"END":           TokenEnd,
@@ -596,6 +606,10 @@ var keywords = map[string]TokenType{
 	"LINENO":        TokenLineno,
 	"STATUSONLY":    TokenStatusonly,
 	"NORESET":       TokenNoreset,
+	"SEND":          TokenSend,
+	"MESSAGE":       TokenMessage,
+	"TYPE":          TokenTyp,
+	"RECEIVE":       TokenReceive,
 }
 
 func lookupKeyword(ident string) TokenType {