diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-03-18 14:30:37 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-03-18 14:30:37 +0100 |
| commit | c3ca0b399d96dc9881f551aea21f42ecd70acd9a (patch) | |
| tree | 0985e4810bab4933ff0adc8979cd3fb2885e7a31 /tests | |
| parent | b1650734906eb0330de2c5c41a14642ecd6e8a52 (diff) | |
serialize: Upcase the first letter of any property name.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/serialize.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/serialize.scm b/tests/serialize.scm index ef851ba..5867edb 100644 --- a/tests/serialize.scm +++ b/tests/serialize.scm @@ -54,15 +54,15 @@ given by REPLACEMENT." (test-equal "simple query serialization with nested structures" '("ImageId=ami-72aa081b" "MaxCount=1" "MinCount=1" - "TagSpecification.1.resourceType=instance" - "TagSpecification.1.Tag.1.key=project" - "TagSpecification.1.Tag.1.value=pigx-web" - "TagSpecification.1.Tag.2.key=pigx-web:resource" - "TagSpecification.1.Tag.2.value=user-vm" - "TagSpecification.1.Tag.3.key=pigx-web:username" - "TagSpecification.1.Tag.3.value=username" - "TagSpecification.1.Tag.4.key=pigx-web:project" - "TagSpecification.1.Tag.4.value=project") + "TagSpecification.1.ResourceType=instance" + "TagSpecification.1.Tag.1.Key=project" + "TagSpecification.1.Tag.1.Value=pigx-web" + "TagSpecification.1.Tag.2.Key=pigx-web:resource" + "TagSpecification.1.Tag.2.Value=user-vm" + "TagSpecification.1.Tag.3.Key=pigx-web:username" + "TagSpecification.1.Tag.3.Value=username" + "TagSpecification.1.Tag.4.Key=pigx-web:project" + "TagSpecification.1.Tag.4.Value=project") (serialize-aws-value (RunInstancesRequest #:ImageId "ami-72aa081b" #:MinCount 1 |