Merge pull request #79 from purkhusid/empty-string

Allow empty strings

Author: samritchie

src/FSharp.AWS.DynamoDB/Picklers/PrimitivePicklers.fs

@@ -36,8 +36,6 @@ type StringPickler() =
     override _.Pickle s =
         if isNull s then
             AttributeValue(NULL = true)
-        elif s = "" then
-            invalidOp "empty strings not supported by DynamoDB."
         else
             AttributeValue(s)
         |> Some

tests/FSharp.AWS.DynamoDB.Tests/RecordGenerationTests.fs

@@ -30,10 +30,8 @@ module ``Record Generation Tests`` =
                         test <@ r' = r @>
                 with
                 // account for random inputs not supported by the library
-                | :? InvalidOperationException as e when e.Message = "empty strings not supported by DynamoDB." -> ()
                 | :? ArgumentException as e when
-                    e.Message.Contains "unsupported key name" && e.Message.Contains "should be 1 to 64k long (as utf8)"
-                    ->
+                    e.Message.Contains "unsupported key name" && e.Message.Contains "should be 1 to 64k long (as utf8)" ->
                     ()
 
             Check.One(config, roundTrip)

tests/FSharp.AWS.DynamoDB.Tests/SimpleTableOperationTests.fs

@@ -18,6 +18,8 @@ module SimpleTableTypes =
           [<RangeKey>]
           RangeKey: string
 
+          EmptyString: string
+
           Value: int64
 
           Tuple: int64 * int64
@@ -46,6 +48,7 @@ type ``Simple Table Operation Tests``(fixture: TableFixture) =
     let mkItem () =
         { HashKey = guid ()
           RangeKey = guid ()
+          EmptyString = ""
           Value = rand ()
           Tuple = rand (), rand ()
           Map = seq { for _ in 0L .. rand () % 5L -> "K" + guid (), rand () } |> Map.ofSeq
@@ -131,6 +134,23 @@ type ``Simple Table Operation Tests``(fixture: TableFixture) =
         test <@ None = deletedItem @>
         test <@ not (table.ContainsKey key) @>
 
+    [<Theory>]
+    [<InlineData("",
+                 "rangeKey",
+                 "One or more parameter values are not valid. The AttributeValue for a key attribute cannot contain an empty string value. Key: HashKey")>]
+    [<InlineData("hashKey",
+                 "",
+                 "One or more parameter values are not valid. The AttributeValue for a key attribute cannot contain an empty string value. Key: RangeKey")>]
+    [<InlineData("",
+                 "",
+                 "One or more parameter values are not valid. The AttributeValue for a key attribute cannot contain an empty string value. Key: HashKey")>]
+    let ``Operations with empty key values should fail with a DynamoDB client error`` (hashKey, rangeKey, expectedErrorMsg) =
+        let value = { mkItem () with HashKey = hashKey; RangeKey = rangeKey }
+        try
+            table.PutItem value |> ignore
+        with :? Amazon.DynamoDBv2.AmazonDynamoDBException as ex ->
+            test <@ ex.Message = expectedErrorMsg @>
+
     interface IClassFixture<TableFixture>
 
 type ``TransactWriteItems tests``(fixture: TableFixture) =
@@ -139,6 +159,7 @@ type ``TransactWriteItems tests``(fixture: TableFixture) =
     let mkItem () =
         { HashKey = guid ()
           RangeKey = guid ()
+          EmptyString = ""
           Value = rand ()
           Tuple = rand (), rand ()
           Map = seq { for _ in 0L .. rand () % 5L -> "K" + guid (), rand () } |> Map.ofSeq