Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/__pycache__/test_character.cpython-39.pyc
Ðазад
a e�h�P � @ s� d dl Z d dlZd dlmZmZmZ d dlZd dlm Z G dd� de j �Z G dd� de j �Z G dd � d e j �Z G d d � d e j �ZG d d � d e j �ZdS )� N)�assert_array_equal� assert_equal� assert_raises)�utilc 7 @ s\ e Zd ZdZdZg d�ZdZeD ]�ZeZe dd�� ee�Z ee � de� de� d e � d e� de� de� d e� d e � d e� d e� de� d e� de � de� d e� de� de� de � de� de� de� de� de � de� de� d�3�7 Zq ej�de�dd� �Zej�dedd� �d d � �Zej�de�d d � �Zej�de�d d!� �Zej�de�d"d#� �ZdS )$�TestCharacterString�.f90Ztest_character_string��1�3�star� �(*))r z subroutine �_input_z (c, o, n) character*z�, intent(in) :: c integer n !f2py integer, depend(c), intent(hide) :: n = slen(c) integer*1, dimension(n) :: o !f2py intent(out) o o = transfer(c, o) end subroutine �_output_z�, intent(out) :: c integer n integer*1, dimension(n), intent(in) :: o !f2py integer, depend(o), intent(hide) :: n = len(o) c = transfer(o, c) end subroutine � _array_input_z;(c, o, m, n) integer m, i, n character*aH , intent(in), dimension(m) :: c !f2py integer, depend(c), intent(hide) :: m = len(c) !f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c) integer*1, dimension(m, n), intent(out) :: o do i=1,m o(i, :) = transfer(c(i), o(i, :)) end do end subroutine �_array_output_z!(c, o, m, n) character*a , intent(out), dimension(m) :: c integer n integer*1, dimension(m, n), intent(in) :: o !f2py character(f2py_len=n) :: c !f2py integer, depend(o), intent(hide) :: m = len(o) !f2py integer, depend(o), intent(hide) :: n = shape(o, 1) do i=1,m c(i) = transfer(o(i, :), c(i)) end do end subroutine �_2d_array_input_zH(c, o, m1, m2, n) integer m1, m2, i, j, n character*a� , intent(in), dimension(m1, m2) :: c !f2py integer, depend(c), intent(hide) :: m1 = len(c) !f2py integer, depend(c), intent(hide) :: m2 = shape(c, 1) !f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c) integer*1, dimension(m1, m2, n), intent(out) :: o do i=1,m1 do j=1,m2 o(i, j, :) = transfer(c(i, j), o(i, j, :)) end do end do end subroutine z �lengthc C s\ ddi� ||�}t| j| jd | �}dddd�| }t||�tjttt |��dd �� d S ) Nr r r �a�abc�abcdeabcdeabcder �u1��dtype) �get�getattr�module�fprefixr �np�array�list�map�ord��selfr �fsuffix�fr � r' ��/root/rpmbuild/BUILDROOT/imh-python39-modules-3.9.7-92.el8.x86_64/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/test_character.py� test_inputL s z TestCharacterString.test_inputN���c C sR |}t | j| jd | �}ddd�| }t|tjttt|��dd��|� � � d S )Nr r r )r r r r ) r r r r r r r r! r" �encoder# r' r' r( � test_outputU s �z TestCharacterString.test_outputc C sn |}t | j| jd | �}tjdddd�| dddd�| gd d �}tjd d � |D �d d �}t||�|� d S )Nr r r r r �A�ABC�ABCDEABCDEABCDE�Sr c S s g | ]}d d� |D ��qS )c S s g | ]}|�qS r' r' ��.0�cr' r' r( � <listcomp>h � zCTestCharacterString.test_array_input.<locals>.<listcomp>.<listcomp>r' �r2 �sr' r' r( r4 h r5 z8TestCharacterString.test_array_input.<locals>.<listcomp>r �r r r r r r �r$ r r% r& r �expectedr' r' r( �test_array_input_ s ��z$TestCharacterString.test_array_inputc C sn |}t | j| jd | �}tjdddd�| dddd�| gd d �}tjd d � |D �d d �}t||�|� d S )Nr r r r r r- r. r/ r0 r c S s g | ]}d d� |D ��qS )c S s g | ]}|�qS r' r' r1 r' r' r( r4 t r5 zDTestCharacterString.test_array_output.<locals>.<listcomp>.<listcomp>r' r6 r' r' r( r4 t r5 z9TestCharacterString.test_array_output.<locals>.<listcomp>r r8 )r$ r r% r& r: r r' r' r( �test_array_outputk s ��z%TestCharacterString.test_array_outputc C s� |}t | j| jd | �}tjdddd�| dddd�| gd d d d�| d d dd�| ggdd�}tjdd� |D �dd d�}t||�|� d S )Nr r r r r r- r. r/ r& ZfghZfghijfghijfghij�FZFGHZFGHIJFGHIJFGHIJr0 r c S s g | ]}d d� |D ��qS )c S s g | ]}d d� |D ��qS )c S s g | ]}|�qS r' r' r1 r' r' r( r4 � r5 zQTestCharacterString.test_2d_array_input.<locals>.<listcomp>.<listcomp>.<listcomp>r' )r2 �itemr' r' r( r4 � r5 zFTestCharacterString.test_2d_array_input.<locals>.<listcomp>.<listcomp>r' )r2 �rowr' r' r( r4 � r5 z;TestCharacterString.test_2d_array_input.<locals>.<listcomp>r �r �orderr8 r9 r' r' r( �test_2d_array_inputw s �����z'TestCharacterString.test_2d_array_input)�__name__� __module__� __qualname__�suffixr Z length_list�coder r% �dictr Zclength�textwrap�dedent�pytest�mark� parametrizer) r, r; r< rB r' r' r' r( r s� ��� � � � � ������ � � � � �(�(�*�*�,�6�6�9 r c 3 @ s� e Zd ZdZdZe�de� de� de� de� de� de� d e� d e� d e� d e� d e� de� de� de� de� de� de� de� de� de� de� de� de� de� d�1�Zej � d d d g�d d � �Z d!d"� Z ej � d g d#��d$d%� �Z d&d'� Zej � d g d#��d(d)� �Zd*d+� Zd,d-� Zd.d/� Zej � d d d g�d0d1� �Zd2d3� Zej � d d d g�d4d5� �Zej � d d d g�d6d7� �Zd8d9� Zej �d:�d;d<� �Zd=d>� Zd?S )@� TestCharacterr Ztest_character� subroutine z�_input(c, o) character, intent(in) :: c integer*1 o !f2py intent(out) o o = transfer(c, o) end subroutine z_input subroutine z�_output(c, o) character :: c integer*1, intent(in) :: o !f2py intent(out) c c = transfer(o, c) end subroutine z_output subroutine z�_input_output(c, o) character, intent(in) :: c character o !f2py intent(out) o o = c end subroutine z!_input_output subroutine z�_inout(c, n) character :: c, n !f2py intent(in) n !f2py intent(inout) c c = n end subroutine z_inout function z�_return(o) result (c) character :: c character, intent(in) :: o c = transfer(o, c) end function z_return subroutine z�_array_input(c, o) character, intent(in) :: c(3) integer*1 o(3) !f2py intent(out) o integer i do i=1,3 o(i) = transfer(c(i), o(i)) end do end subroutine z _array_input subroutine a' _2d_array_input(c, o) character, intent(in) :: c(2, 3) integer*1 o(2, 3) !f2py intent(out) o integer i, j do i=1,2 do j=1,3 o(i, j) = transfer(c(i, j), o(i, j)) end do end do end subroutine z#_2d_array_input subroutine z�_array_output(c, o) character :: c(3) integer*1, intent(in) :: o(3) !f2py intent(out) c do i=1,3 c(i) = transfer(o(i), c(i)) end do end subroutine z!_array_output subroutine z�_array_inout(c, n) character :: c(3), n(3) !f2py intent(in) n(3) !f2py intent(inout) c(3) do i=1,3 c(i) = n(i) end do end subroutine z _array_inout subroutine a _2d_array_inout(c, n) character :: c(2, 3), n(2, 3) !f2py intent(in) n(2, 3) !f2py intent(inout) c(2. 3) integer i, j do i=1,2 do j=1,3 c(i, j) = n(i, j) end do end do end subroutine z!_2d_array_inout function z�_array_return(o) result (c) character, dimension(3) :: c character, intent(in) :: o(3) do i=1,3 c(i) = o(i) end do end function z _array_return function z�_optional(o) result (c) character, intent(in) :: o !f2py character o = "a" character :: c c = o end function z_optional r r3 �S1c C s� t | j| jd �}t|tjd|d��td�� t|tjd|d��td�� t|tjdg|d��td�� t|tjd|d��td�� t|tjdgg|d��td�� d S )N�_inputr r � ar )r r r r r r r" �r$ r r& r' r' r( r) � s zTestCharacter.test_inputc C s� t | j| jd �}t|d�td�� t|d�td�� t|d�d� t|d�d� t|d�d� t|d�td�� t|d �td�� t|dg�td�� t|t�d��td�� t|t�dg��td�� t�d�}t||�td�� t�dg�}t||�td�� z |g � W n8 t�yH } z t|�� d ��s4� W Y d }~nd }~0 0 t |j � d ���z |d � W n8 t �y� } z t|�� d ��s�� W Y d }~nd }~0 0 t |j � d���d S )NrQ r rR r r r5 � �abs abz got 0-listz! should have failed on empty list�a z got int instancez should have failed on int value) r r r r r" r r � IndexError�str�endswith� SystemErrorrC � TypeError�r$ r& r �msgr' r' r( �test_input_varia� s6 z TestCharacter.test_input_varia)r3 rP �U1c C sv t | j| jd �}t|tjg d�|d��tjtttd��dd�� t|tjg d�|d��tjtttd��dd�� d S )N� _array_input�r �br3 r r �i1�rR � b� c) r r r r r r r r! r" rS r' r' r( r; s ��z TestCharacter.test_array_inputc C s� t | j| jd �}t|g d��tjtttd��dd�� t|g d��tjtttd��dd�� z|g d�� W n4 t y� } z t |�� d�s�� W Y d }~nd }~0 0 t |j � d ���d S ) Nr` ra r rc r rd �r rb r3 �d�)th dimension must be fixed to 3 but got 4�" should have failed on wrong input)r r r r r r r r! r" � ValueErrorrX rY rZ rC )r$ r& r] r' r' r( �test_array_input_varia( s" � �� �z$TestCharacter.test_array_input_variac C sZ t | j| jd �}tjg d�g d�g|dd�}|�|dkr@tjntj�}t||�|� d S )NZ_2d_array_inputra �rh �er& r= r@ r_ ) r r r r r �viewZuint32Zuint8r )r$ r r& r r: r' r' r( rB 9 s ��z!TestCharacter.test_2d_array_inputc C s6 t | j| jd �}t|td��d� t|d�d� d S )N�_outputrR r rT )r r r r r" �r$ r& r' r' r( r, B s zTestCharacter.test_outputc C s< t | j| jd �}t|tttd���tjtd�dd�� d S )NZ _array_outputr rP r ) r r r r r r! r" r r rq r' r' r( r< H s �z TestCharacter.test_array_outputc C s@ t | j| jd �}t|d�d� t|d�d� t|d�d� d S )NZ _input_outputrR r r rT �r r r r rq r' r' r( �test_input_outputN s z TestCharacter.test_input_outputc C s� t | j| jd �}tjtd�|d�}||d� t|tjtd�|jd�� ||dd � d� t|tjtd�|jd�� tjdg|d�}||d� t|tjdg|jd�� d S ) N�_inoutr r r- �Abc� �BZABc)r r r r r r r r )r$ r r& r r' r' r( � test_inoutU s zTestCharacter.test_inoutc C s� t | j| jd �}tjddd�}||d� t|tjd|jd�� tjdgdd�}||d� t|tjdg|jd�� z|dd� W n4 ty� } z t|�� d�s�� W Y d }~nd }~0 0 t |j � d���d S ) Nrt r ZS3r r- ru z got 3-strz should have failed on str value) r r r r r r r rk rX rY rZ rC r\ r' r' r( �test_inout_variac s z TestCharacter.test_inout_variac C s4 t | j| jd �}tjg d�|dd�}tjg d�|dd�}|||� t||� tjg d�|d�}||dd � |� t|tjg d �|d�� tjg d�g|dd�}|||� t|tjg d�g|d�� tjg d�|dd�}z|||� W n8 t�y } z t|��d ��s � W Y d }~nd }~0 0 t |j � d ���d S ) NZ _array_inout�r- rw �Cr= r@ ra rg r rv )r r- rw r{ ri rj ) r r r r r r rk rX rY rZ rC )r$ r r& �nr r] r' r' r( �test_array_inoutu s, � �z TestCharacter.test_array_inoutc C sb t | j| jd �}tjg d�g d�g|dd�}tjg d�g d�g|dd�}|||� t||� d S )NZ_2d_array_inoutrz )�D�Er= r= r@ ra rm r8 )r$ r r& r| r r' r' r( �test_2d_array_inout� s �� �� z!TestCharacter.test_2d_array_inoutc C s$ t | j| jd �}t|d�d� d S )NZ_returnr rR rr rq r' r' r( � test_return� s zTestCharacter.test_returnz*fortran function returning array segfaultsc C s6 t | j| jd �}tjtd�dd�}t||�|� d S )NZ _array_returnr rP r )r r r r r r r )r$ r& r r' r' r( �test_array_return� s z TestCharacter.test_array_returnc C s0 t | j| jd �}t|� d� t|d�d� d S )NZ _optionalrR � Brr rq r' r' r( � test_optional� s zTestCharacter.test_optionalN)rC rD rE rF r rI rJ rG rK rL rM r) r^ r; rl rB r, r< rs rx ry r} r� r� �skipr� r� r' r' r' r( rN � s� ��� ����� �!�#�+�-�7�9�@�B�I�K�U�W�]�_�d� g # rN c @ s� e Zd ZdZdZe�de� de� de� de� de� de� d e� d e� d e� d e� d e� de� d��Zdd� Zdd� Z dd� Z dd� Z e j �dddg�dd � �Zd S ) �TestMiscCharacterr Ztest_misc_characterrO a( _gh18684(x, y, m) character(len=5), dimension(m), intent(in) :: x character*5, dimension(m), intent(out) :: y integer i, m !f2py integer, intent(hide), depend(x) :: m = f2py_len(x) do i=1,m y(i) = x(i) end do end subroutine z _gh18684 subroutine z�_gh6308(x, i) integer i !f2py check(i>=0 && i<12) i character*5 name, x common name(12) name(i + 1) = x end subroutine z_gh6308 subroutine z�_gh4519(x) character(len=*), intent(in) :: x(:) !f2py intent(out) x integer :: i ! Uncomment for debug printing: !do i=1, size(x) ! print*, "x(",i,")=", x(i) !end do end subroutine z _gh4519 pure function aq _gh3425(x) result (y) character(len=*), intent(in) :: x character(len=len(x)) :: y integer :: i do i = 1, len(x) j = iachar(x(i:i)) if (j>=iachar("a") .and. j<=iachar("z") ) then y(i:i) = achar(j-32) else y(i:i) = x(i:i) endif end do end function z_gh3425 subroutine aO _character_bc_new(x, y, z) character, intent(in) :: x character, intent(out) :: y !f2py character, depend(x) :: y = x !f2py character, dimension((x=='a'?1:2)), depend(x), intent(out) :: z character, dimension(*) :: z !f2py character, optional, check(x == 'a' || x == 'b') :: x = 'a' !f2py callstatement (*f2py_func)(&x, &y, z) !f2py callprotoargument character*, character*, character* if (y.eq.x) then y = x else y = 'e' endif z(1) = 'c' end subroutine z%_character_bc_new subroutine aG _character_bc_old(x, y, z) character, intent(in) :: x character, intent(out) :: y !f2py character, depend(x) :: y = x[0] !f2py character, dimension((*x=='a'?1:2)), depend(x), intent(out) :: z character, dimension(*) :: z !f2py character, optional, check(*x == 'a' || x[0] == 'b') :: x = 'a' !f2py callstatement (*f2py_func)(x, y, z) !f2py callprotoargument char*, char*, char* if (y.eq.x) then y = x else y = 'e' endif z(1) = 'c' end subroutine z_character_bc_old c C s: t | j| jd �}tjddgdd�}||�}t||� d S )NZ_gh18684�abcdeZfghij�S5r r8 )r$ r& �x�yr' r' r( � test_gh18684 s z TestMiscCharacter.test_gh18684c C s~ t | j| jd �}t| jjjjt�d�� tt| jjj�d� |dd� t| jjjd d� |dd� t| jjjd d � d S ) NZ_gh6308r� � r� r s abcdeZ12345� s 12345) r r r r Z_BLNK_�namer r �lenrq r' r' r( � test_gh6308 s z TestMiscCharacter.test_gh6308c C s� t | j| jd �}dtdt�d�d�fdtdt�d�d�ftjg d�dd �td t�d�d�fg d �td t�d �d�fd d gtdt�d�d�ffD ]2\}}||�}|�� D ]\}}tt ||�|� q�q�d S )NZ_gh4519r r' rP )�shaper �textZS4)r �2r r )� )r r� Z34ZS2r )� ) r r r rH r r r �itemsr )r$ r& r� r: �r�k�vr' r' r( � test_gh4519 s ��� z TestMiscCharacter.test_gh4519c C s@ t | j| jd �}t|d�d� t|d�d� t|d�d� d S )NZ_gh3425ZabCs ABCr r5 ZabC12ds ABC12Drr rq r' r' r( � test_gh3425& s z TestMiscCharacter.test_gh3425�state�new�oldc sr t | j| jd | �� � � \}}t|d� tt|�d� � d�\}}t|d� tt|�d� tt� fdd�� d S )NZ_character_bc_rR rv re r� c s � d�S )Nrf r' r' �r& r' r( �<lambda>; r5 z5TestMiscCharacter.test_character_bc.<locals>.<lambda>)r r r r r� r � Exception)r$ r� r3 r r' r� r( �test_character_bc/ s z#TestMiscCharacter.test_character_bcN)rC rD rE rF r rI rJ rG r� r� r� r� rK rL rM r� r' r' r' r( r� � sB � � ���� �)�+�:�<�K� N r� c @ s. e Zd Ze�dddd�gZdd� Zdd� Zd S ) �TestStringScalarArr�tests�src�stringzscalar_string.f90c C sB | j jj| j jjfD ](}d}|j|ks*J �d}|j|ksJ �qd S )Nr' z|S8)r � string_testr� Zstring77r� r �r$ �outr: r' r' r( � test_charA s �z TestStringScalarArr.test_charc C sB | j jj| j jjfD ](}d}|j|ks*J �d}|j|ksJ �qd S )N)r� � z|S12)r r� ZstrarrZstrarr77r� r r� r' r' r( � test_char_arrI s �z!TestStringScalarArr.test_char_arrN)rC rD rE r �getpath�sourcesr� r� r' r' r' r( r� > s r� c @ s& e Zd Ze�dddd�gZdd� ZdS )�TestStringAssumedLengthr� r� r� z gh24008.fc C s | j �dd� d S )NZjoeZbob)r Zgreet)r$ r' r' r( � test_gh24008T s z$TestStringAssumedLength.test_gh24008N)rC rD rE r r� r� r� r' r' r' r( r� Q s r� )rK rI Z numpy.testingr r r �numpyr Znumpy.f2py.testsr ZF2PyTestr rN r� r� r� r' r' r' r( �<module> s ~ ,
| ver. 1.1 | |
.
| PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка