U
    ù‘«j6M  ã                   @   sH  d dl Z d dlZd dlZd dlZd dlZd dlmZ d dlmZ d dl	Z	ddl
mZ d dlmZ eddƒZdrd
d„Ze	jdd�dd„ ƒZe	jdd�dd„ ƒZe	jdd�dd„ ƒZdd„ Zdd„ Zdd„ Ze	jjdd„ ƒZdd„ Zdd„ Zd d!„ Zd"d#„ Zd$d%„ Zd&d'„ Z d(d)„ Z!d*d+„ Z"d,d-„ Z#d.d/„ Z$d0d1„ Z%d2d3„ Z&d4d5„ Z'e	jjd6d7�d8d9„ ƒZ(d:d;„ Z)d<d=„ Z*d>d?„ Z+d@dA„ Z,dBdC„ Z-dDdE„ Z.dFdG„ Z/dHdI„ Z0dJdK„ Z1e	jjd6d7�dLdM„ ƒZ2dNdO„ Z3dPdQ„ Z4dRdS„ Z5dTdU„ Z6dVdW„ Z7dXdY„ Z8dZd[„ Z9d\d]„ Z:d^d_„ Z;d`da„ Z<dbdc„ Z=ddde„ Z>dfdg„ Z?dhdi„ Z@djdk„ ZAdldm„ ZBdndo„ ZCdpdq„ ZDdS )sé    N)ÚPath)Ú
namedtupleé   )Úutil)ÚmainÚPPathsz(finp, f90inp, pyf, wrap77, wrap90, cmodfÚuntitledc              
   C   sR   t | ƒ}t| d¡| d¡| d¡| |› d�¡| |› d�¡| |› d�¡d�S )ax  Takes in a temporary file for testing and returns the expected output and input paths

    Here expected output is essentially one of any of the possible generated
    files.

    ..note::

         Since this does not actually run f2py, none of these are guaranteed to
         exist, and module names are typically incorrect

    Parameters
    ----------
    fname_inp : str
                The input filename
    mname : str, optional
                The name of the module, untitled by default

    Returns
    -------
    genp : NamedTuple PPaths
            The possible paths which are generated, not all of which exist
    z.fz.f90ú.pyfz-f2pywrappers.fz-f2pywrappers2.f90úmodule.c)ÚfinpÚf90inpÚpyfÚwrap77Zwrap90Úcmodf)r   r   Úwith_suffixÚ	with_name)Z	fname_inpÚmnameÚbpath© r   ú@/tmp/pip-unpacked-wheel-16f7874t/numpy/f2py/tests/test_f2py2e.pyÚget_io_paths   s    úr   Úsession)Zscopec                 C   s2   t  dddd¡ ¡ }|  ¡ d }|j|dd� |S )z'Generates a single f90 file for testingÚtestsÚsrcÚclizhiworld.f90z	hello.f90Úascii©Úencoding©r   ZgetpathÚ	read_textZgetbasetempÚ
write_text©Ztmpdir_factoryZfdatÚfnr   r   r   Úhello_world_f908   s    r#   c                 C   s2   t  dddd¡ ¡ }|  ¡ d }|j|dd� |S )ú'Generates a single f77 file for testingr   r   r   zhi77.fzhello.fr   r   r   r!   r   r   r   Úhello_world_f77A   s    r%   c                 C   s2   t  dddd¡ ¡ }|  ¡ d }|j|dd� |S )r$   r   r   Zreturn_realzfoo77.fzfoo.fr   r   r   r!   r   r   r   Úretreal_f77J   s    r&   c              	   C   s€   t |ƒ}t |ƒjd }| tdd|› d|› � ¡ ¡ t |j¡�6 tƒ  |  	¡ \}}d|ks`t
‚t |› ƒ ¡ srt
‚W 5 Q R X dS )zIEnsures that a signature file is generated via the CLI
    CLI :: -h
    r	   Úargvzf2py -h ú úSaving signatures to fileN)r   ÚstemÚsetattrÚsysÚsplitr   Ú	switchdirÚparentÚf2pycliÚ
readouterrÚAssertionErrorÚexists)Úcapfdr#   ÚmonkeypatchÚipathZopathÚoutÚ_r   r   r   Útest_gen_pyfS   s    r9   c              	   C   sZ   t |ƒ}| tdd|› � ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksLt	‚W 5 Q R X dS )zHEnsures that a signature file can be dumped to stdout
    CLI :: -h
    r'   zf2py -h stdout r)   N©
