|
|
@ -131,18 +131,23 @@ let WordGenerator = __SOURCE_DIRECTORY__ + @"\TextFiles\word-generator.txt" |
|
|
|
[<Literal>] |
|
|
|
[<Literal>] |
|
|
|
let TestPost = __SOURCE_DIRECTORY__ + @"\TextFiles\test-post.txt" |
|
|
|
let TestPost = __SOURCE_DIRECTORY__ + @"\TextFiles\test-post.txt" |
|
|
|
|
|
|
|
|
|
|
|
let p_result = Pancake.RequestRandomTextAsync() |
|
|
|
let ps_result1 = Pancake.RequestRandomTextAsync() |
|
|
|
let p_result2 = Pancake.RequestTextAsync 5 10 |
|
|
|
let ps_result2 = Pancake.RequestTextAsync 5 10 |
|
|
|
let p_result3 = Pancake.RequestTextFromFileAsync 3 10 DesktopClock |
|
|
|
let ps_result3 = Pancake.RequestTextFromFileAsync 3 10 DesktopClock |
|
|
|
let p_result4 = Pancake.RequestTextFromFileAsync 3 10 ConsoleWaterworks |
|
|
|
let ps_result4 = Pancake.RequestTextFromFileAsync 3 10 ConsoleWaterworks |
|
|
|
let p_result5 = Pancake.RequestTextFromFileAsync 3 10 WordGenerator |
|
|
|
let ps_result5 = Pancake.RequestTextFromFileAsync 3 10 WordGenerator |
|
|
|
let p_result6 = Pancake.RequestTextFromFileAsync 3 10 TestPost |
|
|
|
let ps_result6 = Pancake.RequestTextFromFileAsync 3 10 TestPost |
|
|
|
|
|
|
|
|
|
|
|
p_result |> Async.RunSynchronously |
|
|
|
let ps_files = Pancake.RequestAllTextFilesAsync () |
|
|
|
p_result2 |> Async.RunSynchronously |
|
|
|
|
|
|
|
p_result3 |> Async.RunSynchronously |
|
|
|
|
|
|
|
p_result4 |> Async.RunSynchronously |
|
|
|
|
|
|
|
p_result5 |> Async.RunSynchronously |
|
|
|
|
|
|
|
p_result6 |> Async.RunSynchronously |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let p_files = Pancake.RequestAllTextFiles () |> Async.RunSynchronously |
|
|
|
ps_result1 |> Async.RunSynchronously |
|
|
|
|
|
|
|
ps_result2 |> Async.RunSynchronously |
|
|
|
|
|
|
|
ps_result3 |> Async.RunSynchronously |
|
|
|
|
|
|
|
ps_result4 |> Async.RunSynchronously |
|
|
|
|
|
|
|
ps_result5 |> Async.RunSynchronously |
|
|
|
|
|
|
|
ps_result6 |> Async.RunSynchronously |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let ps_templateFiles = ps_files |> Async.RunSynchronously |
|
|
|
|
|
|
|
let ps_templateResult7 = |
|
|
|
|
|
|
|
Pancake.RequestTextFromTemplateAsync 3 10 ps_templateFiles.[2] |
|
|
|
|
|
|
|
|> Async.RunSynchronously |