* Bug 15347 fixed: toeplitz failed with rationals
[scilab.git] / scilab / modules / core / tests / unit_tests / varargout.dia.ref
1 //<-- CLI SHELL MODE -->
2 // =============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2011 - DIGITEO - Bruno JOFRET
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 //
9 // Return 3 values
10 //
11 function varargout=__test_function__()
12   varargout(1) = 42;
13   varargout(2) = "value";
14   varargout(3) = list(51);
15 endfunction
16 // Simple call
17 __test_function__();
18 a = __test_function__();
19 if a <> 42 then bugmes();quit;end;
20 clear a;
21 [a,b] = __test_function__();
22 if a <> 42 then bugmes();quit;end;
23 if b <> "value" then bugmes();quit;end;
24 clear a;
25 clear b;
26 [a,b,c] = __test_function__();
27 if a <> 42 then bugmes();quit;end;
28 if b <> "value" then bugmes();quit;end;
29 if c <> list(51) then bugmes();quit;end;
30 clear a;
31 clear b;
32 clear c;
33 // Check call with too much output values.
34 ierr = execstr("[a,b,c,d] = __test_function__();", "errcatch");
35 assert_checkfalse(ierr == 0);
36 //
37 // Return a list of 3 elements with second missing.
38 //
39 function varargout=__test_function2__()
40   varargout(1) = 42;
41   varargout(3) = "value";
42 endfunction
43 // Simple call
44 __test_function2__();
45 a = __test_function2__();
46 if a <> 42 then bugmes();quit;end;
47 clear a;
48 // varargout(2) is undefined
49 ierr = execstr("[a,b] = __test_function2__();", "errcatch");
50 assert_checkfalse(ierr == 0);
51 //
52 // varargout is not set : should not work.
53 //
54 function varargout=__test_function3__()
55 endfunction
56 ierr = execstr("__test_function3__();", "errcatch");
57 assert_checkfalse(ierr == 0);