Mercurial > hg > octave-lyh

diff scripts/io/beep.m @ 13041:e5a49b2f8225

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
codesprint: Single input validation test for beep.m * beep.m: Check number of inputs is correct.
author Rik <octave@nomad.inbox5.com>
date Sat, 03 Sep 2011 07:58:26 -0700
parents fd0a3ac60b0e
children 72c96de7a403
line wrap: on
line diff
--- a/scripts/io/beep.m
+++ b/scripts/io/beep.m
@@ -26,10 +26,13 @@
 
 function beep ()
 
-  if (nargin == 0)
-    puts ("\a");
-  else
+  if (nargin != 0)
     print_usage ();
   endif
 
+  puts ("\a");
+
 endfunction
+
+
+%!error (beep (1))