From e827e98a6f51dc45c81b0de56aa3f09ffcb7b869 Mon Sep 17 00:00:00 2001
From: Paul Sokolovsky <pfalcon@users.sourceforge.net>
Date: Sat, 8 Feb 2014 22:55:00 +0200
Subject: [PATCH] Implement tuple comparison.

---
 py/objtuple.c                 | 21 +++++++++++++++
 tests/basics/tuple_compare.py | 50 +++++++++++++++++++++++++++++++++++
 2 files changed, 71 insertions(+)
 create mode 100644 tests/basics/tuple_compare.py

diff --git a/py/objtuple.c b/py/objtuple.c
index 3e5041c9dd..8c1320a5f7 100644
--- a/py/objtuple.c
+++ b/py/objtuple.c
@@ -74,6 +74,18 @@ static mp_obj_t tuple_make_new(mp_obj_t type_in, uint n_args, uint n_kw, const m
     }
 }
 
+// Don't pass RT_BINARY_OP_NOT_EQUAL here
+static bool tuple_cmp_helper(int op, mp_obj_t self_in, mp_obj_t another_in) {
+    assert(MP_OBJ_IS_TYPE(self_in, &tuple_type));
+    if (!MP_OBJ_IS_TYPE(another_in, &tuple_type)) {
+        return false;
+    }
+    mp_obj_tuple_t *self = self_in;
+    mp_obj_tuple_t *another = another_in;
+
+    return mp_seq_cmp_objs(op, self->items, self->len, another->items, another->len);
+}
+
 static mp_obj_t tuple_unary_op(int op, mp_obj_t self_in) {
     mp_obj_tuple_t *self = self_in;
     switch (op) {
@@ -102,6 +114,15 @@ static mp_obj_t tuple_binary_op(int op, mp_obj_t lhs, mp_obj_t rhs) {
             uint index = mp_get_index(o->base.type, o->len, rhs);
             return o->items[index];
         }
+        case RT_BINARY_OP_EQUAL:
+        case RT_BINARY_OP_LESS:
+        case RT_BINARY_OP_LESS_EQUAL:
+        case RT_BINARY_OP_MORE:
+        case RT_BINARY_OP_MORE_EQUAL:
+            return MP_BOOL(tuple_cmp_helper(op, lhs, rhs));
+        case RT_BINARY_OP_NOT_EQUAL:
+            return MP_BOOL(!tuple_cmp_helper(RT_BINARY_OP_EQUAL, lhs, rhs));
+
         default:
             // op not supported
             return NULL;
diff --git a/tests/basics/tuple_compare.py b/tests/basics/tuple_compare.py
new file mode 100644
index 0000000000..8bdb2bcf98
--- /dev/null
+++ b/tests/basics/tuple_compare.py
@@ -0,0 +1,50 @@
+print(() == ())
+print(() > ())
+print(() < ())
+print(() == (1,))
+print((1,) == ())
+print(() > (1,))
+print((1,) > ())
+print(() < (1,))
+print((1,) < ())
+print(() >= (1,))
+print((1,) >= ())
+print(() <= (1,))
+print((1,) <= ())
+
+print((1,) == (1,))
+print((1,) != (1,))
+print((1,) == (2,))
+print((1,) == (1, 0,))
+
+print((1,) > (1,))
+print((1,) > (2,))
+print((2,) > (1,))
+print((1, 0,) > (1,))
+print((1, -1,) > (1,))
+print((1,) > (1, 0,))
+print((1,) > (1, -1,))
+
+print((1,) < (1,))
+print((2,) < (1,))
+print((1,) < (2,))
+print((1,) < (1, 0,))
+print((1,) < (1, -1,))
+print((1, 0,) < (1,))
+print((1, -1,) < (1,))
+
+print((1,) >= (1,))
+print((1,) >= (2,))
+print((2,) >= (1,))
+print((1, 0,) >= (1,))
+print((1, -1,) >= (1,))
+print((1,) >= (1, 0,))
+print((1,) >= (1, -1,))
+
+print((1,) <= (1,))
+print((2,) <= (1,))
+print((1,) <= (2,))
+print((1,) <= (1, 0,))
+print((1,) <= (1, -1,))
+print((1, 0,) <= (1,))
+print((1, -1,) <= (1,))