r   r+   r,   r-   r   r.   r/   r0   r1   r2   ©r4   r#   r5   r6   r7   r8   r   r   r   Útest_gen_pyf_stdoutb   s    r<   c              
   C   s‚   t |ƒ}| tdd|› � ¡ ¡ t |j¡�L t dƒjddd� t 	t
¡�$ tƒ  |  ¡ \}}d|ksjt‚W 5 Q R X W 5 Q R X dS )	zjEnsures that the CLI refuses to overwrite signature files
    CLI :: -h without --overwrite-signature
    r'   úf2py -h faker.pyf ú	faker.pyfú	Fake newsr   r   z&Use --overwrite-signature to overwriteN)r   r+   r,   r-   r   r.   r/   r    ÚpytestÚraisesÚ
SystemExitr0   r1   r2   )r4   r#   r5   r6   r8   Úerrr   r   r   Útest_gen_pyf_no_overwriten   s    rD   c              	   C   sª   t |dd�}|j}d}d}| tdd|› d|› � ¡ ¡ t |j¡�\ tƒ  |  	¡ \}}| ¡ D ]}	d|	› d	�|ks`t
‚q`| ¡ D ]}
d
|
› d�|ks‚t
‚q‚W 5 Q R X dS )z9Tests that functions can be skipped
    CLI :: skip:
    Útest©r   út0 t4 t8 sd s8 s4útd s0r'   úf2py z -m test skip: z=buildmodule: Could not found the body of interfaced routine "ú". Skipping.úConstructing wrapper function "ú"N©r   r   r+   r,   r-   r   r.   r/   r0   r1   r2   )r4   r&   r5   Úfoutlr6   ÚtoskipÚ	remainingr7   rC   ÚskeyÚrkeyr   r   r   Útest_f2py_skip}   s&     þ
ÿÿrS   c              	   C   sª   t |dd�}|j}d}d}| tdd|› d|› � ¡ ¡ t |j¡�\ tƒ  |  	¡ \}}| ¡ D ]}	d|	› d	�|ks`t
‚q`| ¡ D ]}
d
|
› d�|ks‚t
‚q‚W 5 Q R X dS )z>Test that functions can be kept by only:
    CLI :: only:
    rE   rF   rG   rH   r'   rI   z -m test only: ú<buildmodule: Could not find the body of interfaced routine "rJ   rK   rL   NrM   )r4   r&   r5   rN   r6   rO   Útokeepr7   rC   rQ   rR   r   r   r   Útest_f2py_only•   s&     þ
ÿÿrV   c                 C   sÂ   t |dd�}|j}d}t|ƒ}d}d}	| tdd|› d|	› d	|› d
|› � ¡ ¡ t |j¡�\ t	ƒ  |  
¡ \}
}| ¡ D ]}d|› d�|ksxt‚qx| ¡ D ]}d|› d�|
ksšt‚qšW 5 Q R X dS )zfTests that it is possible to return to file processing mode
    CLI :: :
    BUG: numpy-gh #20520
    rE   rF   rG   ztd s0 hiÚblahr'   rI   ú -m z only: z : rT   rJ   rK   rL   N)r   r   r   r+   r,   r-   r   r.   r/   r0   r1   r2   )r4   r#   r&   r5   rN   r6   rO   Zipath2rU   r   r7   rC   rQ   rR   r   r   r   Útest_file_processing_switch¬   s*    ý
ÿÿrY   c              	   C   sv   d}t ||d�}|j}| tdd|› d|› � ¡ ¡ t |j¡� tƒ  W 5 Q R X t	 
|j¡sbt‚t	 
|j¡srt‚dS )zHChecks the generation of files based on a module name
    CLI :: -m
    ÚhirF   r'   rI   rX   N)r   r   r+   r,   r-   r   r.   r/   r0   r   r3   r   r2   r   )r4   r#   r5   ZMNAMErN   r6   r   r   r   Útest_mod_gen_f77Ê   s    r[   c           	   	   C   sú   t |dd�}|j}t d¡}t d¡}| tdd|› d� ¡ ¡ t |j	¡�< t
ƒ  |  ¡ \}}| |¡dk	srt‚| |¡dks„t‚W 5 Q R X | tdd|› d	� ¡ ¡ t |j	¡�< t
ƒ  |  ¡ \}}| |¡dksÚt‚| |¡dk	sìt‚W 5 Q R X dS )
zHLowers cases by flag or when -h is present

    CLI :: --[no-]lower
    rE   rF   zHI\(\)zhi\(\)r'   rI   z -m test --lowerNz -m test --no-lower)r   r   ÚreÚcompiler+   r,   r-   r   r.   r/   r0   r1   Úsearchr2   ©	r4   r%   r5   rN   r6   ZcapshiZcapslor7   r8   r   r   r   Útest_lower_cmodÛ   s$    

ÿr`   c           	   	   C   s
  t |dd�}|j}t d¡}t d¡}| tdd|› d|j› d� ¡ ¡ t 	|j
