summaryrefslogtreecommitdiff
path: root/tests/tget_str.c
diff options
context:
space:
mode:
authorzimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4>1999-06-25 13:01:20 +0000
committerzimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4>1999-06-25 13:01:20 +0000
commit05b46ea57349880125de275af26c58d1f0304e96 (patch)
tree310b7b702af44112a0752e46d6612d96800e32e1 /tests/tget_str.c
parent9c39952768669cae26fed7acd18811fe7aae4d20 (diff)
downloadmpfr-05b46ea57349880125de275af26c58d1f0304e96.tar.gz
added pointer to exponent, removed test with sprintf
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@185 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tget_str.c')
-rw-r--r--tests/tget_str.c13
1 files changed, 2 insertions, 11 deletions
diff --git a/tests/tget_str.c b/tests/tget_str.c
index 676cb5cb0..10d9f2d26 100644
--- a/tests/tget_str.c
+++ b/tests/tget_str.c
@@ -31,24 +31,15 @@ double drand()
check(d, rnd) double d; unsigned char rnd;
{
- mpfr_t x; char *str, str2[30]; int l, l2;
+ mpfr_t x; char *str, str2[30]; int l, l2; mp_exp_t e;
mpfr_init2(x, 53);
mpfr_set_d(x, d, rnd);
- str = mpfr_get_str(NULL, NULL, 10, 5, x, rnd);
+ str = mpfr_get_str(NULL, &e, 10, 5, x, rnd);
mpfr_set_machine_rnd_mode(rnd);
sprintf(str2, "%1.4e", d);
l2 = strlen(str2);
l = strlen(str);
- if (l!=l2) printf("l=%d l2=%d\n",l,l2);
- if (str2[l2-3]=='-' && str2[l2-2]=='0' && str2[l2-1]=='0')
- str2[l2-3]='+'; /* rule for sign of exponent 0 ? */
- if (strcmp(str, str2)) {
- printf("Error in mpfr_get_str for d=%s=",str2);
- print_double(d);
- printf("\ngot %s\n", str);
- exit(1);
- }
mpfr_clear(x);
free(str);
}