* Add support for extented variable for M_[F]PRINT

* Update documentation
* Add test.
This commit is contained in:
Patrick Pelissier committed 2021-07-01 00:13:31 +02:00
1 parent 3c83e4088c
commit 36003b6bb3
4 files changed
+51 -21

No files matched your search

+14
View File
@@ -271,6 +271,20 @@ static void test_mpz(void)
assert (list_mpz_equal_p (v, list2));
list_mpz_clear(list2);
// Print using M_FPRINT
f = m_core_fopen ("a-mlist.dat", "wt");
if (!f) abort();
M_FPRINT(f, (v, LIST_OPLIST(list_mpz, TESTOBJ_OPLIST)) );
fclose (f);
list_mpz_init(list2);
f = m_core_fopen ("a-mlist.dat", "rt");
b = list_mpz_in_str (list2, f);
assert (b == true);
fclose(f);
assert (list_mpz_equal_p (v, list2));
list_mpz_clear(list2);
list_mpz_clean(v);
list_mpz_init(list2);
M_LET(str, STRING_OPLIST) {