¡�< tƒ  |  ¡ \}}| |¡d	k	szt‚| |¡d	ksŒt‚W 5 Q R X | tdd|› d|j› d
� ¡ ¡ t 	|j
¡�< tƒ  |  ¡ \}}| |¡d	ksêt‚| |¡d	k	süt‚W 5 Q R X d	S )z^Lowers cases in signature files by flag or when -h is present

    CLI :: --[no-]lower -h
    rE   rF   z	Block: HIz	Block: hir'   rI   z -h z -m test --overwrite-signatureNz) -m test --overwrite-signature --no-lower)r   r   r\   r]   r+   r,   r   r-   r   r.   r/   r0   r1   r^   r2   r_   r   r   r   Útest_lower_sigõ   s0    

ýýra   c              
   C   sv   t |ƒ}d}d}| tdd|› d|› d|› � ¡ ¡ t |j¡�, tƒ  |  ¡ \}}d|› d�|ksht	‚W 5 Q R X d	S )
zNEnsures that the build directory can be specified

    CLI :: --build-dir
    rW   Ztttmpr'   úf2py -m r(   z --build-dir zWrote C/API module "rL   Nr:   )r4   r#   r5   r6   r   Zodirr7   r8   r   r   r   Útest_build_dir  s    ÿrc   c              	   C   sn   t |ƒ}| tdd|› d� ¡ ¡ t |j¡�6 t dƒjddd� tƒ  |  	¡ \}}d|ks`t
‚W 5 Q R X d	S )
zXEnsures that the build directory can be specified

    CLI :: --overwrite-signature
    r'   r=   z --overwrite-signaturer>   r?   r   r   r)   N)r   r+   r,   r-   r   r.   r/   r    r0   r1   r2   r;   r   r   r   Útest_overwrite-  s     þrd   c              
   C   s”   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�R tƒ  |  ¡ \}}d|ksXt	‚t |› d�ƒ 
¡ �}d| ¡ ks|t	‚W 5 Q R X W 5 Q R X d	S )
zJEnsures that TeX documentation is written out

    CLI :: --latex-doc
    rW   r'   rb   r(   z --latex-docúDocumentation is saved to fileú
module.texú\documentclassN©r   r+   r,   r-   r   r.   r/   r0   r1   r2   ÚopenÚread©r4   r#   r5   r6   r   r7   r8   Zotexr   r   r   Útest_latexdoc>  s    ÿrl   c              	   C   sf   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksXt	‚W 5 Q R X dS )zMEnsures that TeX documentation is written out

    CLI :: --no-latex-doc
    rW   r'   rb   r(   z --no-latex-docre   Nr:   ©r4   r#   r5   r6   r   r7   r8   r   r   r   Útest_nolatexdocP  s    ÿrn   c              
   C   s–   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�T tƒ  |  ¡ \}}d|ksXt	‚t d|› d�ƒ 
¡ �}d	| ¡ ks~t	‚W 5 Q R X W 5 Q R X d
S )zžEnsures that truncated documentation is written out

    TODO: Test to ensure this has no effect without --latex-doc
    CLI :: --latex-doc --short-latex
    rW   r'   rb   r(   z --latex-doc --short-latexre   ú./rf   rg   Nrh   rk   r   r   r   Útest_shortlatex`  s    ýrp   c              
   C   s–   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�T tƒ  |  ¡ \}}d|ksXt	‚t d|› d�ƒ 
¡ �}d	| ¡ ks~t	‚W 5 Q R X W 5 Q R X d
S )zIEnsures that RsT documentation is written out

    CLI :: --rest-doc
    rW   r'   rb   r(   z --rest-docú#ReST Documentation is saved to filero   zmodule.restz.. -*- rest -*-Nrh   )r4   r#   r5   r6   r   r7   r8   Zorstr   r   r   Útest_restdocv  s    ÿrr   c              	   C   sf   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksXt	‚W 5 Q R X dS )zLEnsures that TeX documentation is written out

    CLI :: --no-rest-doc
    rW   r'   rb   r(   z --no-rest-docrq   Nr:   rm   r   r   r   Útest_norestexdocˆ  s    ÿrs   c              
   C   s~   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�< tƒ  t d|› d�ƒ ¡ �}d| 	¡ ksft
