Mercurial > octave-nkf
changeset 7940:1bfb88e78027
fix tests
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 17 Jul 2008 10:55:50 -0400 |
| parents | 18d7171759ff |
| children | f8cab9eeb128 |
| files | scripts/ChangeLog scripts/general/fliplr.m scripts/testfun/test.m |
| diffstat | 3 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog Thu Jul 17 11:57:56 2008 +0200 +++ b/scripts/ChangeLog Thu Jul 17 10:55:50 2008 -0400 @@ -1,3 +1,8 @@ +2008-07-17 John W. Eaton <jwe@octave.org> + + * general/fliplr.m: Fix usage test. + * testfun/test.m: Fix usage tests. + 2008-07-17 Jaroslav Hajek <highegg@gmail.com> * statistics/base/cov.m: Fix test that should no longer work.
--- a/scripts/general/fliplr.m Thu Jul 17 11:57:56 2008 +0200 +++ b/scripts/general/fliplr.m Thu Jul 17 10:55:50 2008 -0400 @@ -56,7 +56,7 @@ %! && fliplr ([1, 2; 3, 4; 5, 6]) == [2, 1; 4, 3; 6, 5] %! && fliplr ([1, 2, 3; 4, 5, 6]) == [3, 2, 1; 6, 5, 4])); -%!error <usage.*fliplr> fliplr(); +%!error fliplr(); %!error fliplr (1, 2);
--- a/scripts/testfun/test.m Thu Jul 17 11:57:56 2008 +0200 +++ b/scripts/testfun/test.m Thu Jul 17 10:55:50 2008 -0400 @@ -689,8 +689,8 @@ %!fail ('test("test", "bogus")','unknown flag') # incorrect args %!fail ('garbage','garbage.*undefined') # usage on nonexistent function should be -%!error <usage.*test> test # no args, generates usage() -%!error <usage.*test> test(1,2,3,4) # too many args, generates usage() +%!error test # no args, generates usage() +%!error test(1,2,3,4) # too many args, generates usage() %!error <unknown flag> test("test", 'bogus'); # incorrect args, generates error() %!error <garbage' undefined> garbage # usage on nonexistent function should be