summaryrefslogtreecommitdiffstats
path: root/tests/nonRegression/bug1784.sci
blob: 9bb83703c5919cf8594ee4d999e30050702b0c13 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
// <-- Non-regression test for bug 1784 -->
//
// <-- Bugzilla URL -->
// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=1784
//
// <-- Short Description -->
//    Problem while inserting a matrix in an N-D matrix

// Copyright INRIA
// Scilab Project - Serge Steer
// Copyright INRIA 2005
// Date : 23 janvier 2006

A=hypermat([3,3,2]);
try
  A(1,1:3,1:3)=[1 2 3;4 5 6;7 8 9];
  ok=%t
catch
  ok=%f
end
if ok then 
  ok=and(A==hypermat([3,3,3],[1;0;0;4;0;0;7;0;0;2;0;0;5;0;0;8;0;0;3;0;0; ...
		    6;0;0;9;0;0]))
end
affich_result(ok,1784);