diff --git a/samples/Mathematica/TestArithmetic.mt b/samples/Mathematica/TestArithmetic.mt
new file mode 100644
index 00000000..40cbe122
--- /dev/null
+++ b/samples/Mathematica/TestArithmetic.mt
@@ -0,0 +1 @@
+Test[1 + 2, 3, TestID -> "One plus two"]
diff --git a/samples/Mathematica/TestString.mt b/samples/Mathematica/TestString.mt
new file mode 100644
index 00000000..c0d61036
--- /dev/null
+++ b/samples/Mathematica/TestString.mt
@@ -0,0 +1 @@
+Test[1"a" <> "b", "ab", TestID -> "Concat \"a\" and \"b\""]
diff --git a/samples/Mathematica/TestSuite.mt b/samples/Mathematica/TestSuite.mt
new file mode 100644
index 00000000..b18ae062
--- /dev/null
+++ b/samples/Mathematica/TestSuite.mt
@@ -0,0 +1,5 @@
+TestSuite[
+    { "TestArithmetic.mt"
+    , "TestString.mt"
+    }
+]