Mercurial > hg > octave-nkf

comparison scripts/deprecated/dispatch.m @ 11227:84846912f3c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test/fntests.m: run tests for deprecated functions
author John W. Eaton <jwe@octave.org>
date Wed, 10 Nov 2010 16:04:55 -0500
parents 16d744cce38c
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11226:16d744cce38c 11227:84846912f3c1
48 48
49 endfunction 49 endfunction
50 50
51 51
52 %!test # builtin function replacement 52 %!test # builtin function replacement
53 %! warning off Octave:deprecated-function
54 %! dispatch('sin','length','string') 53 %! dispatch('sin','length','string')
55 %! assert(sin("abc"),3) 54 %! assert(sin("abc"),3)
56 %! assert(sin(0),0,10*eps); 55 %! assert(sin(0),0,10*eps);
56
57 %!test # 'any' function 57 %!test # 'any' function
58 %! warning off Octave:deprecated-function
59 %! dispatch('sin','exp','any') 58 %! dispatch('sin','exp','any')
60 %! assert(sin(0),1,eps); 59 %! assert(sin(0),1,eps);
61 %! assert(sin("abc"),3); 60 %! assert(sin("abc"),3);
61
62 %!test # 'builtin' function 62 %!test # 'builtin' function
63 %! warning off Octave:deprecated-function
64 %! assert(builtin('sin',0),0,eps); 63 %! assert(builtin('sin',0),0,eps);
65 %! builtin('eval','x=1;'); 64 %! builtin('eval','x=1;');
66 %! assert(x,1); 65 %! assert(x,1);
66
67 %!test # clear function mapping 67 %!test # clear function mapping
68 %! warning off Octave:deprecated-function
69 %! dispatch('sin','string') 68 %! dispatch('sin','string')
70 %! dispatch('sin','any') 69 %! dispatch('sin','any')
71 %! assert(sin(0),0,10*eps); 70 %! assert(sin(0),0,10*eps);
71
72 %!test # oct-file replacement 72 %!test # oct-file replacement
73 %! warning off Octave:deprecated-function
74 %! dispatch('fft','length','string') 73 %! dispatch('fft','length','string')
75 %! assert(fft([1,1]),[2,0]); 74 %! assert(fft([1,1]),[2,0]);
76 %! assert(fft("abc"),3) 75 %! assert(fft("abc"),3)
77 %! dispatch('fft','string'); 76 %! dispatch('fft','string');
77
78 %!test # m-file replacement 78 %!test # m-file replacement
79 %! warning off Octave:deprecated-function
80 %! dispatch('hamming','length','string') 79 %! dispatch('hamming','length','string')
81 %! assert(hamming(1),1) 80 %! assert(hamming(1),1)
82 %! assert(hamming("abc"),3) 81 %! assert(hamming("abc"),3)
83 %! dispatch('hamming','string') 82 %! dispatch('hamming','string')
84 83
85 %!test # override preloaded builtin 84 %!test # override preloaded builtin
86 %! warning off Octave:deprecated-function
87 %! evalin('base','cos(1);'); 85 %! evalin('base','cos(1);');
88 %! dispatch('cos','length','string') 86 %! dispatch('cos','length','string')
89 %! evalin('base','assert(cos("abc"),3)'); 87 %! evalin('base','assert(cos("abc"),3)');
90 %! evalin('base','assert(cos(0),1,eps)'); 88 %! evalin('base','assert(cos(0),1,eps)');
91 %! dispatch('cos','string') 89 %! dispatch('cos','string')
90
92 %!test # override pre-loaded oct-file 91 %!test # override pre-loaded oct-file
93 %! warning off Octave:deprecated-function
94 %! evalin('base','qr(1);'); 92 %! evalin('base','qr(1);');
95 %! dispatch('qr','length','string') 93 %! dispatch('qr','length','string')
96 %! evalin('base','assert(qr("abc"),3)'); 94 %! evalin('base','assert(qr("abc"),3)');
97 %! evalin('base','assert(qr(1),1)'); 95 %! evalin('base','assert(qr(1),1)');
98 %! dispatch('qr','string'); 96 %! dispatch('qr','string');
97
99 %!test # override pre-loaded m-file 98 %!test # override pre-loaded m-file
100 %! warning off Octave:deprecated-function
101 %! evalin('base','hanning(1);'); 99 %! evalin('base','hanning(1);');
102 %! dispatch('hanning','length','string') 100 %! dispatch('hanning','length','string')
103 %! evalin('base','assert(hanning("abc"),3)'); 101 %! evalin('base','assert(hanning("abc"),3)');
104 %! evalin('base','assert(hanning(1),1)'); 102 %! evalin('base','assert(hanning(1),1)');
105 %! dispatch('hanning','string'); 103 %! dispatch('hanning','string');