aichaos#82 Allow uppercase at object and minor indent fix

hungtu · hungtu · commit e604ff307df1 · 2017-02-24T22:19:53.000+01:00
diff --git a/rivescript/parser.py b/rivescript/parser.py
@@ -539,9 +539,9 @@ def check_syntax(self, cmd, line):
                 if search:
                     return "Topics should be lowercased and contain only numbers and letters"
             elif parts[0] == "object":
-                search = re.search(RE.name_syntax, line)
+                search = re.search(RE.obj_syntax, line) # Upper case is allowed
                 if search:
-                    return "Objects can only contain numbers and letters"  # TODO Acceptance of uppercase letter?
+                    return "Objects can only contain numbers and letters"
         elif cmd == '+' or cmd == '%' or cmd == '@':
             # + Trigger, % Previous, @ Redirect
             #   This one is strict. The triggers are to be run through the regexp engine,
diff --git a/rivescript/regexp.py b/rivescript/regexp.py
@@ -24,6 +24,7 @@ class RE(object):
     array       = re.compile(r'\@(.+?)\b')
     def_syntax  = re.compile(r'^.+(?:\s+.+|)\s*=\s*.+?$')
     name_syntax = re.compile(r'[^a-z0-9_\-\s]')
+    obj_syntax  = re.compile(r'[^A-Za-z0-9_\-\s]')
     utf8_trig   = re.compile(r'[A-Z\\.]')
     trig_syntax = re.compile(r'[^a-z0-9(\|)\[\]*_#@{}<>=\s]')
     cond_syntax = re.compile(r'^.+?\s*(?:==|eq|!=|ne|<>|<|<=|>|>=)\s*.+?=>.+?$')
diff --git a/tests/test_format_message.py b/tests/test_format_message.py
@@ -32,22 +32,28 @@ def test_format_triggers(self):
 
     def test_invalid_character_raise_exception(self):
         self.assertRaises(Exception, self.new, """
-                                + $hello
-                                - hi
-                            """)  # This test passes with `match`, which only check at the beginning
+            + $hello
+            - hi
+        """)  # This test passes with `match`, which only check at the beginning
         self.assertRaises(Exception, self.new, """
-                        + hello$
-                        - hi
-                    """)   # This test does not pass because the beginning is good, no $
+            + hello$
+            - hi
+        """)   # This test does not pass because the beginning is good, no $
         self.assertRaises(Exception, self.new, """
-                            > topic Greetings
-                                + hello
-                                - hi
-                            <topics
-                            """)
+            > topic Greetings
+                + hello
+                - hi
+            <topics
+        """)
         self.assertRaises(Exception, self.new, """
-                                    > object hash %perl
-                                      my ($rs, $args) = @_;
-                                      my $method = shift @{$args};
-                                    <object
-                                    """)  # Test for character violation in object, no %
+            > object hash %perl
+                my ($rs, $args) = @_;
+                my $method = shift @{$args};
+            <object
+        """)  # Test for character violation in object, no %
+        self.new("""
+            > object hash Perl
+                my ($rs, $args) = @_;
+                my $method = shift @{$args};
+            <object
+        """) # No exception raised for uppercase character in object
