U
    f6M                     @   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   C/tmp/pip-target-lpfmz8o1/lib/python/numpy/f2py/tests/test_f2py2e.pyget_io_paths   s    r   session)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    r:   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/   r0   r1   r2   r3   r5   r$   r6   r7   r8   r9   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/   r0   r!   pytestraises
SystemExitr1   r2   r3   )r5   r$   r6   r7   r9   errr   r   r   test_gen_pyf_no_overwriten   s    rE   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st
qW 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/   r0   r1   r2   r3   )r5   r'   r6   foutlr7   toskip	remainingr8   rD   skeyrkeyr   r   r   test_f2py_skip}   s&     
rT   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st
qW 5 Q R X dS )z>Test that functions can be kept by only:
    CLI :: only:
    rF   rG   rH   rI   r(   rJ   z -m test only: <buildmodule: Could not find the body of interfaced routine "rK   rL   rM   NrN   )r5   r'   r6   rO   r7   rP   tokeepr8   rD   rR   rS   r   r   r   test_f2py_only   s&     
rW   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stqW 5 Q R X dS )zfTests that it is possible to return to file processing mode
    CLI :: :
    BUG: numpy-gh #20520
    rF   rG   rH   ztd s0 hiblahr(   rJ    -m z only: z : rU   rK   rL   rM   N)r   r   r   r,   r-   r.   r   r/   r0   r1   r2   r3   )r5   r$   r'   r6   rO   r7   rP   Zipath2rV   r   r8   rD   rR   rS   r   r   r   test_file_processing_switch   s*    
rZ   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
    hirG   r(   rJ   rY   N)r   r   r,   r-   r.   r   r/   r0   r1   r   r4   r   r3   r   )r5   r$   r6   ZMNAMErO   r7   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stW 5 Q R X |tdd| d	  t|j	< t
  |  \}}||dkst||dk	stW 5 Q R X dS )
zHLowers cases by flag or when -h is present

    CLI :: --[no-]lower
    rF   rG   zHI\(\)zhi\(\)r(   rJ   z -m test --lowerNz -m test --no-lower)r   r   recompiler,   r-   r.   r   r/   r0   r1   r2   searchr3   	r5   r&   r6   rO   r7   ZcapshiZcapslor8   r9   r   r   r   test_lower_cmod   s$    

ra   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stW 5 Q R X |tdd| d|j d
  t	|j
< t  |  \}}||d	kst||d	k	stW 5 Q R X d	S )z^Lowers cases in signature files by flag or when -h is present

    CLI :: --[no-]lower -h
    rF   rG   z	Block: HIz	Block: hir(   rJ   z -h z -m test --overwrite-signatureNz) -m test --overwrite-signature --no-lower)r   r   r]   r^   r,   r-   r   r.   r   r/   r0   r1   r2   r_   r3   r`   r   r   r   test_lower_sig   s0    

rb   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
    rX   Ztttmpr(   f2py -m r)   z --build-dir zWrote C/API module "rM   Nr;   )r5   r$   r6   r7   r   Zodirr8   r9   r   r   r   test_build_dir  s    rd   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/   r0   r!   r1   r2   r3   r<   r   r   r   test_overwrite-  s     re   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
    rX   r(   rc   r)   z --latex-docDocumentation is saved to file
module.tex\documentclassNr   r,   r-   r.   r   r/   r0   r1   r2   r3   openreadr5   r$   r6   r7   r   r8   r9   Zotexr   r   r   test_latexdoc>  s    rm   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
    rX   r(   rc   r)   z --no-latex-docrf   Nr;   r5   r$   r6   r7   r   r8   r9   r   r   r   test_nolatexdocP  s    ro   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 )zEnsures that truncated documentation is written out

    TODO: Test to ensure this has no effect without --latex-doc
    CLI :: --latex-doc --short-latex
    rX   r(   rc   r)   z --latex-doc --short-latexrf   ./rg   rh   Nri   rl   r   r   r   test_shortlatex`  s    rq   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
    rX   r(   rc   r)   z --rest-doc#ReST Documentation is saved to filerp   zmodule.restz.. -*- rest -*-Nri   )r5   r$   r6   r7   r   r8   r9   Zorstr   r   r   test_restdocv  s    rs   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
    rX   r(   rc   r)   z --no-rest-docrr   Nr;   rn   r   r   r   test_norestexdoc  s    rt   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
    rX   r(   rc   r)   z --debug-capirp   r
   z#define DEBUGCFUNCSNr   r,   r-   r.   r   r/   r0   r1   rj   rk   r3   )r5   r$   r6   r7   r   ocmodr   r   r   test_debugcapi  s    rw   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stW 5 Q R X dS )zEEnsures that debugging wrappers work

    CLI :: --debug-capi -c
    rX   r(   rc   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/   r0   r1   shlex
subprocessruntextwrapdedentstdoutr3   stderr)r$   r6   r7   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st	W 5 Q R X dS )zoEnsures that fortran subroutine wrappers for F77 are included by default

    CLI :: --[no]-wrap-functions
    rX   r(   rc   r)    Fortran 77 wrappers are saved toz --wrap-functionsNr;   rn   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
    rX   r(   rc   r)   z --no-wrap-functionsr   Nr;   rn   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
    rX   r(   rc   r)   z' -include<stdbool.h> -include<stdio.h> rp   r
   z#include <stdbool.h>z#include <stdio.h>Nru   )r5   r$   r6   r7   r   rv   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/   r0   r1   r2   lenr3   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.   rA   rB   rC   r1   r2   numpy__version__stripr3   )r5   r6   r8   r9   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()"Try   rz   r|   N)r   r,   r-   r.   r   r/   r0   r1   r}   r~   r   r   r3   )r$   r6   r7   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   rA    r   Znumpy.f2py.f2py2er   r1   r   r   Zfixturer$   r&   r'   r:   r=   rE   markZxfailrT   rW   rZ   r\   ra   rb   rd   re   rm   ro   rq   rs   rt   rw   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|   (

'






'
			
