edge case identifiers, simple function parsing

lang/tests/tokens.rs

@@ -138,6 +138,26 @@ fn main() {
             Lexeme(30, "number12345"),
             Lexeme(30, "____"),
             Lexeme(30, "_"),
+            Lexeme(17, ""), Lexeme(30, "leading-minus"),
+            Lexeme(30, "trailing-minus-"),
+        ]);
+
+        eprint!("Initializing tokeniser.. ");
+        tokeniser_init(c"tests/tokens/function.l".as_ptr());
+        eprintln!("ok.");
+
+        assert_eq!(&collect_tokens()[..], &[
+            Lexeme(4, ""),
+            Lexeme(30, "my-function"),
+            Lexeme(19, ""),
+            Lexeme(18, ""),
+            Lexeme(12, ""),
+            Lexeme(11, ""),
+            Lexeme(21, ""),
+            Lexeme(5, ""),
+            Lexeme(10, ""),
+            Lexeme(23, ""),
+            Lexeme(20, ""),
             ]);
 
         eprintln!("Finished tokenising.");

lang/tests/tokens/identifier.l

@@ -5,3 +5,5 @@ mixedCASEIdent
 number12345
 ____
 _
+-leading-minus
+trailing-minus-