Add support for BETWEEN

src/NpgsqlFSharpParser/Parser.fs

@@ -188,6 +188,17 @@ let stringLiteral : Parser<Expr, unit> =
     spacesOrComment >>. quotedString .>> spacesOrComment
     |>> Expr.StringLiteral
 
+let between' : Parser<Expr, unit> =
+    attempt (
+        spaces >>.
+        identifier >>= (fun value ->
+        text "BETWEEN" >>.
+        (integer <|> number <|> date) >>= (fun left ->
+        text "AND" >>.
+        expr >>= (fun right ->
+            preturn (Expr.Between (value, left, right)))))
+    )
+
 /// Parses 2 or more comma separated values. I.e (1, 2), but not (3) which will become an integer.
 let numericList =
     let numeric = integer <|> number
@@ -506,6 +517,7 @@ opp.TermParser <- choice [
     (attempt declareQuery)
     (attempt fetchQuery)
     (attempt functionExpr)
+    between'
     numericList
     stringList
     (text "(") >>. expr .>> (text ")")

tests/NpgsqlFSharpAnalyzer.Tests/ParseSelectTests.fs

@@ -687,5 +687,23 @@ let selectQueryTests = testList "Parse SELECT tests" [
                     )
                 )
     }
+
+    testSelect """
+        SELECT *
+        FROM employees
+        WHERE employee_id BETWEEN 200 AND 300;
+    """ {
+        SelectExpr.Default with
+            Columns = [ Expr.Star ]
+            From = Some (Expr.Ident "employees")
+            Where =
+                Some(
+                    Expr.Between(
+                        Expr.Ident "employee_id",
+                        Expr.Integer(200L),
+                        Expr.Integer(300L)
+                    )
+                )
+    }
 ]