[Octave-bug-tracker] [bug #34822] Mingw panics on a simple complex product

[Nitzan Arazi]

Follow-up Comment #17, bug #34822 (project octave):

I didn't run "make check" but instead I have extracted the test sub-directory
from 

octave-3.6.0.tar.gzoctave-3.6.0.taroctave-3.6.0test

and run fntests. I hope it covers the same testing as "make check".

On my system (core i3) OpenBLAS passes the same tests as with ATLAS - 2
failures on test_system and some skipped tests.

Summary:

  PASS    827
  FAIL      2

There were 11 skipped tests (see fntests.log for details).
Skipped tests are features that are disabled in this version of Octave
because the needed libraries were not present when Octave was built.

0 (of 30) .m files have no tests.

0 (of 0) .cc files have no tests.


The fntests.log:


>>>>> processing 
# >>>>>  new test file
# ?????  no tests in file
# !!!!!  test had an unexpected result
#   *****  code for the test
# Search for the unexpected results in the file
# then page back to find the file name which caused it.
# The result may be an unexpected failure (in which
# case an error will be reported) or an unexpected
# success (in which case no error will be reported).
>>>>> processing test_class_concat
>>>>> processing test_classes
>>>>> processing test_ctor_vs_method
>>>>> processing test_fcn_handle_derived_resolution
>>>>> processing test_args
>>>>> processing test_diag_perm
>>>>> processing test_error
>>>>> processing test_eval-catch
>>>>> processing test_for
>>>>> processing test_func
>>>>> processing test_global
>>>>> processing test_if
>>>>> processing test_index
>>>>> processing test_io
>>>>> processing test_line_continue
>>>>> processing test_logical_index
>>>>> processing test_null_assign
>>>>> processing test_parser
>>>>> processing test_prefer
>>>>> processing test_range
>>>>> processing test_recursion
>>>>> processing test_return
>>>>> processing test_slice
>>>>> processing test_struct
>>>>> processing test_switch
>>>>> processing test_system
  ***** test
 orig_umask = umask (0);
 nm = tmpnam ();
 id = fopen (nm, "wb");
 s1 = stat (nm);
 fclose (id);
 unlink (nm);
 
 umask (777);
 nm = tmpnam ();
 id = fopen (nm, "wb");
 s2 = stat (nm);
 fclose (id);
 unlink (nm);
 
 assert (deblank (s1.modestr), "-rw-rw-rw-");
 assert (deblank (s2.modestr), "----------");
 # Restore original umask value
 umask (orig_umask);
!!!!! test failed
assert (deblank (s2.modestr),"----------") expected
----------
but got
-r--r--r--
  ***** testif HAVE_GETPWUID
 x = getpwuid (getuid ());
 assert ((strcmp (x.dir, tilde_expand ("~"))
 && strcmp (x.dir, tilde_expand (sprintf ("~%s", x.name)))
 && strcmp ("foobar", tilde_expand ("foobar"))));
----- skipped test

  ***** testif HAVE_GETPGRP
 assert (getpgrp () > 0);
----- skipped test

  ***** testif HAVE_GETPPID
 assert (getppid () > 0);
----- skipped test

  ***** assert (getenv ("HOME"), tilde_expand ("~"))
!!!!! test failed
assert (getenv ("HOME"),tilde_expand ("~")) expected
C:Usersowner
but got

  ***** testif HAVE_GETPWENT
 s = getpwent ();
 endpwent (); 
 assert ((isstruct (s)
 && isfield (s, "name")
 && isfield (s, "passwd")
 && isfield (s, "uid")
 && isfield (s, "gid")
 && isfield (s, "gecos")
 && isfield (s, "dir")
 && isfield (s, "shell")));
----- skipped test

  ***** testif HAVE_GETPWUID
 x = getpwent ();
 y = getpwuid (x.uid);
 endpwent (); 
 assert (strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
----- skipped test

  ***** testif HAVE_GETPWNAM
 x = getpwent ();
 y = getpwnam (x.name);
 endpwent (); 
 assert (strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
----- skipped test

  ***** testif HAVE_SETPWENT
 x = getpwent ();
 setpwent ();
 y = getpwent ();
 endpwent (); 
 assert (strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
----- skipped test

  ***** testif HAVE_GETGRENT
 x = getgrent ();
 endgrent ();
 assert ((isstruct (x)
 && isfield (x, "name")
 && isfield (x, "passwd")
 && isfield (x, "gid")
 && isfield (x, "mem")));
----- skipped test

  ***** testif HAVE_GETGRGID
 x = getgrent ();
 y = getgrgid (x.gid);
 endgrent ();
 assert (strcmp (x.name, y.name) && x.gid == y.gid);
----- skipped test

  ***** testif HAVE_GETGRNAM
 x = getgrent ();
 y = getgrnam (x.name);
 endgrent ();
 assert (strcmp (x.name, y.name) && x.gid == y.gid);
----- skipped test

  ***** testif HAVE_SETGRENT
 x = getgrent ();
 setgrent ();
 y = getgrent ();
 endgrent ();
 assert (strcmp (x.name, y.name) && x.gid == y.gid);
----- skipped test

>>>>> processing test_transpose
>>>>> processing test_try
>>>>> processing test_unwind
>>>>> processing test_while

Files with no tests:


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?34822>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/