Added a couple more tests for table-from-row brownplt#1758

- a (second) test that checks all values are raw-rows
- one that checks that the raw-rows contain only tuples

tests/pyret/tests/test-tables.arr

@@ -693,6 +693,17 @@ check "table-from-rows":
       [raw-row: {"A"; 5}, {"B"; 7}, {"C"; 8}],
       [raw-row: {"A"; 1}, {"B"; 2}, {"C"; 3}]]]
     raises "is-raw-array-of-rows"
+
+  [table-from-rows:
+    1, [raw-row: {"A"; 1}, {"B"; 2}],
+    false, [raw-row: {"A"; 3}, {"B"; 4}],
+    "non-row string", [raw-row: {"A"; 5}, {"B"; 6}]]
+    raises "is-raw-array-of-rows"
+
+  [table-from-rows:
+    [raw-row: 5, {"B"; 7}, {"C"; 8}],
+    [raw-row: {"A"; 1}, {"B"; 2}, {"C"; 3}]]
+    raises "KeyValPair"
 end
 
 table-from-column = TS.table-from-column