FM / tests

/usr/local/lib64/python3.6/site-packages/numpy/f2py/tests/

/usr/local/lib64/python3.6/site-packages/numpy/f2py/tests

Name	Size	Mode	Actions
src/	-	0755	rm
__pycache__/	-	0755	rm
test_array_from_pyobj.py	21977	0644	edit dl rm
test_assumed_shape.py	1584	0644	edit dl rm
test_block_docstring.py	621	0644	edit dl rm
test_callback.py	3987	0644	edit dl rm
test_common.py	802	0644	edit dl rm
test_compile_function.py	4309	0644	edit dl rm
test_crackfortran.py	2797	0644	edit dl rm
test_kind.py	1012	0644	edit dl rm
test_mixed.py	911	0644	edit dl rm
test_parameter.py	3910	0644	edit dl rm
test_quoted_character.py	927	0644	edit dl rm
test_regression.py	698	0644	edit dl rm
test_return_character.py	3919	0644	edit dl rm
test_return_complex.py	4615	0644	edit dl rm
test_return_integer.py	4576	0644	edit dl rm
test_return_logical.py	4843	0644	edit dl rm
test_return_real.py	5402	0644	edit dl rm
test_semicolon_split.py	1514	0644	edit dl rm
test_size.py	1286	0644	edit dl rm
test_string.py	610	0644	edit dl rm
util.py	9613	0644	edit dl rm
__init__.py	0	0644	edit dl rm

Edit: /usr/local/lib64/python3.6/site-packages/numpy/f2py/tests/test_return_character.py (3919B)

import pytest

from numpy import array
from numpy.testing import assert_
from . import util
import platform
IS_S390X = platform.machine() == 's390x'

class TestReturnCharacter(util.F2PyTest):

def check_function(self, t, tname):
        if tname in ['t0', 't1', 's0', 's1']:
            assert_(t(23) == b'2')
            r = t('ab')
            assert_(r == b'a', repr(r))
            r = t(array('ab'))
            assert_(r == b'a', repr(r))
            r = t(array(77, 'u1'))
            assert_(r == b'M', repr(r))
            #assert_(_raises(ValueError, t, array([77,87])))
            #assert_(_raises(ValueError, t, array(77)))
        elif tname in ['ts', 'ss']:
            assert_(t(23) == b'23        ', repr(t(23)))
            assert_(t('123456789abcdef') == b'123456789a')
        elif tname in ['t5', 's5']:
            assert_(t(23) == b'23   ', repr(t(23)))
            assert_(t('ab') == b'ab   ', repr(t('ab')))
            assert_(t('123456789abcdef') == b'12345')
        else:
            raise NotImplementedError

class TestF77ReturnCharacter(TestReturnCharacter):
    code = """
       function t0(value)
         character value
         character t0
         t0 = value
       end
       function t1(value)
         character*1 value
         character*1 t1
         t1 = value
       end
       function t5(value)
         character*5 value
         character*5 t5
         t5 = value
       end
       function ts(value)
         character*(*) value
         character*(*) ts
         ts = value
       end

subroutine s0(t0,value)
         character value
         character t0
cf2py    intent(out) t0
         t0 = value
       end
       subroutine s1(t1,value)
         character*1 value
         character*1 t1
cf2py    intent(out) t1
         t1 = value
       end
       subroutine s5(t5,value)
         character*5 value
         character*5 t5
cf2py    intent(out) t5
         t5 = value
       end
       subroutine ss(ts,value)
         character*(*) value
         character*10 ts
cf2py    intent(out) ts
         ts = value
       end
    """

@pytest.mark.xfail(IS_S390X, reason="calback returns ' '")
    @pytest.mark.parametrize('name', 't0,t1,t5,s0,s1,s5,ss'.split(','))
    def test_all(self, name):
        self.check_function(getattr(self.module, name), name)

class TestF90ReturnCharacter(TestReturnCharacter):
    suffix = ".f90"
    code = """
module f90_return_char
  contains
       function t0(value)
         character :: value
         character :: t0
         t0 = value
       end function t0
       function t1(value)
         character(len=1) :: value
         character(len=1) :: t1
         t1 = value
       end function t1
       function t5(value)
         character(len=5) :: value
         character(len=5) :: t5
         t5 = value
       end function t5
       function ts(value)
         character(len=*) :: value
         character(len=10) :: ts
         ts = value
       end function ts

subroutine s0(t0,value)
         character :: value
         character :: t0
!f2py    intent(out) t0
         t0 = value
       end subroutine s0
       subroutine s1(t1,value)
         character(len=1) :: value
         character(len=1) :: t1
!f2py    intent(out) t1
         t1 = value
       end subroutine s1
       subroutine s5(t5,value)
         character(len=5) :: value
         character(len=5) :: t5
!f2py    intent(out) t5
         t5 = value
       end subroutine s5
       subroutine ss(ts,value)
         character(len=*) :: value
         character(len=10) :: ts
!f2py    intent(out) ts
         ts = value
       end subroutine ss
end module f90_return_char
    """

@pytest.mark.xfail(IS_S390X, reason="calback returns ' '")
    @pytest.mark.parametrize('name', 't0,t1,t5,ts,s0,s1,s5,ss'.split(','))
    def test_all(self, name):
        self.check_function(getattr(self.module.f90_return_char, name), name)

cmd: