diff --git a/TestCentre/PropertyTests.fs b/TestCentre/PropertyTests.fs index 7ca3bd0..479c7d1 100644 --- a/TestCentre/PropertyTests.fs +++ b/TestCentre/PropertyTests.fs @@ -22,18 +22,18 @@ [] let ``Request Text does not return a null when using fixed input parameters`` () = // Change the values for a quick way to manually test the (test) code. - let test = + let test ()= Pancake.RequestTextAsync 5 5 |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results [] let ``Request Text does not return a null when using a random gibberish level`` () = - let test = + let test ()= Pancake.RequestTextAsync (ValidGibberishLevelInput()) 5 |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results [] @@ -45,156 +45,147 @@ Check.Quick results [] - let ``Using desktop-clock-info does not return a null`` () = - let test = - Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock + let ``RequestTextFromFile does not return a null when using console-waterworks-info`` () = + let test () = + Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results [] - let ``Using console-waterworks-announcement does not return a null`` () = - let test = - Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks + let ``RequestTextFromFile does not return a null when using desktop-clock-info`` () = + let test ()= + Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results [] - let ``Using word-generator does not return a null`` () = - let test = + let ``RequestTextFromFile does not return a null when using word-generator`` () = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results [] - let ``Using test-post does not return a null`` () = - let test = + let ``RequestTextFromFile does not return a null when using test-post`` () = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results [] let ``RequestAllTemplateFiles does not return a null`` () = - let test = + let test () = Pancake.RequestAllTemplateFilesAsync () |> Async.RunSynchronously - let results = Assert.NotNull test + let results = Assert.NotNull (test()) Check.Quick results module ``Contents Test`` = [] let ``RequestRandomText returns a string which contains a full stop`` () = - let test = + let test () = Pancake.RequestRandomTextAsync () |> Async.RunSynchronously - let results = Assert.Contains(".", test) + let results = Assert.Contains(".", test()) Check.Quick results [] let ``RequestText returns a string which contains a full stop`` () = - let test = + let test () = Pancake.RequestTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) |> Async.RunSynchronously - let results = Assert.Contains(".", test) + let results = Assert.Contains(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which contains a full stop when using console-waterworks-announcement`` () = - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks |> Async.RunSynchronously - let results = Assert.Contains(".", test) + let results = Assert.Contains(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which contains a full stop when using desktop-clock-info`` () = - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock |> Async.RunSynchronously - let results = Assert.Contains(".", test) + let results = Assert.Contains(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which contains a full stop when using test-post`` () = - - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost |> Async.RunSynchronously - let results = Assert.Contains(".", test) + let results = Assert.Contains(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which contains a full stop when using word-generator`` () = - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator |> Async.RunSynchronously - let results = Assert.Contains(".", test) + let results = Assert.Contains(".", test()) Check.Quick results [] let ``RequestRandomText returns a string which ends with a full stop`` () = - let test = + let test () = Pancake.RequestRandomTextAsync () |> Async.RunSynchronously - let results = Assert.EndsWith(".", test) + let results = Assert.EndsWith(".", test()) Check.Quick results [] let ``RequestTest returns a string which ends with a full stop`` () = - let test = + let test () = Pancake.RequestTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) |> Async.RunSynchronously - let results = Assert.EndsWith(".", test) + let results = Assert.EndsWith(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which ends with a full stop when using console-waterwork-announcement`` () = - - - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks |> Async.RunSynchronously - let results = Assert.EndsWith(".", test) + let results = Assert.EndsWith(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which ends with a full stop when using desktop-clock-info`` () = - - - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock |> Async.RunSynchronously - let results = Assert.EndsWith(".", test) + let results = Assert.EndsWith(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which ends with a full stop when using test-post`` () = - - - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost |> Async.RunSynchronously - let results = Assert.EndsWith(".", test) + let results = Assert.EndsWith(".", test()) Check.Quick results [] let ``RequestTextFromFile returns a string which ends with a full stop when using word-generator`` () = - - - let test = + let test () = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator |> Async.RunSynchronously - let results = Assert.EndsWith(".", test) + let results = Assert.EndsWith(".", test()) Check.Quick results [] let ``RequestAllTemplateFiles does not return an empty list`` () = - let test = + let test () = Pancake.RequestAllTemplateFilesAsync () |> Async.RunSynchronously - let results = Assert.NotEmpty test + let results = Assert.NotEmpty (test()) Check.Quick results \ No newline at end of file diff --git a/TestCentre/TestCentre.fsproj b/TestCentre/TestCentre.fsproj index 483df01..db6447a 100644 --- a/TestCentre/TestCentre.fsproj +++ b/TestCentre/TestCentre.fsproj @@ -55,10 +55,6 @@ - - - - @@ -66,6 +62,18 @@ + + PreserveNewest + + + PreserveNewest + + + PreserveNewest + + + PreserveNewest + diff --git a/TestCentre/TextFiles/desktop-clock-info.txt b/TestCentre/TextFiles/desktop-clock-info.txt index 878beea..e6b77b1 100644 --- a/TestCentre/TextFiles/desktop-clock-info.txt +++ b/TestCentre/TextFiles/desktop-clock-info.txt @@ -1,14 +1,17 @@ -About Desktop Clock +This is a basic WPF program which displays the data and time so it is readable from a distance. +Desktop Clock uses a NuGet package called This allows the program to look like a Windows 10 UWP program. +The most notable aspects being the translucent chrome and the highlighting of near-by buttons. +Screenshot 1 Desktop Clock is a WPF program which looks like a UWP program. -This is a basic WPF program which displays the data and time so it is readable from a distance. Desktop Clock uses a NuGet package called This allows the program to look like a Windows 10 UWP program. The most notable aspects being the translucent chrome and the highlighting of near-by buttons. -Screenshot 1 Desktop Clock is a WPF program which looks like a UWP program.Publishing Information - -If you would like to use, it you will need to build from the source code provided. I did not want to mess around with ClickOnce or any other packaging mechanism. +If you would like to use, it you will need to build from the source code provided. +I did not want to mess around with ClickOnce or any other packaging mechanism. With it being a WPF program, it can run on Windows 7 and 8 machines. - Future Plans -I do not intend to take this any further. It is a simple program which I have running 247, floating about on the screen. It sits there and does what I need it to do. Anything else seems like overkill and I do not find myself wanting it to do something extra. Therefore, if you want something adding to it, I recommend you fork it. - GitHub +I do not intend to take this any further. +It is a simple program which I have running 247, floating about on the screen. +It sits there and does what I need it to do. +Anything else seems like overkill and I do not find myself wanting it to do something extra. +Therefore, if you want something adding to it, I recommend you fork it. -Desktop Clock is  available on GitHub. Feel free to check it out, download it or fork it \ No newline at end of file +Desktop Clock is available on GitHub. Feel free to check it out, download it or fork it. \ No newline at end of file diff --git a/TestCentre/TextFiles/test-post.txt b/TestCentre/TextFiles/test-post.txt index 32afd87..0c5f210 100644 --- a/TestCentre/TextFiles/test-post.txt +++ b/TestCentre/TextFiles/test-post.txt @@ -8,6 +8,4 @@ Wow, you really are sticking around, aren't you? Hmm... okay... I guess I should Let me begin by offering you a sincere "Hello and how are you today?" I hope the weather is nice when and where you are. There is something about it which can make or break a day. The tussle between working with and against it can leave a mark on the soul. But, there is a certain type of comfort to be had when you acknowledge it will always win against the human race. Jammy dodger? Would you like sugar in your tea? -Is that the doorbell? Excuse me, I'm just going to see whom it is -- or is it who? - -... \ No newline at end of file +Is that the doorbell? Excuse me, I'm just going to see whom it is -- or is it who? \ No newline at end of file diff --git a/WetPancake/DataServices.fs b/WetPancake/DataServices.fs index f39018c..3a86cbb 100644 --- a/WetPancake/DataServices.fs +++ b/WetPancake/DataServices.fs @@ -15,7 +15,7 @@ let rec GenerateMarkovChain (map: Map) (state:string) chain = if map.ContainsKey state then let nextChoice = map.[state] |> PickRandomItem - if MatchText @"\." nextChoice then nextChoice :: chain + if MatchText @"$\." nextChoice then nextChoice :: chain else let currentWords = state diff --git a/WetPancake/TextFiles/desktop-clock-info.txt b/WetPancake/TextFiles/desktop-clock-info.txt index 878beea..b1a98db 100644 --- a/WetPancake/TextFiles/desktop-clock-info.txt +++ b/WetPancake/TextFiles/desktop-clock-info.txt @@ -1,14 +1,10 @@ -About Desktop Clock - -This is a basic WPF program which displays the data and time so it is readable from a distance. Desktop Clock uses a NuGet package called This allows the program to look like a Windows 10 UWP program. The most notable aspects being the translucent chrome and the highlighting of near-by buttons. -Screenshot 1 Desktop Clock is a WPF program which looks like a UWP program.Publishing Information +This is a basic WPF program which displays the data and time so it is readable from a distance. Desktop Clock uses a NuGet package called This allows the program to look like a Windows 10 UWP program. The most notable aspects being the translucent chrome and the highlighting of near-by buttons. +Screenshot 1 Desktop Clock is a WPF program which looks like a UWP program. If you would like to use, it you will need to build from the source code provided. I did not want to mess around with ClickOnce or any other packaging mechanism. With it being a WPF program, it can run on Windows 7 and 8 machines. - Future Plans I do not intend to take this any further. It is a simple program which I have running 247, floating about on the screen. It sits there and does what I need it to do. Anything else seems like overkill and I do not find myself wanting it to do something extra. Therefore, if you want something adding to it, I recommend you fork it. - GitHub -Desktop Clock is  available on GitHub. Feel free to check it out, download it or fork it \ No newline at end of file +Desktop Clock is  available on GitHub. Feel free to check it out, download it or fork it. \ No newline at end of file diff --git a/WetPancake/TextFiles/test-post.txt b/WetPancake/TextFiles/test-post.txt index 32afd87..0c5f210 100644 --- a/WetPancake/TextFiles/test-post.txt +++ b/WetPancake/TextFiles/test-post.txt @@ -8,6 +8,4 @@ Wow, you really are sticking around, aren't you? Hmm... okay... I guess I should Let me begin by offering you a sincere "Hello and how are you today?" I hope the weather is nice when and where you are. There is something about it which can make or break a day. The tussle between working with and against it can leave a mark on the soul. But, there is a certain type of comfort to be had when you acknowledge it will always win against the human race. Jammy dodger? Would you like sugar in your tea? -Is that the doorbell? Excuse me, I'm just going to see whom it is -- or is it who? - -... \ No newline at end of file +Is that the doorbell? Excuse me, I'm just going to see whom it is -- or is it who? \ No newline at end of file diff --git a/WetPancake/WetPancake.fsproj b/WetPancake/WetPancake.fsproj index a7c42d9..e5d52ce 100644 --- a/WetPancake/WetPancake.fsproj +++ b/WetPancake/WetPancake.fsproj @@ -51,10 +51,18 @@ - - - - + + PreserveNewest + + + PreserveNewest + + + PreserveNewest + + + PreserveNewest +