getf SCI/util/testexamples.sci
 
reinit_for_test()
 
%U=mopen('SCI/tests/automatic_tests/parents_data.ref','rb');
 
%ans = 3^(-1);
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
x = poly(0, 'x');
 
//
 
%ans = (x + 10)/2;
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
i3 = eye(3, 3);
 
if load_ref('i3') then   bugmes();quit;end,
 
 
//
 
a = [1,2,3;4,5,6;7,8,9];
 
if load_ref('a') then   bugmes();quit;end,
 
%ans = a(1, 3);
 
if load_ref('%ans') then   bugmes();quit;end,
 
%ans = a([1,3], :);
 
if load_ref('%ans') then   bugmes();quit;end,
 
%ans = a(:, 3);
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
a(eye(), 3) = [];
 
if load_ref('a') then   bugmes();quit;end,
 
 
a(1, $) = 33;
 
if load_ref('a') then   bugmes();quit;end,
 
 
%ans = a(2, [$,$ - 1]);
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
a(eye(), $ + 1) = [10;11;12];
 
if load_ref('a') then   bugmes();quit;end,
 
 
//
 
w = ssrand(2, 2, 2);%ans = ssprint(w);
 
.   |-0.7616491  1.4739762 |    | 0.8529775  0.7223316 |
x = | 0.6755537  1.1443051 |x + | 0.4529708  1.9273333 |u   
 
    | 0.6380837  0.2546697 |
y = |-0.8498895 -1.5417209 |x   
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
%ans = ssprint(w(:, 1));
 
.   |-0.7616491  1.4739762 |    | 0.8529775 |
x = | 0.6755537  1.1443051 |x + | 0.4529708 |u   
 
    | 0.6380837  0.2546697 |
y = |-0.8498895 -1.5417209 |x   
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
%ans = ss2tf(w(:, 1));
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
//
 
l = list(1, 2, 3, 4);
 
if load_ref('l') then   bugmes();quit;end,
 
 
[a,b,c,d] = l(:);
 
if load_ref('d') then   bugmes();quit;end,
 
if load_ref('c') then   bugmes();quit;end,
 
if load_ref('b') then   bugmes();quit;end,
 
if load_ref('a') then   bugmes();quit;end,
 
 
l($ + 1) = 'new';
 
if load_ref('l') then   bugmes();quit;end,
 
 
//
 
v = %t([1,1,1,1,1]);
 
if load_ref('v') then   bugmes();quit;end,
 
 
//
 
[x,y,z] = (1,2,3);
 
if load_ref('z') then   bugmes();quit;end,
 
if load_ref('y') then   bugmes();quit;end,
 
if load_ref('x') then   bugmes();quit;end,
 
 
xdel_run(winsid());
 
 
mclose(%U);