funclang series5: Added tests for loopup function.

funclang-taddeus/series5/test_tree.ml

@@ -12,4 +12,16 @@ let a = insert a 11
 let a = insert a 15
 let a = insert a 6
 let a = insert a 22
-let a = insert a 27
+let a = insert a 27;;
+
+(* Lookup some values that are in the tree *)
+assert (lookup 13 a);;
+assert (lookup 1 a);;
+assert (lookup 6 a);;
+assert (lookup 27 a);;
+
+(* Lookup some values that are not in the tree *)
+assert (not (lookup 2 a));;
+assert (not (lookup 64 a));;
+assert (not (lookup 48 a));;
+assert (not (lookup 12 a));;