oleaut32 tests: zero exponents

[Walt Ogburn]

Changelog:
Test zero exponents with and without signs.

- Walter


Index: dlls/oleaut32/tests/vartest.c
===================================================================
RCS file: /home/wine/wine/dlls/oleaut32/tests/vartest.c,v
retrieving revision 1.30
diff -u -r1.30 vartest.c
--- dlls/oleaut32/tests/vartest.c       13 Aug 2004 19:49:53 -0000
1.30
+++ dlls/oleaut32/tests/vartest.c       18 Oct 2004 17:29:08 -0000
@@ -972,6 +972,20 @@
   EXPECT(1,NUMPRS_EXPONENT,NUMPRS_EXPONENT,5,0,1);
   EXPECT2(1,FAILDIG);

+  /* The same for zero exponents */
+  CONVERT("1e0", NUMPRS_EXPONENT);
+  EXPECT(1,NUMPRS_EXPONENT,NUMPRS_EXPONENT,3,0,0);
+  EXPECT2(1,FAILDIG);
+
+  /* Sign on a zero exponent doesn't matter */
+  CONVERT("1e+0", NUMPRS_EXPONENT);
+  EXPECT(1,NUMPRS_EXPONENT,NUMPRS_EXPONENT,4,0,0);
+  EXPECT2(1,FAILDIG);
+
+  CONVERT("1e-0", NUMPRS_EXPONENT);
+  EXPECT(1,NUMPRS_EXPONENT,NUMPRS_EXPONENT,4,0,0);
+  EXPECT2(1,FAILDIG);
+
   /* Doesn't consume a real number exponent */
   CONVERT("1e1.", NUMPRS_EXPONENT);
   EXPECT(1,NUMPRS_EXPONENT,NUMPRS_EXPONENT,3,0,1);