fntests.m File Reference

Functions
	if (nargin==1) xdir
	if (strcmp(currdir, srcdir)) testdirs
	if (!strcmp(currdir, srcdir)) fundirs
endif function	print_test_file_name (nm) filler
	printf (" %s %s", nm, filler)
endfunction function	print_pass_fail (n, p) if(n > 0) printf(" PASS %4d/%-4d"
	if (nfail > 0) printf(" FAIL %d"
endif endif	puts ("\n")
Variables
clear	all
global	files_with_no_tests = {}
global	files_with_tests = {}
global	topsrcdir = canonicalize_file_name (fullfile (xdir, ".."))
global	topbuilddir = canonicalize_file_name (fullfile (currdir, ".."))
	currdir = canonicalize_file_name (".")
else	xdir = "."
endif	srcdir = canonicalize_file_name (xdir)
else	testdirs = {currdir, srcdir}
endif	src_tree = canonicalize_file_name (fullfile (topsrcdir, "src"))
	liboctave_tree = canonicalize_file_name (fullfile (topsrcdir, "liboctave"))
	script_tree = canonicalize_file_name (fullfile (topsrcdir, "scripts"))
	local_script_tree = canonicalize_file_name (fullfile (currdir, "../scripts"))
	fundirs = {src_tree, liboctave_tree, script_tree}
endfunction function	p
endfunction function	n
	nfail = n - p
endfunction function	y

---

Function Documentation

if	(	nfail	,
		0
	)

if

(

!

strcmpcurrdir, srcdir

)

if

(

strcmp(currdir, srcdir)

)

if

(

nargin

= =1

)

endfunction function print_pass_fail	(	n	,
		p
	)

endif function print_test_file_name

(

nm

)

printf	(	" %s %s"	,
		nm	,
		filler
	)

endif endif puts

(

"\n"

)

---

Variable Documentation

all

currdir = canonicalize_file_name (".")

global files_with_no_tests = {}

global files_with_tests = {}

fundirs = {src_tree, liboctave_tree, script_tree}

liboctave_tree = canonicalize_file_name (fullfile (topsrcdir, "liboctave"))

local_script_tree = canonicalize_file_name (fullfile (currdir, "../scripts"))

endfunction function n

nfail = n - p

endfunction function p

script_tree = canonicalize_file_name (fullfile (topsrcdir, "scripts"))

endif src_tree = canonicalize_file_name (fullfile (topsrcdir, "src"))

endif srcdir = canonicalize_file_name (xdir)

else testdirs = {currdir, srcdir}

topbuilddir = canonicalize_file_name (fullfile (currdir, ".."))

topsrcdir = canonicalize_file_name (fullfile (xdir, ".."))

else xdir = "."

endfunction function y

Initial value:

 hastests (f)
  fid = fopen (f)