diff options
author | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-09-30 13:03:52 +0000 |
---|---|---|
committer | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-09-30 13:03:52 +0000 |
commit | da0fbcf750b224a536d3d7c0808e9de7ee9f5eb7 (patch) | |
tree | b506875bc302fee6629fb2a88d4f5ca21ede6241 | |
parent | 5ad2c73eefbefc7840095a6bafb14776ad3ae2fe (diff) | |
download | mpfr-da0fbcf750b224a536d3d7c0808e9de7ee9f5eb7.tar.gz |
Add new test (One failed).
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3015 280ebfd0-de03-0410-8827-d642c229c3f4
-rw-r--r-- | tests/tget_str.c | 184 |
1 files changed, 184 insertions, 0 deletions
diff --git a/tests/tget_str.c b/tests/tget_str.c index c8d13bbaa..e644bc4ea 100644 --- a/tests/tget_str.c +++ b/tests/tget_str.c @@ -239,6 +239,190 @@ check_small (void) exit (1); } mpfr_free_str (s); + mpfr_set_str_binary (x, "10000001001001001100011101010011011011111000011000100E93"); + s = mpfr_get_str (NULL, &e, 10, 2, x, GMP_RNDU); + if (strcmp (s, "46") || e != 44) + { + printf ("Error in mpfr_get_str (8): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10010001111100000111001111010101001010000010111010101E55"); + s = mpfr_get_str (NULL, &e, 10, 2, x, GMP_RNDN); + if (strcmp (s, "19") || e != 33) + { + printf ("Error in mpfr_get_str (9): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11011001010010111110010101101100111110111000010110110E44"); + s = mpfr_get_str (NULL, &e, 10, 3, x, GMP_RNDN); + if (strcmp (s, "135") || e != 30) + { + printf ("Error in mpfr_get_str (10): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11101111101000001011100001111000011111101111011001100E72"); + s = mpfr_get_str (NULL, &e, 10, 4, x, GMP_RNDN); + if (strcmp (s, "3981") || e != 38) + { + printf ("Error in mpfr_get_str (11): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10011001001100100010111100001101110101001001111110000E46"); + s = mpfr_get_str (NULL, &e, 10, 5, x, GMP_RNDN); + if (strcmp (s, "37930") || e != 30) + { + printf ("Error in mpfr_get_str (12): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10001100110111001011011110011011011101100011010001011E-72"); + s = mpfr_get_str (NULL, &e, 10, 6, x, GMP_RNDN); + if (strcmp (s, "104950") || e != -5) + { + printf ("Error in mpfr_get_str (13): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10100100001011001000011001101101000110100110000010111E89"); + s = mpfr_get_str (NULL, &e, 10, 7, x, GMP_RNDN); + if (strcmp (s, "3575392") || e != 43) + { + printf ("Error in mpfr_get_str (14): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11000011011110110010100110001010000001010011001011001E-73"); + s = mpfr_get_str (NULL, &e, 10, 8, x, GMP_RNDN); + if (strcmp (s, "72822386") || e != -6) + { + printf ("Error in mpfr_get_str (15): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10101010001101000111001100001000100011100010010001010E78"); + s = mpfr_get_str (NULL, &e, 10, 9, x, GMP_RNDN); + if (strcmp (s, "180992873") || e != 40) + { + printf ("Error in mpfr_get_str (16): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10110111001000100000001101111001100101101110011011101E91"); + s = mpfr_get_str (NULL, &e, 10, 10, x, GMP_RNDN); + if (strcmp (s, "1595312255") || e != 44) + { + printf ("Error in mpfr_get_str (17): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10011101010111101111000100111011101011110100110110101E93"); + s = mpfr_get_str (NULL, &e, 10, 11, x, GMP_RNDN); + if (strcmp (s, "54835744350") || e != 44) + { + printf ("Error in mpfr_get_str (18): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10011101010111101111000100111011101011110100110110101E92"); + s = mpfr_get_str (NULL, &e, 10, 12, x, GMP_RNDN); + if (strcmp (s, "274178721752") || e != 44) + { + printf ("Error in mpfr_get_str (19): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10011101010111101111000100111011101011110100110110101E91"); + s = mpfr_get_str (NULL, &e, 10, 13, x, GMP_RNDN); + if (strcmp (s, "1370893608762") || e != 44) + { + printf ("Error in mpfr_get_str (20): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10010011010110011100010010100101100011101000011111111E92"); + s = mpfr_get_str (NULL, &e, 10, 14, x, GMP_RNDN); + if (strcmp (s, "25672105101864") || e != 44) + { + printf ("Error in mpfr_get_str (21): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "100110111110110001000101110100100101101000011111001E87"); + s = mpfr_get_str (NULL, &e, 10, 15, x, GMP_RNDN); + if (strcmp (s, "212231308858721") || e != 42) + { + printf ("Error in mpfr_get_str (22): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10001101101011010001111110000111010111010000110101010E80"); + s = mpfr_get_str (NULL, &e, 10, 16, x, GMP_RNDN); + if (strcmp (s, "6026241735727920") || e != 40) + { + printf ("Error in mpfr_get_str (23): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "100010001011101001110101000110011001001000110001001E-81"); + s = mpfr_get_str (NULL, &e, 10, 17, x, GMP_RNDN); + if (strcmp (s, "49741483709103481") || e != -9) + { + printf ("Error in mpfr_get_str (24): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11000100001001001110111010011001111001001010110101111E-101"); + s = mpfr_get_str (NULL, &e, 10, 7, x, GMP_RNDN); + if (strcmp (s, "2722049") || e != -14) + { + printf ("Error in mpfr_get_str (25): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11111001010011100101000001111111110001001001110110001E-135"); + s = mpfr_get_str (NULL, &e, 10, 8, x, GMP_RNDN); + if (strcmp (s, "20138772") || e != -24) + { + printf ("Error in mpfr_get_str (26): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11111001010011100101000001111111110001001001110110001E-136"); + s = mpfr_get_str (NULL, &e, 10, 9, x, GMP_RNDN); + if (strcmp (s, "100693858") || e != -24) + { + printf ("Error in mpfr_get_str (27): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10001000001110010110001011111011111011011010000110001E-110"); + s = mpfr_get_str (NULL, &e, 10, 14, x, GMP_RNDN); + if (strcmp (s, "36923634350619") || e != -17) + { + printf ("Error in mpfr_get_str (28): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "11001100010111000111100010000110011101110001000101111E-87"); + s = mpfr_get_str (NULL, &e, 10, 16, x, GMP_RNDN); + if (strcmp (s, "4646636036100804") || e != -10) + { + printf ("Error in mpfr_get_str (29): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_str_binary (x, "10011111001111110100001001010111111011010101111111000E-99"); + s = mpfr_get_str (NULL, &e, 10, 17, x, GMP_RNDN); + if (strcmp (s, "88399901882446712") || e != -14) + { + printf ("Error in mpfr_get_str (30): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); mpfr_set_prec (x, 45); mpfr_set_str_binary (x, "1E45"); |