changeset 12848:e3323dda983b

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 619c1895e3e0
children e0a58c741996
files src/octave.cc
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
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 ());
+*/