Mercurial > octave-nkf

annotate test/bug-38576.tst @ 20600:1d6ab08edcde stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Ethan Biery to list of contributors
author Philip Nienhuis <prnienhuis@users.sf.net>
date Thu, 01 Oct 2015 22:38:34 +0200
parents 730bc06134f9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16360
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
1 %!function r = f1 ()
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
2 %! ls = svd (1);
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
3 %! r = eval ("ls -1;");
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
4 %!endfunction
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
5 %!function r = f2 ()
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
6 %! [u,ls,v] = svd (1);
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
7 %! r = eval ("ls -1;");
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
8 %!endfunction
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
9 %!function r = f3 (ls)
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
10 %! r = eval ("ls -1;");
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
11 %!endfunction
11115c237231 recognize variables when parsing (bug #38576)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
12
17913
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
13 %!test
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
14 %! ## Windows systems can't run "ls -1"
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
15 %! if (! ispc ())
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
16 %! assert (f1 (), 0);
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
17 %! assert (f2 (), 0);
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
18 %! assert (ischar (f3 ()), true);
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
19 %! assert (f3 (1), 0);
730bc06134f9 test: Don't run bug-38576.tst on Windows systems where ls does not exist.
Rik <rik@octave.org>
parents: 16360
diff changeset
20 %! endif