@ -5,63 +5,201 @@
open F s C h e c k . X u n i t
open W e t P a n c a k e
open T e s t i n g C o n s t a n t s
open S y s t e m . D i a g n o s t i c s
module ``Null Tests`` =
[ < P r o p e r t y > ]
let ``Request Random Text does not return null when using the built-in random settings`` () =
let test = P a n c a k e . R e q u e s t R a n d o m T e x t
let test =
Pancake.RequestRandomTextAsync ( )
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Request Text does not return null when using fixed input parameters`` () =
let gibberishLevel = System.Random().Next(2, 10 )
let totalSentences = System.Random().Next(2, 10 )
let test = Pancake.RequestText gibberishLevel t o t a l S e n t e n c e s
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextAsync (gibberishLevel()) ( t o t a l S e n t e n c e s ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Request Text does not return null when using a random gibberish level`` () =
let gibberishLevel = System.Random().Next(2, 10 )
let test = Pancake.RequestText gibberishLevel 10
let gibberishLevel () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextAsync (gibberishLevel()) 10
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Request Text does not return null when using a random sentence count`` () =
let totalSentences = System.Random().Next(2, 10 )
let test () = Pancake.RequestText 5 t o t a l S e n t e n c e s
let totalSentences () = System.Random().Next(2, 10 )
let test () =
Pancake.RequestTextAsync 5 ( t o t a l S e n t e n c e s ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
let results () = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Using desktop-clock-info does not return null`` () =
let gibberishLevel = System.Random().Next(2, 10 )
let totalSentences = System.Random().Next(2, 10 )
let test = Pancake.RequestTextFromFile gibberishLevel totalSentences D e s k t o p C l o c k
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) D e s k t o p C l o c k
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Using console-waterworks-announcement does not return null`` () =
let gibberishLevel = System.Random().Next(2, 10 )
let totalSentences = System.Random().Next(2, 10 )
let test = Pancake.RequestTextFromFile gibberishLevel totalSentences C o n s o l e W a t e r w o r k s
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) C o n s o l e W a t e r w o r k s
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Using word-generator does not return null`` () =
let gibberishLevel = System.Random().Next(2, 10 )
let totalSentences = System.Random().Next(2, 10 )
let test = Pancake.RequestTextFromFile gibberishLevel totalSentences W o r d G e n e r a t o r
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) W o r d G e n e r a t o r
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``Using test-post does not return null`` () =
let gibberishLevel = System.Random().Next(2, 10 )
let totalSentences = System.Random().Next(2, 10 )
let test = Pancake.RequestTextFromFile gibberishLevel totalSentences T e s t P o s t
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) T e s t P o s t
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.NotNull t e s t
Check.Quick r e s u l t s
module ``Contents Test`` =
[ < P r o p e r t y > ]
let ``RequestRandomText returns a string which contains a full stop`` () =
let test =
Pancake.RequestRandomTextAsync ( )
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.Contains(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestText returns a string which contains a full stop`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextAsync (gibberishLevel()) ( t o t a l S e n t e n c e s ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.Contains(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which contains a full stop when using console-waterworks-announcement`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) C o n s o l e W a t e r w o r k s
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.Contains(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which contains a full stop when using desktop-clock-info`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) D e s k t o p C l o c k
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.Contains(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which contains a full stop when using test-post`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) T e s t P o s t
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.Contains(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which contains a full stop when using word-generator`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) W o r d G e n e r a t o r
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.Contains(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestRandomText returns a string which ends with a full stop`` () =
let test =
Pancake.RequestRandomTextAsync ( )
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.EndsWith(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTest returns a string which ends with a full stop`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextAsync (gibberishLevel()) ( t o t a l S e n t e n c e s ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.EndsWith(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which ends with a full stop when using console-waterwork-announcement`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) C o n s o l e W a t e r w o r k s
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.EndsWith(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which ends with a full stop when using desktop-clock-info`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) D e s k t o p C l o c k
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.EndsWith(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which ends with a full stop when using test-post`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) T e s t P o s t
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.EndsWith(".", t e s t )
Check.Quick r e s u l t s
[ < P r o p e r t y > ]
let ``RequestTextFromFile returns a string which ends with a full stop when using word-generator`` () =
let gibberishLevel () = System.Random().Next(2, 10 )
let totalSentences () = System.Random().Next(2, 10 )
let test =
Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) W o r d G e n e r a t o r
|> A s y n c . R u n S y n c h r o n o u s l y
let results = Assert.EndsWith(".", t e s t )
Check.Quick r e s u l t s