Mercurial > octave-nkf

comparison test/test_prefer.m @ 8583:27b2db6ff0d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test/test_prefer.m: update test to reflect new API of the 'type' function.
author sh@sh-t400
date Fri, 23 Jan 2009 15:03:39 -0500
parents 83c59e3f3106
children 5dd06f19e9be
comparison
equal deleted inserted replaced
8582:92d66bbd74af 8583:27b2db6ff0d7
133 %!test 133 %!test
134 %! ped = print_empty_dimensions (); 134 %! ped = print_empty_dimensions ();
135 %! print_empty_dimensions (0); 135 %! print_empty_dimensions (0);
136 %! a = cell (1, 1); 136 %! a = cell (1, 1);
137 %! b = type -q a; 137 %! b = type -q a;
138 %! assert(!isempty(findstr(b,"[]"))); 138 %! assert (!isempty (findstr (b{1}, "[]")));
139 %! assert(isempty(findstr(b,"[](0x0)"))); 139 %! assert (isempty (findstr (b{1} ,"[](0x0)")));
140 %! print_empty_dimensions (ped); 140 %! print_empty_dimensions (ped);
141 141
142 %% test/octave.test/prefer/prefer-22.m 142 %% test/octave.test/prefer/prefer-22.m
143 %!test 143 %!test
144 %! ped = print_empty_dimensions (); 144 %! ped = print_empty_dimensions ();
145 %! print_empty_dimensions (1); 145 %! print_empty_dimensions (1);
146 %! a = cell (1, 1); 146 %! a = cell (1, 1);
147 %! b = type -q a; 147 %! b = type -q a;
148 %! assert(!isempty(findstr(b,"[](0x0)"))); 148 %! assert (!isempty (findstr (b{1}, "[](0x0)")));
149 %! print_empty_dimensions (ped); 149 %! print_empty_dimensions (ped);
150 150
151 %% test/octave.test/prefer/prefer-23.m 151 %% test/octave.test/prefer/prefer-23.m
152 %!assert(all (size (inv ([])) == [0, 0])); 152 %!assert(all (size (inv ([])) == [0, 0]));
153 153