‚W 5 Q R X W 5 Q R X d	S )
zIEnsures that debugging wrappers are written

    CLI :: --debug-capi
    rW   r'   rb   r(   z --debug-capiro   r
   z#define DEBUGCFUNCSN©r   r+   r,   r-   r   r.   r/   r0   ri   rj   r2   )r4   r#   r5   r6   r   Úocmodr   r   r   Útest_debugcapi˜  s    ÿrv   zConsistently fails on CI.)Úreasonc              	   C   s’   t | ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�P tƒ  t d¡}t	j
|ddd	�}d
}t d¡}|j|ksvt‚|j|ks„t‚W 5 Q R X dS )zEEnsures that debugging wrappers work

    CLI :: --debug-capi -c
    rW   r'   rb   r(   z -c --debug-capiz#python3 -c "import blah; blah.hi()"TúUTF-8©Úcapture_outputr   ú Hello World
a   debug-capi:Python C/API function blah.hi()
debug-capi:float hi=:output,hidden,scalar
debug-capi:hi=0
debug-capi:Fortran subroutine `f2pywraphi(&hi)'
debug-capi:hi=0
debug-capi:Building return value.
debug-capi:Python C/API function blah.hi: successful.
debug-capi:Freeing memory.
        N)r   r+   r,   r-   r   r.   r/   r0   ÚshlexÚ
subprocessÚrunÚtextwrapÚdedentÚstdoutr2   Ústderr)r#   r5   r6   r   Úcmd_runÚroutÚeoutZeerrr   r   r   Útest_debugcapi_bld¨  s    ÿ


r†   c              	   C   sº   t |ƒ}d}| tdd|› d|› � ¡ ¡ t |j¡� tƒ  W 5 Q R X |  ¡ \}}d|ks`t	‚| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ks¬t	‚W 5 Q R X dS )zoEnsures that fortran subroutine wrappers for F77 are included by default

    CLI :: --[no]-wrap-functions
    rW   r'   rb   r(   ú Fortran 77 wrappers are saved toz --wrap-functionsNr:   rm   r   r   r   Útest_wrapfunc_defÆ  s    ÿrˆ   c              	   C   sf   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksXt	‚W 5 Q R X dS )zeEnsures that fortran subroutine wrappers for F77 can be disabled

    CLI :: --no-wrap-functions
    rW   r'   rb   r(   z --no-wrap-functionsr‡   Nr:   rm   r   r   r   Útest_nowrapfuncß  s    ÿr‰   c              
   C   sŽ   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�L tƒ  t d|› d�ƒ ¡ �&}| 	¡ }d|ksjt
‚d	|ksvt
‚W 5 Q R X W 5 Q R X d
S )zcAdd to the include directories

    CLI :: -include
    TODO: Document this in the help string
    rW   r'   rb   r(   z' -include<stdbool.h> -include<stdio.h> ro   r
   z#include <stdbool.h>z#include <stdio.h>Nrt   )r4   r#   r5   r6   r   ru   Zocmrr   r   r   Útest_inclheaderï  s    ýrŠ   c                   C   s   dS )z?Add to the include directories

    CLI :: --include-paths
    Nr   r   r   r   r   Útest_inclpath  s    r‹   c                   C   s   dS )z;Add to the include directories

    CLI :: --help-link
    Nr   r   r   r   r   Ú
