changeset 26946:04e5cb5e2cb3

update bug status in tests * __ichol__.cc, file-io.cc, mappers.cc, oct-map.cc, syscalls.cc, asech.m, quadgk.m, deconv.m, poly.m, betainc.m, expint.m, gammainc.m, perms.m, native2unicode.m, bug-38236.tst, bug-47680.tst, bug-50716.tst, classdef.tst, classes.tst, for.tst, nest.tst, struct.tst: Update status of fixed bugs in tests.
author John W. Eaton <jwe@octave.org>
date Wed, 20 Mar 2019 02:27:30 +0000
parents 05db50358377
children 8f819b00b28e
files libinterp/corefcn/__ichol__.cc libinterp/corefcn/file-io.cc libinterp/corefcn/mappers.cc libinterp/corefcn/oct-map.cc libinterp/corefcn/syscalls.cc scripts/elfun/asech.m scripts/general/quadgk.m scripts/polynomial/deconv.m scripts/polynomial/poly.m scripts/specfun/betainc.m scripts/specfun/expint.m scripts/specfun/gammainc.m scripts/specfun/perms.m scripts/strings/native2unicode.m test/bug-38236/bug-38236.tst test/bug-47680/bug-47680.tst test/bug-50716/bug-50716.tst test/classdef/classdef.tst test/classes/classes.tst test/for.tst test/nest/nest.tst test/struct.tst
diffstat 22 files changed, 74 insertions(+), 74 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/corefcn/__ichol__.cc	Wed Mar 20 02:25:33 2019 +0000
+++ b/libinterp/corefcn/__ichol__.cc	Wed Mar 20 02:27:30 2019 +0000
@@ -453,7 +453,7 @@
 }
 
 /*
-%!test <51736>
+%!test <*51736>
 %! k = 4;
 %! n = 2^k;
 %! Afull = diag (ones (n,1)) / ...
--- a/libinterp/corefcn/file-io.cc	Wed Mar 20 02:25:33 2019 +0000
+++ b/libinterp/corefcn/file-io.cc	Wed Mar 20 02:27:30 2019 +0000
@@ -2235,37 +2235,37 @@
 %! ret = textscan (str, "%s", "delimiter", "\t");
 %! assert (ret, { {''; ''; 'a'; 'b'; 'c'} });
 
-%!test <52479>
+%!test <*52479>
 %! str = "\t\ta\tb\tc\n";
 %! ret = textscan (str, "%s", "delimiter", {"\t"});
 %! assert (ret, { {''; ''; 'a'; 'b'; 'c'} });
 
-%!test <52550>
+%!test <*52550>
 %! str = ",,1,2,3\n";
 %! obs = textscan (str, "%d", "delimiter", ",");
 %! assert (obs, { [0; 0; 1; 2; 3] });
 %! obs = textscan (str, "%d", "delimiter", {","});
 %! assert (obs, { [0; 0; 1; 2; 3] });
 
-%!test <52550>
+%!test <*52550>
 %! str = " , ,1,2,3\n";
 %! obs = textscan (str, "%d", "delimiter", ",");
 %! assert (obs, { [0; 0; 1; 2; 3] });
 %! textscan (str, "%d", "delimiter", {","});
 %! assert (obs, { [0; 0; 1; 2; 3] });
 
-%!test <52550>
+%!test <*52550>
 %! str = " 0 , 5+6j , -INF+INFj ,NaN,3\n";
 %! obs = textscan (str, "%f", "delimiter", ",");
 %! assert (obs, { [0; 5+6i; complex(-Inf,Inf); NaN; 3] });
 %! obs = textscan (str, "%f", "delimiter", {","});
 %! assert (obs, { [0; 5+6i; complex(-Inf,Inf); NaN; 3] });
 
-%!test <52550>
+%!test <*52550>
 %! str = " 0;,;,1;,2;,3\n";
 %! assert (textscan (str, "%f", "delimiter", {";,"}), { [0; NaN; 1; 2; 3] });
 
-%!test <52550>
+%!test <*52550>
 %! str = " 0 ;1 , $ 2 ;3\n";
 %! obs = textscan (str, "%f", "delimiter", ",;$");
 %! assert (obs, { [0; 1; NaN; 2; 3] });
--- a/libinterp/corefcn/mappers.cc	Wed Mar 20 02:25:33 2019 +0000
+++ b/libinterp/corefcn/mappers.cc	Wed Mar 20 02:27:30 2019 +0000
@@ -131,7 +131,7 @@
 %! v = [0, pi, pi/2, pi/2];
 %! assert (real (acos (x)), v);
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac and
 %! ## Windows.  Their trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
@@ -162,7 +162,7 @@
 %! v = [0, pi/2*i, pi*i, pi/2*i];
 %! assert (acosh (x), v, sqrt (eps));
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac.
 %! ## Mac trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
@@ -185,7 +185,7 @@
 %! v = single ([0, pi/2*i, pi*i, pi/2*i]);
 %! assert (acosh (x), v, sqrt (eps ("single")));
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac.
 %! ## Mac trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
@@ -206,7 +206,7 @@
 %! v = [0, pi, pi/2, -pi/2];
 %! assert (imag (acosh (x)), v);
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac and
 %! ## Windows.  Their trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
@@ -334,7 +334,7 @@
 %! v = [pi/2, -pi/2, 0, -0];
 %! assert (real (asin (x)), v);
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac and
 %! ## Windows. Their trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
@@ -377,7 +377,7 @@
 %! v = [0, 0, pi/2, -pi/2];
 %! assert (imag (asinh (x)), v);
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac and
 %! ## Windows.  Their trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
--- a/libinterp/corefcn/oct-map.cc	Wed Mar 20 02:25:33 2019 +0000
+++ b/libinterp/corefcn/oct-map.cc	Wed Mar 20 02:27:30 2019 +0000
@@ -557,11 +557,11 @@
 %! assert (fieldnames (reshape (x, 3, 8)), {"d"; "a"; "f"});
 
 ## test chopping of trailing singletons
-%!test <51634>
+%!test <*51634>
 %! x(1,1).d = 10;  x(4,6).a = "b";  x(2,4).f = 27;
 %! reshape (x, 3, 8, 1, 1);
 
-%!test <46385>
+%!test <*46385>
 %! M = repmat (struct ('a', ones(100), 'b', true), 1, 2);
 %! M = repmat(M, 1, 2);
 %! assert (size (M), [1, 4]);
--- a/libinterp/corefcn/syscalls.cc	Wed Mar 20 02:25:33 2019 +0000
+++ b/libinterp/corefcn/syscalls.cc	Wed Mar 20 02:27:30 2019 +0000
@@ -1062,7 +1062,7 @@
 }
 
 /*
-%!test <51869>
+%!test <*51869>
 %! [info, status, msg] = uname ();
 %! if (status == 0)
 %!   assert (isstruct (info))
--- a/scripts/elfun/asech.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/elfun/asech.m	Wed Mar 20 02:27:30 2019 +0000
@@ -40,7 +40,7 @@
 %! x = [1, -1];
 %! assert (asech (x), v, sqrt (eps));
 
-%!xtest <52627>
+%!xtest <*52627>
 %! ## Same test code as above, but intended only for test statistics on Mac.
 %! ## Mac trig/hyperbolic functions have huge tolerances.
 %! if (! ismac ()), return; endif
--- a/scripts/general/quadgk.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/general/quadgk.m	Wed Mar 20 02:27:30 2019 +0000
@@ -462,7 +462,7 @@
 %!assert (quadgk (@sin,-pi,pi, "WayPoints", 0, "MaxIntervalCount", 100,
 %!                "RelTol", 1e-3, "AbsTol", 1e-6, "trace", false), 0, 1e-6)
 %!assert (quadgk (@sin,-pi,pi, 1e-6, false), 0, 1e-6)
-%!assert <51867> (quadgk (@(x) x, 0, 0), 0, 0)
+%!assert <*51867> (quadgk (@(x) x, 0, 0), 0, 0)
 
 %!assert (quadgk (@sin,-pi,0), -2, 1e-10)
 %!assert (quadgk (@sin,0,pi), 2, 1e-10)
--- a/scripts/polynomial/deconv.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/polynomial/deconv.m	Wed Mar 20 02:27:30 2019 +0000
@@ -116,7 +116,7 @@
 %! [b, r] = deconv (y, a);
 %! assert (conv (a, b) + r, y, eps)
 
-%!test <51221>
+%!test <*51221>
 %! a = [1.92306958582241e+15, 3.20449986572221e+24, 1.34271290136344e+32, ...
 %!     2.32739765751038e+38];
 %! b = [7.33727670161595e+27, 1.05919311870816e+36, 4.56169848520627e+42];
--- a/scripts/polynomial/poly.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/polynomial/poly.m	Wed Mar 20 02:27:30 2019 +0000
@@ -104,7 +104,7 @@
 %! y = poly (x);
 %! assert (isreal (y), true);
 
-%!test <53897>
+%!test <*53897>
 %! x = [1 + 1i, 1 + 2i, 3, 4];
 %! y = poly (x);
 %! assert (y, [1 + 0i, -9 - 3i, 25 + 24i, -17 - 57i, -12 + 36i]);
--- a/scripts/specfun/betainc.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/specfun/betainc.m	Wed Mar 20 02:27:30 2019 +0000
@@ -194,14 +194,14 @@
 %! assert (v1, v2, sqrt (eps ("single")));
 %! assert (v3, v4, sqrt (eps ("single")));
 
-%!test <51157>
+%!test <*51157>
 %! y = betainc ([0.00780;0.00782;0.00784],250.005,49750.995);
 %! y_ex = [0.999999999999989; 0.999999999999992; 0.999999999999995];
 %! assert (y, y_ex, -1e-14);
 
 %!assert (betainc (0.001, 20, 30), 2.750687665855991e-47, -3e-14);
 %!assert (betainc (0.0001, 20, 30), 2.819953178893307e-67, -7e-14);
-%!assert <54383> (betainc (0.99, 20, 30, "upper"), 1.5671643161872703e-47, -7e-14);
+%!assert <*54383> (betainc (0.99, 20, 30, "upper"), 1.5671643161872703e-47, -7e-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);
@@ -212,7 +212,7 @@
 %! assert (betainc (0, a, b), zeros (20));
 %! assert (betainc (1, a, b), ones (20));
 
-%!test <34405>
+%!test <*34405>
 %! assert (betainc (NaN, 1, 2), NaN);
 %! assert (betainc (0.5, 1, Inf), NaN);
 
--- a/scripts/specfun/expint.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/specfun/expint.m	Wed Mar 20 02:27:30 2019 +0000
@@ -240,13 +240,13 @@
 %! y = expint (x);
 %! assert (y, y_exp, 5*eps);
 
-%!test <53351>
+%!test <*53351>
 %! assert (expint (32.5 + 1i),
 %!         1.181108930758065e-16 - 1.966348533426658e-16i, -4*eps);
 %! assert (expint (44 + 1i),
 %!         9.018757389858152e-22 - 1.475771020004195e-21i, -4*eps);
 
-%!test <47738>
+%!test <*47738>
 %! assert (expint (10i), 0.0454564330044554 + 0.0875512674239774i, -4*eps);
 
 ## Test preservation or conversion of the class
--- a/scripts/specfun/gammainc.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/specfun/gammainc.m	Wed Mar 20 02:27:30 2019 +0000
@@ -484,7 +484,7 @@
 %!assert (gammainc (709, 1000, "upper"), 0.99999999999999999999999954358, -eps)
 
 ## Test: case 9
-%!test <47800>
+%!test <*47800>
 %! assert (gammainc (60, 6, "upper"), 6.18022358081160257327264261e-20,
 %!         -10*eps);
 ## Matlab is better here than Octave
--- a/scripts/specfun/perms.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/specfun/perms.m	Wed Mar 20 02:27:30 2019 +0000
@@ -124,36 +124,36 @@
 ## Should work for any array type, such as cells and structs, and not
 ## only for numeric data.
 
-%!assert <52431> (perms ({1}), {1})
-%!assert <52431> (perms ({0.1, "foo"}), {"foo", 0.1; 0.1, "foo"})
-%!assert <52431> (perms ({"foo", 0.1}), {0.1, "foo"; "foo", 0.1})
-%!assert <52431> (perms ({"foo"; 0.1}), {0.1, "foo"; "foo", 0.1})
-%!assert <52431> (perms ({0.1; "foo"}), {"foo", 0.1; 0.1, "foo"})
-%!assert <52431> (perms ({"foo", "bar"}), {"bar", "foo"; "foo", "bar"})
-%!assert <52431> (perms ({"bar", "foo"}), {"foo", "bar"; "bar", "foo"})
+%!assert <*52431> (perms ({1}), {1})
+%!assert <*52431> (perms ({0.1, "foo"}), {"foo", 0.1; 0.1, "foo"})
+%!assert <*52431> (perms ({"foo", 0.1}), {0.1, "foo"; "foo", 0.1})
+%!assert <*52431> (perms ({"foo"; 0.1}), {0.1, "foo"; "foo", 0.1})
+%!assert <*52431> (perms ({0.1; "foo"}), {"foo", 0.1; 0.1, "foo"})
+%!assert <*52431> (perms ({"foo", "bar"}), {"bar", "foo"; "foo", "bar"})
+%!assert <*52431> (perms ({"bar", "foo"}), {"foo", "bar"; "bar", "foo"})
 %!
-%!assert <52431> (perms (struct ()), struct ())
-%!assert <52431> (perms (struct ("foo", {1, 2})),
+%!assert <*52431> (perms (struct ()), struct ())
+%!assert <*52431> (perms (struct ("foo", {1, 2})),
 %!                struct ("foo", {2, 1; 1, 2}))
-%!assert <52431> (perms (struct ("foo", {1, 2}, "bar", {3, 4})),
+%!assert <*52431> (perms (struct ("foo", {1, 2}, "bar", {3, 4})),
 %!                struct ("foo", {2, 1; 1, 2}, "bar", {4, 3; 3, 4}))
 
 ## Also sort logical input with order dependent on the input order and
 ## not their values.
 
-%!assert <52431> (perms (logical ([1 0])), logical ([0 1;, 1 0]))
-%!assert <52431> (perms (logical ([0 1])), logical ([1 0; 0 1]))
-%!assert <52431> (perms (logical ([0 1 0])),
+%!assert <*52431> (perms (logical ([1 0])), logical ([0 1;, 1 0]))
+%!assert <*52431> (perms (logical ([0 1])), logical ([1 0; 0 1]))
+%!assert <*52431> (perms (logical ([0 1 0])),
 %!                logical ([0 1 0; 0 0 1; 1 0 0; 1 0 0; 0 0 1; 0 1 0]))
-%!assert <52431> (perms (logical ([0 1 1])),
+%!assert <*52431> (perms (logical ([0 1 1])),
 %!                logical ([1 1 0; 1 0 1; 1 1 0; 1 0 1; 0 1 1; 0 1 1]))
 
-%!assert <52432> (perms ([]), reshape ([], 1, 0))
-%!assert <52432> (perms (single ([])), reshape (single ([]), 1, 0))
-%!assert <52432> (perms (int8 ([])), reshape (int8 ([]), 1, 0))
-%!assert <52432> (perms ({}), cell (1, 0))
+%!assert <*52432> (perms ([]), reshape ([], 1, 0))
+%!assert <*52432> (perms (single ([])), reshape (single ([]), 1, 0))
+%!assert <*52432> (perms (int8 ([])), reshape (int8 ([]), 1, 0))
+%!assert <*52432> (perms ({}), cell (1, 0))
 
-%!test <52432>
+%!test <*52432>
 %! s = struct ();
 %! s(1) = [];
 %! assert (perms (reshape (s, 0, 0)), reshape (s, 1, 0))
--- a/scripts/strings/native2unicode.m	Wed Mar 20 02:25:33 2019 +0000
+++ b/scripts/strings/native2unicode.m	Wed Mar 20 02:27:30 2019 +0000
@@ -82,7 +82,7 @@
 %!         [208 132 208 133 208 134 0 208 135 208 136 208 137 208 138]);
 
 %!assert (native2unicode ("foobar"), "foobar");
-%!assert <54384> (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/test/bug-38236/bug-38236.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/bug-38236/bug-38236.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -16,5 +16,5 @@
 ## along with Octave; see the file COPYING.  If not, see
 ## <https://www.gnu.org/licenses/>.
 
-%!test <38236>
+%!test <*38236>
 %! u_vr
--- a/test/bug-47680/bug-47680.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/bug-47680/bug-47680.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -1,6 +1,6 @@
 %!shared obj
 %! obj = sub_bug47680 ("foo");
-%!assert<47680> (obj.meth1 (), "foo:super:meth1:sub:meth1")
-%!assert<47680> (obj.meth2 (), "foo:super:meth2:sub:meth2")
-%!assert<47680> (obj.meth3 (), "foo:super:meth3:sub:meth3")
-%!assert<47680> (obj.meth4 (), "foo:super:meth4:sub:meth4")
+%!assert<*47680> (obj.meth1 (), "foo:super:meth1:sub:meth1")
+%!assert<*47680> (obj.meth2 (), "foo:super:meth2:sub:meth2")
+%!assert<*47680> (obj.meth3 (), "foo:super:meth3:sub:meth3")
+%!assert<*47680> (obj.meth4 (), "foo:super:meth4:sub:meth4")
--- a/test/bug-50716/bug-50716.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/bug-50716/bug-50716.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -22,14 +22,14 @@
 %! val = obj.methodA (str(1:end));
 %! assert (val, str);
 
-%!test <50716>
+%!test <*50716>
 %! obj = myclass ();
 %! foo = {obj};
 %! str = "Octave";
 %! val = foo{1}.methodA (str(1:end));
 %! assert (val, str);
 
-%!test <50716>
+%!test <*50716>
 %! obj = myclass ();
 %! foo = {obj};
 %! str = "Octave";
--- a/test/classdef/classdef.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/classdef/classdef.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -48,9 +48,9 @@
 %!assert (p.principle == 50e3)
 %!assert (p.amount, amt, eps ())
 %!assert (amount (p), amt, eps ())
-%!xtest <53614>
+%!xtest <*53614>
 %! assert (properties (p), {'rate'; 'term'; 'principle'});
-%!xtest <42510>
+%!xtest <*42510>
 %! assert (methods (p), {'amount'; 'foo_value_class'});
 %!assert (isempty (foo_value_class().rate))
 %!error <property `rate' is not constant> foo_value_class.rate
--- a/test/classes/classes.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/classes/classes.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -394,27 +394,27 @@
 %! assert (isequal (numel (st), 2));
 %!assert (isequal (ndims (st), 2))
 %!assert (isequal (rows (st), 1))
-%!assert <51308> (isequal (columns (st), 2))
+%!assert <*51308> (isequal (columns (st), 2))
 %!assert <*44334> (isequal (st, st))
-%!assert <44498> (not (isscalar (st)))
+%!assert <*44498> (not (isscalar (st)))
 %!assert (isvector (st))
 
 %!test st = SizeTester ([2 3]);
 %! assert (isequal (size (st), [2 3]));
 %! assert (isequal (numel (st), 6));
 %!assert (isequal (ndims (st), 2))
-%!assert <51308> (isequal (rows (st), 2))
-%!assert <51308> (isequal (columns (st), 3))
+%!assert <*51308> (isequal (rows (st), 2))
+%!assert <*51308> (isequal (columns (st), 3))
 %!assert <*44334> (isequal (st, st))
-%!assert <44498> (not (isscalar (st)))
-%!assert <44498> (not (isvector (st)))
+%!assert <*44498> (not (isscalar (st)))
+%!assert <*44498> (not (isvector (st)))
 
 %!test st = SizeTester ([2 3 4]);
 %! assert (isequal (size (st), [2 3 4]));
 %! assert (isequal (numel (st), 24));
-%!assert <51308> (isequal (ndims (st), 3))
-%!assert <51308> (isequal (rows (st), 2))
-%!assert <51308> (isequal (columns (st), 3))
+%!assert <*51308> (isequal (ndims (st), 3))
+%!assert <*51308> (isequal (rows (st), 2))
+%!assert <*51308> (isequal (columns (st), 3))
 %!assert <*44334> (isequal (st, st))
-%!assert <44498> (not (isscalar (st)))
-%!assert <44498> (not (isvector (st)))
+%!assert <*44498> (not (isscalar (st)))
+%!assert <*44498> (not (isvector (st)))
--- a/test/for.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/for.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -123,7 +123,7 @@
 %! __printf_assert__ ("\n");
 %! assert (__prog_output_assert__ ("1234"));
 
-%!test <50893>
+%!test <*50893>
 %! cnt = 0;
 %! for k = zeros (0,3);
 %!   cnt++;
@@ -131,7 +131,7 @@
 %! assert (cnt, 0);
 %! assert (k, zeros (0,3));
 
-%!test <50893>
+%!test <*50893>
 %! cnt = 0;
 %! for k = zeros (3,0);
 %!   cnt++;
@@ -139,7 +139,7 @@
 %! assert (cnt, 0);
 %! assert (k, zeros (3,0));
 
-%!test <50893>
+%!test <*50893>
 %! cnt = 0;
 %! for k = zeros (3,0, "uint32");
 %!   cnt++;
@@ -147,7 +147,7 @@
 %! assert (cnt, 0);
 %! assert (k, zeros (3,0, "uint32"));
 
-%!test <50893>
+%!test <*50893>
 %! cnt = 0;
 %! for k = cell (0,3);
 %!   cnt++;
--- a/test/nest/nest.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/nest/nest.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -62,7 +62,7 @@
 %! assert (f("foo"), "nested foo");
 %! assert (f("foo"), "nested foo");
 
-%!test <39257>
+%!test <*39257>
 %! f = no_closure (1);
 %! assert (f(), "nested");
 %! assert (f("foo"), "nested foo");
@@ -78,7 +78,7 @@
 ## closure contexts.handles, FH3 is a copy of FH2 so they will
 ## share the same context.
 
-%!test <39257>
+%!test <*39257>
 %! fh1 = nst1 (13);
 %! fh2 = nst1 (13);
 %! fh3 = fh2;
--- a/test/struct.tst	Wed Mar 20 02:25:33 2019 +0000
+++ b/test/struct.tst	Wed Mar 20 02:27:30 2019 +0000
@@ -231,7 +231,7 @@
 %! assert (s(3), struct ("foo", 42));
 
 ## empty index should return entire struct
-%!test <51633>
+%!test <*51633>
 %! x.a = 1:10;
 %! y = x;
 %! assert (! isempty (y));
@@ -242,7 +242,7 @@
 %! assert (z, y);
 
 ## test assigning to multi-dim struct with trailing singleton dimensions,
-%!test <35841>
+%!test <*35841>
 %! a(1,1,1).b(1) = 1;
 %! a(1,1,1).b(1) = 2;
 %! a(1,1,:).b(1) = 3;