[PATCH 3/3] vbscript: Accept "><" as inequality operator.

[Nikolay Sivov]

From: Nikolay Sivov

Signed-off-by: Nikolay Sivov 
---
 dlls/vbscript/lex.c          | 6 +++++-
 dlls/vbscript/tests/lang.vbs | 4 ++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/dlls/vbscript/lex.c b/dlls/vbscript/lex.c
index f425b816cb0..38ee4a5fd4b 100644
--- a/dlls/vbscript/lex.c
+++ b/dlls/vbscript/lex.c
@@ -500,9 +500,13 @@ static int parse_next_token(void *lval, unsigned *loc, parser_ctx_t *ctx)
         }
         return '<';
     case '>':
-        if(*++ctx->ptr == '=') {
+        switch(*++ctx->ptr) {
+        case '=':
             ctx->ptr++;
             return tGTEQ;
+        case '<':
+            ctx->ptr++;
+            return tNEQ;
         }
         return '>';
     default:
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index a2622f59bd9..0e8dae4049f 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -181,6 +181,10 @@ Call ok(1 <= 2, "! 1 <= 2")
 Call ok(2 <= 2, "! 2 <= 2")
 Call ok(1 =< 2, "! 1 =< 2")
 Call ok(2 =< 2, "! 2 =< 2")
+Call ok(not (2 >< 2), "2 >< 2")
+Call ok(2 >< 1, "! 2 >< 1")
+Call ok(not (2 <> 2), "2 <> 2")
+Call ok(2 <> 1, "! 2 <> 1")

Call ok(isNull(0 = null), "'(0 = null)' is not null")
 Call ok(isNull(null = 1), "'(null = 1)' is not null")