[Octave-cvsupdate] octave-forge/main/odepkg/inst ode5d.m,1.4,1.5

[Thomas T. <tr...@us...>]

Update of /cvsroot/octave/octave-forge/main/odepkg/inst
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv11030

Modified Files:
	ode5d.m 
Log Message:
In octave te "which" function changed, therefore the tests of this file had to be adapted.


Index: ode5d.m
===================================================================
RCS file: /cvsroot/octave/octave-forge/main/odepkg/inst/ode5d.m,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- ode5d.m	6 Feb 2007 19:39:42 -0000	1.4
+++ ode5d.m	25 Feb 2007 21:31:13 -0000	1.5
@@ -53,47 +53,47 @@
 
 %# The following tests have been added to check the function's input arguments and output arguments
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    vsol = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0]);
 %!  end 
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    [vx, vy] = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0]);
 %!  end
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    [vx, vy, va, vb, vc] = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0]);
 %!  end
 
 %# Removed the fixed step size tests because they won't work with this solver
 
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    A = odeset ('MaxStep', 0.1, 'RelTol', 1e-2, 'AbsTol', 1e-3);
 %!    vsol = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0], A);
 %!  end
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    A = odeset ('MaxStep', 0.1, 'RelTol', 1e-2, 'AbsTol', 1e-3);
 %!    [vx, vy] = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0], A);
 %!  end
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    A = odeset ('MaxStep', 0.1, 'RelTol', 1e-2, 'AbsTol', 1e-3);
 %!    [vx, vy, va, vb, vc] = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0], A);
 %!  end
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    A = odeset ('MaxStep', 0.1, 'RelTol', 1e-2, 'AbsTol', 1e-3);
 %!    vsol = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0], A, 1.2);
 %!  end
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    A = odeset ('MaxStep', 0.1, 'RelTol', 1e-2, 'AbsTol', 1e-3);
 %!    [vx, vy] = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0], A, 1.2);
 %!  end
 %!test
-%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), "undefined"))
+%!  if (!strcmp (which ("odepkg_mexsolver_dopri5"), ""))
 %!    A = odeset ('MaxStep', 0.1, 'RelTol', 1e-2, 'AbsTol', 1e-3);
 %!    [vx, vy, va, vb, vc] = ode5d (@odepkg_equations_vanderpol, [0 2], [2 0], A, 1.2);
 %!  end