Mercurial > octave-libtiff
view test/bug-49904.tst @ 31177:c7c79973007f
Tiff: added octave_tiff_handle class to wrap the Tiff file pointer
* __tiff__.cc (octave_tiff_handle): implemented a new class octave_tiff_handle
as a child of octave_base_value to be a wrapper for the Tiff file handle to
be passed to Octave instead of passing a pointer around.
* __tiff__.cc (F__open_tiff__, F__tiff_close__): modified handling TIFF file
pointer to use the new class (Other internal functions were modified as well).
* Tiff.m: removed checking for closed file, it is now handled internally.
| author | magedrifaat <magedrifaat@gmail.com> |
|---|---|
| date | Wed, 17 Aug 2022 18:51:16 +0200 |
| parents | 9080316864bf |
| children |
line wrap: on
line source
%!shared A %! A = [ ... %! 1.00003+0.00000i, -0.68292+0.26406i, -0.57670+0.25291i, 0.34986+0.03335i; %! -0.68292-0.26406i, 0.94539+0.00000i, 0.69006-0.03967i, -0.43847+0.38619i; %! -0.57670-0.25291i, 0.69006+0.03967i, 0.95260+0.00000i, -0.34734+0.40728i; %! 0.34986-0.03335i, -0.43847-0.38619i, -0.34734-0.40728i, 0.98356+0.00000i]; %! %!test <*49904> %! [Ainv, rcond] = inv (A); %! assert (ishermitian (Ainv)); %! assert (A * Ainv, eye (4, 'double'), eps ('double') / rcond) %!test <*49904> %! [Ainv, rcond] = inv (single (A)); %! assert (ishermitian (Ainv)); %! assert (A * Ainv, eye (4, 'single'), eps ('single') / rcond)