Merge pull request #300 from dishmint:dishmint/issue296

Update Tests to use M14 Test framework
dishmint · Feb 3, 2024 · 8065a12 · 8065a12
2 parents 72d0adc + 300f399
commit 8065a12
Show file tree

Hide file tree

Showing 27 changed files with 9,166 additions and 4,401 deletions.
diff --git a/FaizonZaman/LexicalCases/PacletInfo.wl b/FaizonZaman/LexicalCases/PacletInfo.wl
@@ -8,7 +8,8 @@ PacletObject[
     "License" -> "MIT",
     "PublisherID" -> "FaizonZaman",
     "Version" -> "1.5.0",
-    "WolframVersion" -> "13.0+",
+    "WolframVersion" -> "13.3+",
+    "PrimaryContext" -> "FaizonZaman`LexicalCases`",
     "Extensions" -> {
       {
         "Kernel",

diff --git a/FaizonZaman/LexicalCases/ResourceDefinition.nb b/FaizonZaman/LexicalCases/ResourceDefinition.nb
diff --git a/FaizonZaman/LexicalCases/Tests/LexicalCases.wlt b/FaizonZaman/LexicalCases/Tests/LexicalCases.wlt
@@ -2,44 +2,44 @@ BeginTestSection["LexicalCases"]
 
 (* STRINGS *)
 (* Short Strings *)
-VerificationTest[
+TestCreate[
 	LexicalCases[$SampleSentence, $SampleStringExpression]["Data"],
 	{<|"Match" -> "best key lime pie", "Position" -> {{5, 21}}|>},
 	"TestID" -> "ShortStringTest1"
 	]
 
 (* Documentation examples - BoundToken *)
-VerificationTest[
+TestCreate[
 	LexicalCases["The great machine whirs. The weak machines sputter.", "great " ~~ BoundToken["machine"]]["Data"],
 	{<|"Match" -> "great machine", "Position" -> {{5, 17}}|>},
 	"TestID" -> "LexicalCases-DocExamples-BoundToken-Test1"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases["The great machine whirs. The weak machines sputter.", "great " ~~ BoundToken["machine"]]["Data"],
 	{<|"Match" -> "great machine", "Position" -> {{5, 17}}|>},
 	"TestID" -> "LexicalCases-DocExamples-BoundToken-Test1"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases["The great machine whirs. The weak machines sputter.", "weak " ~~ BoundToken["machines"]]["Data"],
 	{<|"Match" -> "weak machines", "Position" -> {{30, 42}}|>},
 	"TestID" -> "LexicalCases-DocExamples-BoundToken-Test2"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases["The great machine whirs. The weak machines sputter.", "weak " ~~ BoundToken[RegularExpression["\\w+"]]]["Data"],
 	{<|"Match" -> "weak machines", "Position" -> {{30, 42}}|>},
 	"TestID" -> "LexicalCases-DocExamples-BoundToken-Test3"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases["He was number 1!", "number " ~~ BoundToken[DigitCharacter]]["Data"],
 	{<|"Match" -> "number 1", "Position" -> {{8, 15}}|>},
 	"TestID" -> "LexicalCases-DocExamples-BoundToken-Test4"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases["The great machine whirs. The weak machines sputter.", ("great" | "weak") ~~ " " ~~ BoundToken["machine" | "machines"]]["Data"],
 	{
 		<|"Match" -> "great machine", "Position" -> {{5, 17}}|>,
@@ -50,7 +50,7 @@ VerificationTest[
 
 (* Documentation examples - WordToken *)
 
-VerificationTest[
+TestCreate[
 	LexicalCases[$SampleParagraph, WordToken[2] ~~ " screen"]["Data"],
 	{
 		<|"Match" -> "a blank screen", "Position" -> {{144, 157}}|>,
@@ -60,7 +60,7 @@ VerificationTest[
 	"TestID" -> "LexicalCases-DocExamples-WordToken-Test1"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases[$SampleParagraph, WordToken[2, 4] ~~ " screen"]["Data"],
 	{
 		<|"Match" -> "sat with a blank screen", "Position" -> {{135, 157}}|>,
@@ -70,7 +70,7 @@ VerificationTest[
 	"TestID" -> "LexicalCases-DocExamples-WordToken-Test2"
 	]
 
-VerificationTest[
+TestCreate[
 	Length[
 		Join@*Flatten@{
 			LexicalCases[$SampleParagraph, WordToken[2] ~~ " screen"]["Data"],
@@ -87,7 +87,7 @@ VerificationTest[
 (* Documentation examples - OptionalToken *)
 
 
-VerificationTest[
+TestCreate[
 	LexicalCases["this is a cool string. this is a string.", "this is a" ~~ OptionalToken["cool"] ~~ "string"]["Data"],
 	{
 		<|"Match" -> "this is a cool string", "Position" -> {{1, 21}}|>,
@@ -97,7 +97,7 @@ VerificationTest[
 	]
 
 (* Documentation examples - Sandwich *)
-VerificationTest[
+TestCreate[
 	LexicalCases[$SampleParagraph, Sandwich[WordToken[2, "KeepContractions"], " he "]]["Data"],
 	{
   		<|"Match" -> "but here he sat with", "Position" -> {{123, 142}}|>,
@@ -107,20 +107,20 @@ VerificationTest[
 	"TestID" -> "LexicalCases-DocExamples-Sandwich-Test1"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases["a nice car is good.", Sandwich[w : WordToken[1], BoundToken["car"]] :> w],
 	LexicalCases["a nice car is good.", Sandwich[w : WordToken[1], BoundToken["car"]] :> w],
 	"TestID" -> "LexicalCases-DocExamples-Sandwich-Test2"
 	]
 
 (* Documentation examples - TextType *)
-VerificationTest[
+TestCreate[
 	LexicalCases[$SampleParagraph, adjective : TextType["Adjective"] ~~ " screen" :> adjective]["Data"],
 	{<|"Match" -> "blank", "Position" -> {{146, 157}, {181, 192}}|>},
 	"TestID" -> "LexicalCases-DocExamples-TextType-Test1"
 	]
 
-VerificationTest[
+TestCreate[
 	LexicalCases[$SampleParagraph, adjectiveOrDeterminer : TextType["Adjective" | "Determiner"] ~~ " screen" :> adjectiveOrDeterminer]["Data"],
 	{
 		<|"Match" -> "blank", "Position" -> {{146, 157}, {181, 192}}|>,
@@ -131,7 +131,7 @@ VerificationTest[
 
 (* FILES *)
 
-(* VerificationTest[
+(* TestCreate[
 	LexicalCases[$SampleFile, $SampleStringExpression]["Data"],
 	[[RESULT]],
 	"TestID" -> "ShortStringTest1"
@@ -140,7 +140,7 @@ VerificationTest[
 (* SearchIndexObjects *)
 
 
-(* VerificationTest[
+(* TestCreate[
 	LexicalCases[$SampleSearchIndexObject, $SampleStringExpression]["Data"],
 	[[RESULT]],
 	"TestID" -> "ShortStringTest1"
@@ -150,7 +150,7 @@ VerificationTest[
 (* WIKIPEDIA - should wiki tests be in a separate file?  *)
 
 
-(* VerificationTest[
+(* TestCreate[
 	LexicalCases[$SampleWikiQuery, $SampleWikiExpression]["Data"],
 	[[RESULT]],
 	"TestID" -> "ShortStringTest1"

diff --git a/FaizonZaman/LexicalCases/Tests/LexicalStructure.wlt b/FaizonZaman/LexicalCases/Tests/LexicalStructure.wlt
@@ -1,6 +1,6 @@
 BeginTestSection["LexicalStructure"]
 (* LexicalStructure *)
-VerificationTest[
+TestCreate[
 	LexicalStructure[StringExpression["computer" | "computers", TextType["Verb"]]],
 	TextElement[
 		List[

diff --git a/FaizonZaman/LexicalCases/Tests/Patterns.wlt b/FaizonZaman/LexicalCases/Tests/Patterns.wlt
@@ -3,69 +3,69 @@
 BeginTestSection["Pattrerns"]
 
 (* BoundToken *)
-VerificationTest[
+TestCreate[
 	BoundToken["machine"],
 	BoundToken["machine"],
     "TestID" -> "BoundToken-Test1"
 ]
 
-VerificationTest[
+TestCreate[
 	BoundToken["machine"|"machines"],
 	BoundToken["machine"|"machines"],
     "TestID" -> "BoundToken-Test2"
 ]
 
 (* WordToken *)
 
-VerificationTest[
+TestCreate[
 	WordToken[3],
 	WordToken[3],
     "TestID" -> "WordToken-Test1"
 ]
 
-VerificationTest[
+TestCreate[
 	WordToken[1,4],
 	WordToken[1,4],
     "TestID" -> "WordToken-Test2"
 ]
 
 (* OptionalToken *)
 
-VerificationTest[
+TestCreate[
 	OptionalToken[TextType["Adjective"]],
 	OptionalToken[TextType["Adjective"]],
     "TestID" -> "OptionalToken-Test1"
 ]
 
-VerificationTest[
+TestCreate[
 	OptionalToken[adjective : TextType["Adjective"] ~~ "sentence"],
 	OptionalToken[adjective : TextType["Adjective"] ~~ "sentence"],
     "TestID" -> "OptionalToken-Test2"
 ]
 
 (* TextType *)
 
-VerificationTest[
+TestCreate[
 	TextType["Adjective"],
 	TextType["Adjective"],
     "TestID" -> "TextType-Test1"
 ]
 
-VerificationTest[
+TestCreate[
 	TextType["Adjective"|"Noun"],
 	TextType["Adjective"|"Noun"],
     "TestID" -> "TextType-Test2"
 ]
 
 (* Sandwich *)
 
-VerificationTest[
+TestCreate[
 	Sandwich[TextType["Adjective"|"Noun"], " computer "],
 	(TextType["Adjective" | "Noun"] ~~ " computer " ~~ TextType["Adjective" | "Noun"]),
     "TestID" -> "Sandwich-Test1"
 ]
 
-VerificationTest[
+TestCreate[
 	Sandwich[OptionalToken[TextType["Adjective"|"Noun"]], " computer "],
 	(OptionalToken[TextType["Adjective" | "Noun"]] ~~ " computer " ~~ OptionalToken[TextType["Adjective" | "Noun"]]),
     "TestID" -> "Sandwich-Test2"
@@ -74,7 +74,7 @@ VerificationTest[
 
 (* LexicalPattern *)
 
-VerificationTest[
+TestCreate[
 	LexicalPattern["Alice " ~~ TextType["Verb"] ~~ TextType["Adverb"]],
 	LexicalPattern["Alice " ~~ TextType["Verb"] ~~ TextType["Adverb"]],
     "TestID" -> "LexicalPattern-Test1"