diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index af0472c8..e8b5b195 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -1761,6 +1761,9 @@ Mathematica:
   - .ma
   - .nb
   - .nbp
+  - .wl
+  - .mt
+  - .wlt
   aliases:
   - mma
   ace_mode: text
diff --git a/samples/Mathematica/UnitTest.wlt b/samples/Mathematica/UnitTest.wlt
new file mode 100644
index 00000000..21e67951
--- /dev/null
+++ b/samples/Mathematica/UnitTest.wlt
@@ -0,0 +1,17 @@
+BeginTestSection["Untitled-5"]
+
+VerificationTest[(* 1 *)
+	RotationMatrix[phi]
+	,
+	List[List[Cos[phi], Times[-1, Sin[phi]]], List[Sin[phi], Cos[phi]]]	
+]
+
+VerificationTest[(* 2 *)
+	Times[1, Power[Plus[a, Times[-1, a]], -1]]
+	,
+	ComplexInfinity
+	,
+	{Power::infy}
+]
+
+EndTestSection[]