Mercurial > hg > octave-lyh

comparison src/defaults.cc @ 14429:eff4a5933e28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update %!tests in src/ directory with Octave coding conventions. * data.cc, defaults.cc, dirfns.cc, file-io.cc, graphics.cc, mappers.cc, oct-map.cc, octave.cc, ov-base.cc, ov-bool-mat.cc, ov-cell.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-flt-re-mat.cc, ov-int16.cc, ov-int32.cc, ov-int64.cc, ov-int8.cc, ov-null-mat.cc, ov-oncleanup.cc, ov-range.cc, ov-re-mat.cc, ov-struct.cc, ov-typeinfo.cc, ov-uint16.cc, ov-uint32.cc, ov-uint64.cc, ov-uint8.cc, ov.cc, pr-output.cc, pt-binop.cc, pt-eval.cc, pt-idx.cc, pt-mat.cc, sighandlers.cc, strfns.cc, symtab.cc, syscalls.cc, sysdep.cc, toplev.cc, utils.cc, variables.cc: Update %!tests in src/ directory with Octave coding conventions.
author Rik <octave@nomad.inbox5.com>
date Sun, 04 Mar 2012 12:21:10 -0800
parents 72c96de7a403
children 4e9dc46d4125
comparison
equal deleted inserted replaced
14428:099bd779466c 14429:eff4a5933e28
423 { 423 {
424 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (EDITOR); 424 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (EDITOR);
425 } 425 }
426 426
427 /* 427 /*
428 %!error (EDITOR (1, 2));
429 %!test 428 %!test
430 %! orig_val = EDITOR (); 429 %! orig_val = EDITOR ();
431 %! old_val = EDITOR ("X"); 430 %! old_val = EDITOR ("X");
432 %! assert (orig_val, old_val); 431 %! assert (orig_val, old_val);
433 %! assert (EDITOR (), "X"); 432 %! assert (EDITOR (), "X");
434 %! EDITOR (orig_val); 433 %! EDITOR (orig_val);
435 %! assert (EDITOR (), orig_val); 434 %! assert (EDITOR (), orig_val);
435
436 %!error (EDITOR (1, 2))
436 */ 437 */
437 438
438 DEFUN (EXEC_PATH, args, nargout, 439 DEFUN (EXEC_PATH, args, nargout,
439 "-*- texinfo -*-\n\ 440 "-*- texinfo -*-\n\
440 @deftypefn {Built-in Function} {@var{val} =} EXEC_PATH ()\n\ 441 @deftypefn {Built-in Function} {@var{val} =} EXEC_PATH ()\n\
458 459
459 return retval; 460 return retval;
460 } 461 }
461 462
462 /* 463 /*
463 %!error (EXEC_PATH (1, 2));
464 %!test 464 %!test
465 %! orig_val = EXEC_PATH (); 465 %! orig_val = EXEC_PATH ();
466 %! old_val = EXEC_PATH ("X"); 466 %! old_val = EXEC_PATH ("X");
467 %! assert (orig_val, old_val); 467 %! assert (orig_val, old_val);
468 %! assert (EXEC_PATH (), "X"); 468 %! assert (EXEC_PATH (), "X");
469 %! EXEC_PATH (orig_val); 469 %! EXEC_PATH (orig_val);
470 %! assert (EXEC_PATH (), orig_val); 470 %! assert (EXEC_PATH (), orig_val);
471
472 %!error (EXEC_PATH (1, 2))
471 */ 473 */
472 474
473 DEFUN (IMAGE_PATH, args, nargout, 475 DEFUN (IMAGE_PATH, args, nargout,
474 "-*- texinfo -*-\n\ 476 "-*- texinfo -*-\n\
475 @deftypefn {Built-in Function} {@var{val} =} IMAGE_PATH ()\n\ 477 @deftypefn {Built-in Function} {@var{val} =} IMAGE_PATH ()\n\
485 { 487 {
486 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (IMAGE_PATH); 488 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (IMAGE_PATH);
487 } 489 }
488 490
489 /* 491 /*
490 %!error (IMAGE_PATH (1, 2));
491 %!test 492 %!test
492 %! orig_val = IMAGE_PATH (); 493 %! orig_val = IMAGE_PATH ();
493 %! old_val = IMAGE_PATH ("X"); 494 %! old_val = IMAGE_PATH ("X");
494 %! assert (orig_val, old_val); 495 %! assert (orig_val, old_val);
495 %! assert (IMAGE_PATH (), "X"); 496 %! assert (IMAGE_PATH (), "X");
496 %! IMAGE_PATH (orig_val); 497 %! IMAGE_PATH (orig_val);
497 %! assert (IMAGE_PATH (), orig_val); 498 %! assert (IMAGE_PATH (), orig_val);
499
500 %!error (IMAGE_PATH (1, 2))
498 */ 501 */
499 502
500 DEFUN (OCTAVE_HOME, args, , 503 DEFUN (OCTAVE_HOME, args, ,
501 "-*- texinfo -*-\n\ 504 "-*- texinfo -*-\n\
502 @deftypefn {Built-in Function} {} OCTAVE_HOME ()\n\ 505 @deftypefn {Built-in Function} {} OCTAVE_HOME ()\n\
512 515
513 return retval; 516 return retval;
514 } 517 }
515 518
516 /* 519 /*
517 %!error OCTAVE_HOME (1); 520 %!assert (ischar (OCTAVE_HOME ()))
518 %!assert (ischar (OCTAVE_HOME ())); 521 %!error OCTAVE_HOME (1)
519 */ 522 */
520 523
521 DEFUNX ("OCTAVE_VERSION", FOCTAVE_VERSION, args, , 524 DEFUNX ("OCTAVE_VERSION", FOCTAVE_VERSION, args, ,
522 "-*- texinfo -*-\n\ 525 "-*- texinfo -*-\n\
523 @deftypefn {Built-in Function} {} OCTAVE_VERSION ()\n\ 526 @deftypefn {Built-in Function} {} OCTAVE_VERSION ()\n\
535 538
536 return retval; 539 return retval;
537 } 540 }
538 541
539 /* 542 /*
540 %!error OCTAVE_VERSION (1); 543 %!assert (ischar (OCTAVE_VERSION ()))
541 %!assert (ischar (OCTAVE_VERSION ())); 544 %!error OCTAVE_VERSION (1)
542 */ 545 */