Mercurial > hg > octave-lojdl

diff src/octave.cc @ 12848:e3323dda983b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
codesprint: new tests for octave.cc * octave.cc (Fargv, Fprogram_invocation_name, Fprogram_name): New tests.
author John W. Eaton <jwe@octave.org>
date Sat, 16 Jul 2011 18:32:15 -0400
parents 6e9f100c0d61
children 8f5bd903ba68
line wrap: on
line diff
--- a/src/octave.cc
+++ b/src/octave.cc
@@ -971,6 +971,11 @@
   return retval;
 }
 
+/*
+%!error argv (1);
+%!assert (iscellstr (argv ());
+*/
+
 DEFUN (program_invocation_name, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} program_invocation_name ()\n\
@@ -993,6 +998,11 @@
   return retval;
 }
 
+/*
+%!error program_invocation_name (1);
+%!assert (ischar (program_invocation_name ());
+*/
+
 DEFUN (program_name, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} program_name ()\n\
@@ -1010,3 +1020,8 @@
 
   return retval;
 }
+
+/*
+%!error program_name (1);
+%!assert (ischar (program_name ());
+*/