test_func.m File Reference

Functions
!function	__fntestfunc__ (fn, mn, varargin)%!typ
	!if (length(varargin) > 0 &&iscell(varargin{1}))%!skip
	!varargin (1)
	!if (any(nsparse==i))%!if(ndims(m) > 2)%!sz
!endif	!if (any(cmplx==i))%!m
!endif!endif	!if (any(nlogical==i))%!m
!endif	!if (any(ninteger==i))%!m
!endif	!if (strcmp(typ{i}, 'cell'))%!m
	!elseif (strcmp(typ{i}, 'struct'))%!m
	!if (!strcmp(class(y), class(m))||%!issparse(y)!=issparse(m)||!size_equal(y, y2))%!error('failed for type%s\n'
!endif	!if (!(strcmp(typ{i}, 'cell')||strcmp(typ{i}, 'struct'))&&%!any(vec(cast(real(y), 'double'))!=%!vec(feval(fn, cast(real(m), 'double'), varargin{:}))))%!error('failed for type%s\n'
!test	!__fntestfunc__ ('triu', m1,{'struct'})
!test	!__fntestfunc__ ('triu', m3,{'struct'})
!test	!__fntestfunc__ ('tril', m1,{'struct'})
!test	!__fntestfunc__ ('tril', m3,{'struct'})
!test	!__fntestfunc__ ('squeeze', m2)
!test	!__fntestfunc__ ('squeeze', m3)
!test	!__fntestfunc__ ('permute', m1,[2, 1])
!test	!__fntestfunc__ ('permute', m2,{'sparse', 'logical sparse', 'complex sparse'},[3, 1, 2])
!test	!__fntestfunc__ ('permute', m3,[2, 1])
!test	!__fntestfunc__ ('ipermute', m1,[2, 1])
!test	!__fntestfunc__ ('ipermute', m2,{'sparse', 'logical sparse', 'complex sparse'},[3, 1, 2])
!test	!__fntestfunc__ ('ipermute', m3,[2, 1])
!test	!__fntestfunc__ ('shiftdim', m2, 1)
!test	!__fntestfunc__ ('shiftdim', m2,{'sparse', 'logical sparse', 'complex sparse'},-1)
!test	!__fntestfunc__ ('shiftdim', m3, 1)
!test	!__fntestfunc__ ('circshift', m2, 1)
!test	!__fntestfunc__ ('circshift', m2,[1,-1])
!test	!__fntestfunc__ ('circshift', m3, 1)
!test	!__fntestfunc__ ('reshape', m2,[6, 5])
!test	!__fntestfunc__ ('reshape', m3,[1, 0])
!test	!__fntestfunc__ ('diag', m0,{'struct'})
!test	!__fntestfunc__ ('diag', m1,{'struct'})
!test	!__fntestfunc__ ('diag', m3,{'struct'})
!test	!__fntestfunc__ ('fliplr', m1)
!test	!__fntestfunc__ ('fliplr', m3)
!test	!__fntestfunc__ ('flipud', m1)
!test	!__fntestfunc__ ('flipud', m3)
!test	!__fntestfunc__ ('flipdim', m1, 2)
!test	!__fntestfunc__ ('flipdim', m3, 2)
!test	!__fntestfunc__ ('transpose', m1)
!test	!__fntestfunc__ ('transpose', m3)
!test	!__fntestfunc__ ('ctranspose', m1)
!test	!__fntestfunc__ ('ctranspose', m3)
!test	!__fntestfunc__ ('rot90', m1)
!test	!__fntestfunc__ ('rot90', m1, 2)
!test	!__fntestfunc__ ('rot90', m1,-1)
!test	!__fntestfunc__ ('rot90', m3)
!test	!__fntestfunc__ ('rotdim', m2, 1,[1, 2])
!test	!__fntestfunc__ ('rotdim', m2, 2,[1, 2])
!test	!__fntestfunc__ ('rotdim', m2,-1,[1, 2])
!test	!__fntestfunc__ ('rotdim', m3, 1,[1, 2])
Variables
	!cmplx = [2, 5, 18]
	!nlogical = [3, 6]
	!ninteger = [7, 8, 9, 10, 11, 12, 13, 14]
	!nsparse = [4, 5, 6]
	!skip = {}
!endif!for	i
!endif	!m = mn
!endif	!y = feval (fn, m, varargin{:})
	!y2 = feval (fn, reshape (mn, size (m)), varargin{:})
!endif!endfor!endfunction!shared	m0
!endif!endfor!endfunction!shared	m1
!endif!endfor!endfunction!shared	m2
!endif!endfor!endfunction!shared m3	!m0 = [1:5]
	!m1 = reshape ([1 : 30], [5, 6])
	!m2 = reshape ([1 : 30], [5, 1, 6])
	!m3 = []

---

Function Documentation

!test !__fntestfunc__	(	'rotdim'	,
		m3	,
		1
	)

!test !__fntestfunc__	(	'rotdim'	,
		m2	,
		-	1
	)

!test !__fntestfunc__	(	'rotdim'	,
		m2	,
		2
	)

!test !__fntestfunc__	(	'rotdim'	,
		m2	,
		1
	)

!test !__fntestfunc__	(	'rot90'	,
		m3
	)

!test !__fntestfunc__	(	'rot90'	,
		m1	,
		-	1
	)

!test !__fntestfunc__	(	'rot90'	,
		m1	,
		2
	)

!test !__fntestfunc__	(	'rot90'	,
		m1
	)

!test !__fntestfunc__	(	'ctranspose'	,
		m3
	)

!test !__fntestfunc__	(	'ctranspose'	,
		m1
	)

!test !__fntestfunc__	(	'transpose'	,
		m3
	)

!test !__fntestfunc__	(	'transpose'	,
		m1
	)

!test !__fntestfunc__	(	'flipdim'	,
		m3	,
		2
	)

!test !__fntestfunc__	(	'flipdim'	,
		m1	,
		2
	)

!test !__fntestfunc__	(	'flipud'	,
		m3
	)

!test !__fntestfunc__	(	'flipud'	,
		m1
	)

!test !__fntestfunc__	(	'fliplr'	,
		m3
	)

!test !__fntestfunc__	(	'fliplr'	,
		m1
	)

!test !__fntestfunc__	(	'diag'	,
		m3
	)

!test !__fntestfunc__	(	'diag'	,
		m1
	)

!test !__fntestfunc__	(	'diag'	,
		m0
	)

!test !__fntestfunc__	(	'reshape'	,
		m3
	)

!test !__fntestfunc__	(	'reshape'	,
		m2
	)

!test !__fntestfunc__	(	'circshift'	,
		m3	,
		1
	)

!test !__fntestfunc__	(	'circshift'	,
		m2
	)

!test !__fntestfunc__	(	'circshift'	,
		m2	,
		1
	)

!test !__fntestfunc__	(	'shiftdim'	,
		m3	,
		1
	)

!test !__fntestfunc__	(	'shiftdim'	,
		m2
	)

!test !__fntestfunc__	(	'shiftdim'	,
		m2	,
		1
	)

!test !__fntestfunc__	(	'ipermute'	,
		m3
	)

!test !__fntestfunc__	(	'ipermute'	,
		m2
	)

!test !__fntestfunc__	(	'ipermute'	,
		m1
	)

!test !__fntestfunc__	(	'permute'	,
		m3
	)

!test !__fntestfunc__	(	'permute'	,
		m2
	)

!test !__fntestfunc__	(	'permute'	,
		m1
	)

!test !__fntestfunc__	(	'squeeze'	,
		m3
	)

!test !__fntestfunc__	(	'squeeze'	,
		m2
	)

!test !__fntestfunc__	(	'tril'	,
		m3
	)

!test !__fntestfunc__	(	'tril'	,
		m1
	)

!test !__fntestfunc__	(	'triu'	,
		m3
	)

!test !__fntestfunc__	(	'triu'	,
		m1
	)

!elseif

(

strcmp(typ{i}, 'struct')

)

! endif !if

(

!

strcmp(typ{i}, 'cell')||strcmp(typ{i}, 'struct'))&&%!any(vec(cast(real(y), 'double'))!=%!vec(feval(fn, cast(real(m), 'double'), varargin{:}))

)

!if

(

!strcmp(class(y), class(m))||%!issparse(y)!

= issparse (m) || !size_equal (y, y2)

)

! endif !if

(

strcmp(typ{i}, 'cell')

)

! endif !if

(

any(ninteger==i)

)

! endif ! endif !if

(

any(nlogical==i)

)

! endif !if

(

any(cmplx==i)

)

!if

(

any(nsparse==i)

)

!if	(	length(varargin)	,
		0 &&	iscellvarargin{1}
	)

!varargin

(

1

)

!function __fntestfunc__	(	fn	,
		mn	,
		varargin
	)

---

Variable Documentation

!cmplx = [2, 5, 18]

! else !m = mn

! endif ! endfor ! endfunction !shared m3 !m0 = [1:5]

!m1 = reshape ([1 : 30], [5, 6])

!m2 = reshape ([1 : 30], [5, 1, 6])

!m3 = []

!ninteger = [7, 8, 9, 10, 11, 12, 13, 14]

!nlogical = [3, 6]

!nsparse = [4, 5, 6]

!skip = {}

! endif !y = feval (fn, m, varargin{:})

!y2 = feval (fn, reshape (mn, size (m)), varargin{:})

! endif ! for i

Initial value:

 1 : length(typ)
%!    if (any (strcmp (skip, typ {i})))
%!      continue

! endif ! endfor ! endfunction !shared m0

! endif ! endfor ! endfunction !shared m1

! endif ! endfor ! endfunction !shared m2