Mercurial > octave
changeset 25673:a8b0fb44ed94 stable
add some bug numbers to the test suite
* oct-inttypes.cc, betainc.m, native2unicode.m, unicode2native.m,
io.tst: Add bug numbers for some tests.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 26 Jul 2018 09:30:37 -0400 |
parents | c952d8bf1a1f |
children | 1ba60c0455f4 20aa564402c4 |
files | liboctave/util/oct-inttypes.cc scripts/specfun/betainc.m scripts/strings/native2unicode.m scripts/strings/unicode2native.m test/io.tst |
diffstat | 5 files changed, 24 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/util/oct-inttypes.cc Wed Jul 25 17:28:04 2018 -0400 +++ b/liboctave/util/oct-inttypes.cc Thu Jul 26 09:30:37 2018 -0400 @@ -825,23 +825,23 @@ %!assert ((int64 (2**62)+1)**1, int64 (2**62)+1) %!assert ((int64 (2**30)+1)**2, int64 (2**60+2**31) + 1) -%!assert (uint8 (char (128)), uint8 (128)) -%!assert (uint8 (char (255)), uint8 (255)) -%!assert (int8 (char (128)), int8 (128)) -%!assert (int8 (char (255)), int8 (255)) +%!assert <54382> (uint8 (char (128)), uint8 (128)) +%!assert <54382> (uint8 (char (255)), uint8 (255)) +%!assert <54382> (int8 (char (128)), int8 (128)) +%!assert <54382> (int8 (char (255)), int8 (255)) -%!assert (uint16 (char (128)), uint16 (128)) -%!assert (uint16 (char (255)), uint16 (255)) -%!assert (int16 (char (128)), int16 (128)) -%!assert (int16 (char (255)), int16 (255)) +%!assert <54382> (uint16 (char (128)), uint16 (128)) +%!assert <54382> (uint16 (char (255)), uint16 (255)) +%!assert <54382> (int16 (char (128)), int16 (128)) +%!assert <54382> (int16 (char (255)), int16 (255)) -%!assert (uint32 (char (128)), uint32 (128)) -%!assert (uint32 (char (255)), uint32 (255)) -%!assert (int32 (char (128)), int32 (128)) -%!assert (int32 (char (255)), int32 (255)) +%!assert <54382> (uint32 (char (128)), uint32 (128)) +%!assert <54382> (uint32 (char (255)), uint32 (255)) +%!assert <54382> (int32 (char (128)), int32 (128)) +%!assert <54382> (int32 (char (255)), int32 (255)) -%!assert (uint64 (char (128)), uint64 (128)) -%!assert (uint64 (char (255)), uint64 (255)) -%!assert (int64 (char (128)), int64 (128)) -%!assert (int64 (char (255)), int64 (255)) +%!assert <54382> (uint64 (char (128)), uint64 (128)) +%!assert <54382> (uint64 (char (255)), uint64 (255)) +%!assert <54382> (int64 (char (128)), int64 (128)) +%!assert <54382> (int64 (char (255)), int64 (255)) */
--- a/scripts/specfun/betainc.m Wed Jul 25 17:28:04 2018 -0400 +++ b/scripts/specfun/betainc.m Thu Jul 26 09:30:37 2018 -0400 @@ -201,7 +201,7 @@ %!assert (betainc (0.001, 20, 30), 2.750687665855991e-47, -3e-14); %!assert (betainc (0.0001, 20, 30), 2.819953178893307e-67, -7e-14); -%!assert (betainc (0.99, 20, 30, "upper"), 1.5671643161872703e-47, -5e-14); +%!assert <54383> (betainc (0.99, 20, 30, "upper"), 1.5671643161872703e-47, -5e-14); %!assert (betainc (0.999, 20, 30, "upper"), 1.850806276141535e-77, -7e-14); %!assert (betainc (0.5, 200, 300), 0.9999964565197356, -1e-15); %!assert (betainc (0.5, 200, 300, "upper"), 3.54348026439253e-06, -3e-13);
--- a/scripts/strings/native2unicode.m Wed Jul 25 17:28:04 2018 -0400 +++ b/scripts/strings/native2unicode.m Thu Jul 26 09:30:37 2018 -0400 @@ -73,14 +73,14 @@ ## "ЄЅІЇЈЉЊ" -%!assert (double (native2unicode (164:170, 'ISO-8859-5')), +%!assert <54384> (double (native2unicode (164:170, 'ISO-8859-5')), %! [208 132 208 133 208 134 208 135 208 136 208 137 208 138]); ## ["ЄЅІ" 0 "ЇЈЉЊ"] -%!assert (double (native2unicode ([164:166 0 167:170], 'ISO-8859-5')), +%!assert <54384> (double (native2unicode ([164:166 0 167:170], 'ISO-8859-5')), %! [208 132 208 133 208 134 0 208 135 208 136 208 137 208 138]); %!assert (native2unicode ("foobar"), "foobar"); -%!assert (double (native2unicode ([0 0 120.3 0 0 122.6 0 0])), +%!assert <54384> (double (native2unicode ([0 0 120.3 0 0 122.6 0 0])), %! [0 0 120 0 0 123 0 0]); %!error <Invalid call> native2unicode ()
--- a/scripts/strings/unicode2native.m Wed Jul 25 17:28:04 2018 -0400 +++ b/scripts/strings/unicode2native.m Thu Jul 26 09:30:37 2018 -0400 @@ -59,8 +59,8 @@ endfunction -%!assert (unicode2native ("ЄЅІЇЈЉЊ", "ISO-8859-5"), uint8 (164:170)); -%!assert (unicode2native (["ЄЅІ" 0 "ЇЈЉЊ"], "ISO-8859-5"), uint8 ([164:166 0 167:170])); +%!assert <54384> (unicode2native ("ЄЅІЇЈЉЊ", "ISO-8859-5"), uint8 (164:170)); +%!assert <54384> (unicode2native (["ЄЅІ" 0 "ЇЈЉЊ"], "ISO-8859-5"), uint8 ([164:166 0 167:170])); %!error <Invalid call> unicode2native () %!error <Invalid call> unicode2native ('a', 'ISO-8859-1', 'test')
--- a/test/io.tst Wed Jul 25 17:28:04 2018 -0400 +++ b/test/io.tst Thu Jul 26 09:30:37 2018 -0400 @@ -571,7 +571,7 @@ %! unlink (nm); %! endif -%!test +%!test <54386> %! x = char (128:255)'; %! nm = tempname (); %! mode = "wb"; @@ -588,7 +588,7 @@ %! else %! y = fread (id, Inf, "uchar=>char"); %! fclose (id); -%! assert (x, y); +%! assert (y, x); %! unlink (nm); %! endif %! endif