Start testing

Author: rocky

Makefile

@@ -49,8 +49,8 @@ develop: pypi-setup
 install: pypi-setup
 	$(PYTHON) setup.py install
 
-# Run tests
-check: pytest doctest
+#: Run tests
+check: pytest
 
 #: Remove derived files
 clean: clean-pyc

admin-tools/.gitignore

@@ -0,0 +1 @@
+/.python-version

test/__init__.py

@@ -0,0 +1,2 @@
+#!/usr/bin/env python3
+# -*- coding: utf-8 -*-

test/helper.py

@@ -0,0 +1,16 @@
+from mathics.session import MathicsSession
+
+session = MathicsSession(add_builtin=True, catch_interrupt=False)
+
+def check_evaluation(str_expr: str, str_expected: str, message=""):
+    """Helper function to test that a WL expression against
+    its results"""
+    result = session.evaluate(str_expr)
+    print("XXX", result)
+    expected = session.evaluate(str_expected)
+    print("YYY", expected)
+
+    if message:
+        assert result == expected, "%s: got: %s" % (message, result)
+    else:
+        assert result == expected

test/test_natlang.py

@@ -0,0 +1,55 @@
+# -*- coding: utf-8 -*-
+from .helper import session, check_evaluation
+
+import sys
+from mathics.core.parser import parse, SingleLineFeeder
+from mathics.core.definitions import Definitions
+from mathics.core.evaluation import Evaluation
+import pytest
+
+def test_natlang():
+
+    session.evaluate(
+        """
+        LoadModule["pymathics.natlang"]
+        """
+        )
+
+    for str_expr, str_expected, message in (
+        (
+            'WordCount["A long time ago"]',
+            "4",
+            "WordCount",
+        ),
+        (
+            'TextWords["Hickory, dickory, dock! The mouse ran up the clock."]',
+            'System`List["Hickory", "dickory", "dock", "The", "mouse", "ran", "up", "the", "clock"]',
+            "TextWords",
+        ),
+        (
+            'TextSentences["Night and day. Day and night."]',
+            'System`List["Night and day.", "Day and night."]',
+            "TextSentences",
+        ),
+        (
+            'TextSentences["Mr. Jones met Mrs. Jones."]',
+            'System`List["Mr. Jones met Mrs. Jones."]',
+            "TextSentences with Abbreviations",
+        ),
+        (
+            'DeleteStopwords[{"Somewhere", "over", "the", "rainbow"}]',
+            'System`List["rainbow"]',
+            "DeleteStopWords",
+        ),
+        (
+            'WordFrequency["Apple Tree", "apple", IgnoreCase -> True]',
+            "0.5",
+            "WordFrequency",
+        ),
+        (
+            'TextCases["I was in London last year.", "Pronoun"]',
+            'System`List["I"]',
+            "TextCases",
+        ),
+    ):
+        check_evaluation(str_expr, str_expected, message)