代码之家 › 专栏 › 技术社区 › Mohsen

通过FsCheck生成Json数组

fscheck f# json

Mohsen · 技术社区 · 8 年前

我是FsCheck新手,需要一个json数组来执行测试。

我想要一个简单的解决方案,如下所示:

let commaSeparated =  Gen.arrayOf Arb.generate<string> 
                      |> Gen.fold(fun (acc,i)-> i+="\",\"")
                      |> Gen.finalValueOf
                      |> StringExtensions.skipLastChar
let result = Arb.from "[\"" + commaSeparated +"\"]"

但主要问题是我找不到 Gen.fold 和 Gen.finalValueOf .

1 回复 | 直到 8 年前

Good Night Nerd Pride 8 年前

我也不是FsCheck方面的专家,但我认为除了缺少函数之外,您的代码中还存在一些奇怪的东西。什么 StringExtensions.skipLastChar 做什么?我也不认为 Gen s可以与 string 好像你在努力排在最后一行。什么 Gen.finalValueOf 应该怎么做?

我使用 Gen.map 要将字符串连接到逗号分隔的列表并将结果括在括号中,请执行以下操作:

let jsonArray = 
    Arb.generate<string>
    |> Gen.arrayOf  
    |> Gen.map (String.concat "\",\"")
    |> Gen.map (fun strs -> "[\"" + strs + "\"]")

let result = Arb.fromGen jsonArray

顺便说一下:我认为您需要考虑生成双引号。如果不逃避它们,JSON解析器将失败。以下是 jsonArray 这样做:

let escapeDoubleQuotes (str:string) = str.Replace ("\"", "\\\"")

let jsonArray = 
    Arb.generate<string>
    |> Gen.arrayOf
    |> Gen.map (Array.map escapeDoubleQuotes)
    |> Gen.map (String.concat "\", \"")
    |> Gen.map (fun strs -> "[\"" + strs + "\"]")

推荐文章

Sweepy Dodo · JSON lite的格式化

1 年前

SebMa · 为什么我用mikefarah/yq得到两倍的JSON输出?

1 年前

Dione Saturn · JSON、fetch、HTML中的javascript和未定义或空字符串[重复]

1 年前

user24242514 · 将嵌套查询字符串请求转换为字典

1 年前

Shane Harley · 通过这些JSON元素进行映射

1 年前

Milenko Markovic · 如何使用Python读取JSON?操作系统错误:[Errno 36]文件名太长:

1 年前

Shane Harley · 将HTML作为JSON字符串的一部分?

1 年前

user6631314 · 使用PHP从api响应中提取视频数据[复制]

1 年前

Matt Miles · 如何将嵌套的JSON转换为数据帧?

1 年前

ololo · 不支持目录导入

1 年前