Add method _parse_str for array.

tests/test-marray.c

@@ -212,14 +212,33 @@ static void test_mpz(void)
   M_LET(str, STRING_OPLIST) {
     array_mpz_get_str(str, array1, false);
     assert (string_cmp_str (str, "[]") == 0);
+    const char *sp;
+    b = array_mpz_parse_str(array2, string_get_cstr(str), &sp);
+    assert(b);
+    assert(*sp == 0);
+    assert(array_mpz_equal_p(array1, array2));
+
     my_mpz_set_ui (z, 17);
     array_mpz_push_back (array1, z);
     array_mpz_get_str(str, array1, false);
     assert (string_cmp_str (str, "[17]") == 0);
+    b = array_mpz_parse_str(array2, string_get_cstr(str), &sp);
+    assert(b);
+    assert(*sp == 0);
+    assert(array_mpz_equal_p(array1, array2));
+
     my_mpz_set_ui (z, 42);
     array_mpz_push_back (array1, z);
     array_mpz_get_str(str, array1, true);
     assert (string_cmp_str (str, "[17][17,42]") == 0);
+    b = array_mpz_parse_str(array2, string_get_cstr(str), &sp);
+    assert(b);
+    assert(strcmp(sp, "[17,42]") == 0);
+    assert(!array_mpz_equal_p(array1, array2));
+    b = array_mpz_parse_str(array2, sp, &sp);
+    assert(b);
+    assert(strcmp(sp, "") == 0);
+    assert(array_mpz_equal_p(array1, array2));
     // NOTE: Not the same order than list...
     }