Browse Source

Added test-post.txt to default txt files.

Unit tests, also, included.
master
Craig Oates 6 years ago
parent
commit
b93b3fedad
  1. 1
      TestCentre/TestCentre.fsproj
  2. 3
      TestCentre/TestingConstants.fs
  3. 13
      TestCentre/TextFiles/test-post.txt
  4. 9
      TestCentre/UnitTests.fs
  5. 13
      WetPancake/TextFiles/test-post.txt
  6. 1
      WetPancake/WetPancake.fsproj

1
TestCentre/TestCentre.fsproj

@ -58,6 +58,7 @@
<Content Include="TextFiles\desktop-clock-info.txt" />
<Content Include="TextFiles\console-waterworks-announcement.txt" />
<Content Include="TextFiles\word-generator.txt" />
<Content Include="TextFiles\test-post.txt" />
<Compile Include="AssemblyInfo.fs" />
<Compile Include="TestingConstants.fs" />
<Compile Include="UnitTests.fs" />

3
TestCentre/TestingConstants.fs

@ -8,3 +8,6 @@ let ConsoleWaterworks = __SOURCE_DIRECTORY__ + @"\TextFiles\console-waterworks-
[<Literal>]
let WordGenerator = __SOURCE_DIRECTORY__ + @"\TextFiles\word-generator.txt"
[<Literal>]
let TestPost = __SOURCE_DIRECTORY__ + @"\TextFiles\test-post.txt"

13
TestCentre/TextFiles/test-post.txt

@ -0,0 +1,13 @@
This is a test post for testing inner-page navigation, in the Writing section. Please ignore this post. It is only here for testing purposes. You are free to continue reading if you want but I can assure you no manner of meaningful meaning will arrive.
This is a piece of writing, which offers you nothing in return for your time spent reading it. This is selfish, in many ways, and the piece should show remorse or even shame. But, as you might have guessed, a piece of writing does not have feelings. Imagine if it did, though. Think of all the bizarre situations you would partake in. What a magical mind-quest you could have...
I see you have continued on this path to nothingness... How would you like this to end? I am at a lost so please tell me. Oh, wait... I, the writer or is it waiter? have written this at a time when you were not present. So, you have no way of communicating your goals with me -- that is a pity. Seeing as I do not know how you would like me to conclude this moment, I will fall-back to the truth -- yet again. There is no meaning here.
Wow, you really are sticking around, aren't you? Hmm... okay... I guess I should make you take your shoes off and offer you a brew. Come on then! Let's be 'avin' yea! Come in! Come in! Let's get down and dirty in the minutiae...
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?
...

9
TestCentre/UnitTests.fs

@ -26,6 +26,10 @@
let result = File.Exists WordGenerator
Assert.Equal(true, result);
[<Fact>]
let ``test-post-txt can be found`` () =
let result = File.Exists TestPost
Assert.Equal(true, result)
[<Fact>]
let ``Request Random Text does not generate a null`` () =
@ -50,4 +54,9 @@
[<Fact>]
let ``Request Text From File does not generate a null for word-generator-txt`` () =
let result = Pancake.RequestTextFromFile 5 5 WordGenerator
Assert.NotNull result
[<Fact>]
let ``Request Test From File does not generate a null for test-post-txt``() =
let result = Pancake.RequestTextFromFile 5 5 TestPost
Assert.NotNull result

13
WetPancake/TextFiles/test-post.txt

@ -0,0 +1,13 @@
This is a test post for testing inner-page navigation, in the Writing section. Please ignore this post. It is only here for testing purposes. You are free to continue reading if you want but I can assure you no manner of meaningful meaning will arrive.
This is a piece of writing, which offers you nothing in return for your time spent reading it. This is selfish, in many ways, and the piece should show remorse or even shame. But, as you might have guessed, a piece of writing does not have feelings. Imagine if it did, though. Think of all the bizarre situations you would partake in. What a magical mind-quest you could have...
I see you have continued on this path to nothingness... How would you like this to end? I am at a lost so please tell me. Oh, wait... I, the writer or is it waiter? have written this at a time when you were not present. So, you have no way of communicating your goals with me -- that is a pity. Seeing as I do not know how you would like me to conclude this moment, I will fall-back to the truth -- yet again. There is no meaning here.
Wow, you really are sticking around, aren't you? Hmm... okay... I guess I should make you take your shoes off and offer you a brew. Come on then! Let's be 'avin' yea! Come in! Come in! Let's get down and dirty in the minutiae...
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?
...

1
WetPancake/WetPancake.fsproj

@ -54,6 +54,7 @@
<Content Include="TextFiles\desktop-clock-info.txt" />
<Content Include="TextFiles\console-waterworks-announcement.txt" />
<Content Include="TextFiles\word-generator.txt" />
<Content Include="TextFiles\test-post.txt" />
<Compile Include="AssemblyInfo.fs" />
<Compile Include="SystemServices.fs" />
<Compile Include="DataAccess.fs" />

Loading…
Cancel
Save