test_hlink  s    rŒ   c                   C   s   dS )zOCheck that Fortran-to-Python KIND specs can be passed

    CLI :: --f2cmap
    Nr   r   r   r   r   Útest_f2cmap  s    r�   c              	   C   s`   t |ƒ}| tdd|› d� ¡ ¡ t |j¡�( tƒ  |  ¡ \}}t	|ƒdksRt
‚W 5 Q R X dS )z)Reduce verbosity

    CLI :: --quiet
    r'   úf2py -m blah z --quietr   N)r   r+   r,   r-   r   r.   r/   r0   r1   Úlenr2   r;   r   r   r   Ú
test_quiet!  s    r�   c              	   C   s\   t |ƒ}| tdd|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksNt	‚W 5 Q R X dS )z-Increase verbosity

    CLI :: --verbose
    r'   rŽ   z
 --verboseZanalyzelineNr:   r;   r   r   r   Útest_verbose/  s    r‘   c              	   C   sX   |  tdd ¡ ¡ t t¡�2 tƒ  |  ¡ \}}ddl}|j	| 
¡ ksJt‚W 5 Q R X dS )z"Ensure version

    CLI :: -v
    r'   zf2py -vr   N)r+   r,   r-   r@   rA   rB   r0   r1   ZnumpyÚ__version__Ústripr2   )r4   r5   r7   r8   Únpr   r   r   Útest_version=  s    r•   c              	   C   sp   t | ƒ}| tdd|› d� ¡ ¡ t |j¡�8 tƒ  t d¡}t	j
|ddd�}d}|j|ksbt‚W 5 Q R X d	S )
z
    CLI :: -c
    r'   rŽ   z -cz"python -c "import blah; blah.hi()"Trx   ry   r{   N)r   r+   r,   r-   r   r.   r/   r0   r|   r}   r~   r�   r2   )r#   r5   r6   rƒ   r„   r…   r   r   r   Útest_npdistopK  s    
r–   c                   C   s   dS )z
    CLI :: -c --fcompiler
    Nr   r   r   r   r   Útest_npd_fcompiler_  s    r—   c                   C   s   dS )z
    CLI :: -c --compiler
    Nr   r   r   r   r   Útest_npd_compilerg  s    r˜   c                   C   s   dS )z$
    CLI :: -c --help-fcompiler
    Nr   r   r   r   r   Útest_npd_help_fcompilero  s    r™   c                   C   s   dS )z
    CLI :: -c --f77exec
    Nr   r   r   r   r   Útest_npd_f77execw  s    rš   c                   C   s   dS )z
    CLI :: -c --f90exec
    Nr   r   r   r   r   Útest_npd_f90exec  s    r›   c                   C   s   dS )z
    CLI :: -c --f77flags
    Nr   r   r   r   r   Útest_npd_f77flags‡  s    rœ   c                   C   s   dS )z
    CLI :: -c --f90flags
    Nr   r   r   r   r   Útest_npd_f90flags�  s    r�   c                   C   s   dS )z
    CLI :: -c --opt
    Nr   r   r   r   r   Útest_npd_opt—  s    rž   c                   C   s   dS )z
    CLI :: -c --arch
    Nr   r   r   r   r   Útest_npd_archŸ  s    rŸ   c                   C   s   dS )z
    CLI :: -c --noopt
    Nr   r   r   r   r   Útest_npd_noopt§  s    r    c                   C   s   dS )z
    CLI :: -c --noarch
    Nr   r   r   r   r   Útest_npd_noarch¯  s    r¡   c                   C   s   dS )z
    CLI :: -c --debug
    Nr   r   r   r   r   Útest_npd_debug·  s    r¢   c                   C   s   dS )z%
    CLI :: -c --link-<resource>
    Nr   r   r   r   r   Útest_npd_link_auto¿  s    r£   c                   C   s   dS )z/
    CLI :: -c -L/path/to/lib/ -l<libname>
    Nr   r   r   r   r   Útest_npd_libÇ  s    r¤   c                   C   s   dS )z
    CLI :: -D<define>
    Nr   r   r   r   r   Útest_npd_defineÏ  s    r¥   c                   C   s   dS )z
    CLI :: -U<name>
    Nr   r   r   r   r   Útest_npd_undefine×  s    r¦   c                   C   s   dS )z$
    CLI :: -I/path/to/include/
    Nr   r   r   r   r   Útest_npd_inclß  s    r§   c                   C   s   dS )z8
    CLI :: <filename>.o <filename>.so <filename>.a
    Nr   r   r   r   r   Útest_npd_linkerç  s    r¨   )r   )Er   r\   r,   r}   r|   Úpathlibr   Úcollectionsr   r@   Ú r   Znumpy.f2py.f2py2er   r0   r   r   Zfixturer#   r%   r&   r9   r<   rD   ÚmarkZxfailrS   rV   rY   r[   r`   ra   rc   rd   rl   rn   rp   rr   rs   rv   r†   rˆ   r‰   rŠ   r‹   rŒ   r�   r�   r‘   r•   r–   r—   r˜   r™   rš   r›   rœ   r�   rž   rŸ   r    r¡   r¢   r£   r¤   r¥   r¦   r§   r¨   r   r   r   r   Ú<module>   s|   (

'






'
			
