Add references
Pierre Marechal [Mon, 14 Apr 2008 13:51:30 +0000 (13:51 +0000)]
30 files changed:
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_1649.dia.ref [new file with mode: 0644]
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_1649.tst [moved from scilab/modules/m2sci/tests/nonreg_tests/bug_1649.tst with 100% similarity]
scilab/modules/integer/tests/nonreg_tests/bug_2799.dia.ref [new file with mode: 0644]
scilab/modules/integer/tests/unit_tests/intops.dia.ref
scilab/modules/integer/tests/unit_tests/intops.tst
scilab/modules/io/tests/nonreg_tests/bug_167.dia.ref [new file with mode: 0644]
scilab/modules/io/tests/nonreg_tests/bug_167.tst
scilab/modules/io/tests/nonreg_tests/bug_1969.dia.ref [new file with mode: 0644]
scilab/modules/io/tests/nonreg_tests/bug_1969.tst
scilab/modules/io/tests/nonreg_tests/bug_2338.dia.ref [new file with mode: 0644]
scilab/modules/io/tests/nonreg_tests/bug_2338.tst
scilab/modules/io/tests/nonreg_tests/bug_2389.dia.ref [new file with mode: 0644]
scilab/modules/io/tests/nonreg_tests/bug_2389.tst
scilab/modules/io/tests/unit_tests/saveload.dia.ref
scilab/modules/io/tests/unit_tests/saveload.tst
scilab/modules/linear_algebra/tests/nonreg_tests/bug_560.tst [deleted file]
scilab/modules/m2sci/tests/nonreg_tests/bug_1124.dia.ref [new file with mode: 0644]
scilab/modules/m2sci/tests/nonreg_tests/bug_1971.dia.ref [new file with mode: 0644]
scilab/modules/m2sci/tests/nonreg_tests/bug_1971.tst
scilab/modules/m2sci/tests/nonreg_tests/bug_2137.dia.ref [new file with mode: 0644]
scilab/modules/polynomials/tests/nonreg_tests/bug_201.dia.ref [new file with mode: 0644]
scilab/modules/polynomials/tests/nonreg_tests/bug_201.tst
scilab/modules/polynomials/tests/nonreg_tests/bug_2391.dia.ref [new file with mode: 0644]
scilab/modules/polynomials/tests/nonreg_tests/bug_2391.tst
scilab/modules/polynomials/tests/nonreg_tests/bug_2799.dia.ref [new file with mode: 0644]
scilab/modules/polynomials/tests/nonreg_tests/bug_2834.dia.ref [new file with mode: 0644]
scilab/modules/polynomials/tests/nonreg_tests/bug_2834.tst
scilab/modules/signal_processing/tests/nonreg_tests/bug_279.dia.ref [new file with mode: 0644]
scilab/modules/signal_processing/tests/nonreg_tests/bug_279.tst
scilab/modules/sound/tests/unit_tests/mapsound.tst

diff --git a/scilab/modules/compatibility_functions/tests/nonreg_tests/bug_1649.dia.ref b/scilab/modules/compatibility_functions/tests/nonreg_tests/bug_1649.dia.ref
new file mode 100644 (file)
index 0000000..f812d28
--- /dev/null
@@ -0,0 +1,29 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 1649 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=1649
+//
+// <-- Short Description -->
+//    asciimat reshapes incorrectly its results
+// -->asciimat(z)
+//  ans  =
+//
+//     49.    53.    50.    54.
+//     51.    55.    52.    56.
+//
+//
+// instead of
+//
+//  ans  =
+//
+//     49.    50.    51.    52.
+//     53.    54.    55.    56.
+//
+z = ['1' '2' '3' '4'; '5' '6' '7' '8'];
+if or(asciimat(z)<>[49 50 51 52 ; 53 54 55 56]) then pause;end
diff --git a/scilab/modules/integer/tests/nonreg_tests/bug_2799.dia.ref b/scilab/modules/integer/tests/nonreg_tests/bug_2799.dia.ref
new file mode 100644 (file)
index 0000000..daafd8b
--- /dev/null
@@ -0,0 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA -Serge Steer
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2799 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2799
+//
+// <-- Short Description -->
+//    Failure to assign boolean values to a sub-matrix when the matrix does
+//    not exist
+//    clear A;A(:,1) = [int32(3);int32(4)];
+clear A;A(:,1) = [int32(3);int32(4)];
+if or(A<>[int32(3);int32(4)]) then bugmes();quit;end
+clear A;A(1,:) = [int32(4);int32(3)];
+if or(A<>[int32(4),int32(3)]) then bugmes();quit;end
index b9d8616..c9285e1 100644 (file)
@@ -1,4 +1,10 @@
-// Copyright INRIA
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+funcprot(0);
 //extractions
 v=int8([1 2 3]);
 if v(2)<>int8(2) then bugmes();quit;end
@@ -208,24 +214,18 @@ if or(sum(x')<>INT(sum(X'))) then bugmes();quit;end
 if or(cumsum(x)<>INT(cumsum(X))) then bugmes();quit;end
 if or(cumsum(x')<>INT(cumsum(X'))) then bugmes();quit;end
 deff('y=INT(x)','y=uint16(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x)<>INT(sum(X))) then bugmes();quit;end
 if or(sum(x')<>INT(sum(X'))) then bugmes();quit;end
 if or(cumsum(x)<>INT(cumsum(X))) then bugmes();quit;end
 if or(cumsum(x')<>INT(cumsum(X'))) then bugmes();quit;end
 deff('y=INT(x)','y=uint8(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x)<>INT(sum(X))) then bugmes();quit;end
 if or(sum(x')<>INT(sum(X'))) then bugmes();quit;end
 if or(cumsum(x)<>INT(cumsum(X))) then bugmes();quit;end
 if or(cumsum(x')<>INT(cumsum(X'))) then bugmes();quit;end
 deff('y=INT(x)','y=int8(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x)<>INT(sum(X))) then bugmes();quit;end
 if or(sum(x')<>INT(sum(X'))) then bugmes();quit;end
@@ -238,24 +238,18 @@ if or(sum(x',1)<>INT(sum(X',1))) then bugmes();quit;end
 if or(cumsum(x,1)<>INT(cumsum(X,1))) then bugmes();quit;end
 if or(cumsum(x',1)<>INT(cumsum(X',1))) then bugmes();quit;end
 deff('y=INT(x)','y=uint16(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x,1)<>INT(sum(X,1))) then bugmes();quit;end
 if or(sum(x',1)<>INT(sum(X',1))) then bugmes();quit;end
 if or(cumsum(x,1)<>INT(cumsum(X,1))) then bugmes();quit;end
 if or(cumsum(x',1)<>INT(cumsum(X',1))) then bugmes();quit;end
 deff('y=INT(x)','y=uint8(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x,1)<>INT(sum(X,1))) then bugmes();quit;end
 if or(sum(x',1)<>INT(sum(X',1))) then bugmes();quit;end
 if or(cumsum(x,1)<>INT(cumsum(X,1))) then bugmes();quit;end
 if or(cumsum(x',1)<>INT(cumsum(X',1))) then bugmes();quit;end
 deff('y=INT(x)','y=int8(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x,1)<>INT(sum(X,1))) then bugmes();quit;end
 if or(sum(x',1)<>INT(sum(X',1))) then bugmes();quit;end
@@ -267,24 +261,18 @@ if or(sum(x','c')<>INT(sum(X','c'))) then bugmes();quit;end
 if or(cumsum(x,'c')<>INT(cumsum(X,'c'))) then bugmes();quit;end
 if or(cumsum(x','c')<>INT(cumsum(X','c'))) then bugmes();quit;end
 deff('y=INT(x)','y=uint16(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x,'c')<>INT(sum(X,'c'))) then bugmes();quit;end
 if or(sum(x','c')<>INT(sum(X','c'))) then bugmes();quit;end
 if or(cumsum(x,'c')<>INT(cumsum(X,'c'))) then bugmes();quit;end
 if or(cumsum(x','c')<>INT(cumsum(X','c'))) then bugmes();quit;end
 deff('y=INT(x)','y=uint8(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x,'c')<>INT(sum(X,'c'))) then bugmes();quit;end
 if or(sum(x','c')<>INT(sum(X','c'))) then bugmes();quit;end
 if or(cumsum(x,'c')<>INT(cumsum(X,'c'))) then bugmes();quit;end
 if or(cumsum(x','c')<>INT(cumsum(X','c'))) then bugmes();quit;end
 deff('y=INT(x)','y=int8(x)')
-Warning : redefining function: INT                     
-
 x=INT(X);
 if or(sum(x,'c')<>INT(sum(X,'c'))) then bugmes();quit;end
 if or(sum(x','c')<>INT(sum(X','c'))) then bugmes();quit;end
@@ -292,8 +280,6 @@ if or(cumsum(x,'c')<>INT(cumsum(X,'c'))) then bugmes();quit;end
 if or(cumsum(x','c')<>INT(cumsum(X','c'))) then bugmes();quit;end
 //diag triu tril
 deff('y=INT(x)','y=int16(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30));
 x=INT(X);
 if or(diag(x)<>diag(X)) then bugmes();quit;end
@@ -317,8 +303,6 @@ if or(tril(x)<>tril(X)) then bugmes();quit;end
 if or(tril(x,2)<>tril(X,2)) then bugmes();quit;end
 if or(tril(x,-2)<>tril(X,-2)) then bugmes();quit;end
 deff('y=INT(x)','y=uint8(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30));
 x=INT(X);
 if or(diag(x)<>diag(X)) then bugmes();quit;end
@@ -343,8 +327,6 @@ if or(tril(x,2)<>tril(X,2)) then bugmes();quit;end
 if or(tril(x,-2)<>tril(X,-2)) then bugmes();quit;end
 // save load
 deff('y=INT(x)','y=uint8(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30));
 x=INT(X);
 save(TMPDIR+'/foo',x)
@@ -352,8 +334,6 @@ clear x;load(TMPDIR+'/foo');if or(x<>INT(X)) then bugmes();quit;end
 x=list(1,x,2);save(TMPDIR+'/foo',x)
 clear x;load(TMPDIR+'/foo');if or(x<>list(1,INT(X),2)) then bugmes();quit;end
 deff('y=INT(x)','y=int32(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30));
 x=INT(X);
 save(TMPDIR+'/foo',x)
@@ -362,29 +342,21 @@ x=list(1,x,2);save(TMPDIR+'/foo',x)
 clear x;load(TMPDIR+'/foo');if or(x<>list(1,INT(X),2)) then bugmes();quit;end
 //abs
 deff('y=INT(x)','y=int8(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30))-5;
 x=INT(X);
 if or(abs(x)<>INT(abs(X))) then bugmes();quit;end
 deff('y=INT(x)','y=int16(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30))-5;
 x=INT(X);
 if or(abs(x)<>INT(abs(X))) then bugmes();quit;end
 //matrix
 deff('y=INT(x)','y=int8(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30))-5;
 x=INT(X);
 if or(matrix(x,10,-1)<>INT(matrix(X,10,-1))) then bugmes();quit;end
 if or(matrix(x,10,3)<>INT(matrix(X,10,3))) then bugmes();quit;end
 if or(matrix(x,-1,3)<>INT(matrix(X,-1,3))) then bugmes();quit;end
 deff('y=INT(x)','y=uint8(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(1,30))-5;
 x=INT(X);
 if or(matrix(x,10,-1)<>INT(matrix(X,10,-1))) then bugmes();quit;end
@@ -392,8 +364,6 @@ if or(matrix(x,10,3)<>INT(matrix(X,10,3))) then bugmes();quit;end
 if or(matrix(x,-1,3)<>INT(matrix(X,-1,3))) then bugmes();quit;end
 //max min
 deff('y=INT(x)','y=int8(x)')
-Warning : redefining function: INT                     
-
 X=round(10*rand(2,30))-5;
 Y=ones(2,30);
 x=INT(X);
index d9f2bd3..b170ff2 100644 (file)
@@ -5,6 +5,9 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+
+funcprot(0);
+
 //extractions
 v=int8([1 2 3]);
 if v(2)<>int8(2) then pause,end
diff --git a/scilab/modules/io/tests/nonreg_tests/bug_167.dia.ref b/scilab/modules/io/tests/nonreg_tests/bug_167.dia.ref
new file mode 100644 (file)
index 0000000..8598466
--- /dev/null
@@ -0,0 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 167 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=167
+//
+// <-- Short Description -->
+//    sprintf error
+if MSDOS then
+       if sprintf("%e", 1e-10) <> "1.000000e-010" then pause; end
+else
+       if sprintf("%e", 1e-10) <> "1.000000e-10" then pause; end
+end
index 141c7f6..7a7f212 100644 (file)
@@ -13,5 +13,8 @@
 // <-- Short Description -->
 //    sprintf error
 
-if sprintf("%e", 1e-10)<>"1.000000e-10" then pause; end
-
+if MSDOS then
+       if sprintf("%e", 1e-10) <> "1.000000e-010" then pause; end
+else
+       if sprintf("%e", 1e-10) <> "1.000000e-10" then pause; end
+end
diff --git a/scilab/modules/io/tests/nonreg_tests/bug_1969.dia.ref b/scilab/modules/io/tests/nonreg_tests/bug_1969.dia.ref
new file mode 100644 (file)
index 0000000..371a13e
--- /dev/null
@@ -0,0 +1,86 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 1969 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=1969
+//
+// <-- Short Description -->
+// Bad exec was causing a seg fault of Scilab
+s=grand(500,1,'nor',0,1)';
+a=msprintf("%2.5f ",s')
+ a  =
+ 0.43889 -1.02880 0.19793 0.38339 -1.06828 0.03888 0.17882 -0.71694 1.0 
+      4330 -0.45655 -1.20855 1.53101 -0.54048 -0.82732 1.53406 2.61700  
+      2.84318 0.04174 -0.94128 0.70100 0.03455 0.00816 0.06824 -1.14788 
+       -2.38379 0.47906 -0.48834 -1.00455 -1.93925 -0.15732 -1.13468 0. 
+      17277 1.07457 1.98954 0.96696 0.34564 -0.74600 0.12648 0.85101 0. 
+      86101 -0.21620 0.60216 0.65443 0.64649 -0.02410 -0.23305 -0.15677 
+       0.95777 -0.90515 0.76632 0.48762 -1.66909 -0.43378 -0.54521 0.28 
+      401 -1.55527 -1.21085 2.54329 0.41883 0.80399 -1.07667 -0.43225 0 
+      .58356 0.08560 -2.20930 -1.49510 0.49263 -1.61494 -0.85366 -2.235 
+      66 -0.09732 -2.30976 0.49621 0.75485 0.15959 0.61160 0.45837 -0.5 
+      4790 0.76726 0.85732 -2.02742 0.94758 0.75022 -0.92110 0.99561 -1 
+      .10153 -0.07109 -3.02853 0.06175 1.33456 -0.36866 0.27309 1.27262 
+       0.45653 -0.70772 -1.82436 0.62218 0.42067 -0.61034 0.42180 1.886 
+      60 0.11126 0.78861 -0.18064 0.23648 -0.15403 0.06289 1.30001 1.53 
+      106 -0.93948 -1.01417 0.58981 -0.97261 -0.68667 -0.60287 0.45208  
+      0.36775 2.21116 0.19424 -0.79760 0.34742 -0.62275 0.07365 1.11651 
+       0.53928 -0.02779 2.31345 0.49732 1.27264 1.22562 1.50852 0.67791 
+       0.16903 0.80253 -0.51999 0.85688 0.60383 -0.23281 0.61456 1.4734 
+      3 1.69011 -0.20203 -1.47053 -0.33586 1.68315 0.12643 0.04861 -1.0 
+      5470 -0.95043 1.37103 -0.22611 -0.03757 -0.24549 -1.90995 0.14302 
+       0.49531 -0.12107 -0.44785 0.30988 1.71541 -0.58597 -0.36911 0.95 
+      198 1.79247 2.28240 0.71873 -1.28181 0.18087 -0.69058 1.90717 0.1 
+      7892 1.43172 -0.95931 2.01075 0.40790 -0.05488 1.59259 1.60327 -1 
+      .15734 -2.98950 0.01113 -1.94595 -1.63990 0.55125 0.01847 0.43168 
+       -0.30853 0.29391 0.85802 -1.27790 -0.35344 -0.21349 0.32747 -0.5 
+      9557 -1.57154 0.63361 0.00502 -0.58340 -1.22084 -0.98880 -0.52925 
+       -1.02605 0.47383 0.29233 -1.36578 -1.90493 0.85510 0.33513 1.644 
+      41 1.08602 -0.11482 -0.34073 -0.78690 1.90291 -0.20825 -0.25849 - 
+      1.31820 0.58767 -0.65677 -1.56758 -1.07961 -0.61695 -0.84130 1.93 
+      981 -0.65665 0.41687 -0.16885 0.00662 -1.50914 0.41450 0.20590 -0 
+      .47464 0.09934 -1.52451 -2.19854 -2.25293 -0.37596 0.24437 0.2127 
+      9 -0.35989 -0.29245 -1.65222 -1.14108 -0.92005 0.53521 0.27150 -0 
+      .23910 -0.75161 -0.65109 -0.55773 -0.20280 -2.44956 0.10626 0.073 
+      84 0.07084 0.96108 1.32381 0.60289 -1.41814 -0.12329 -0.67319 1.4 
+      8014 -0.33479 -1.47770 0.42082 -0.41714 -2.08968 -0.89534 0.45378 
+       0.97338 -0.60044 0.68148 -1.05498 0.97928 -2.58933 -0.26852 1.53 
+      292 0.73990 -0.51425 0.64150 1.07902 -0.82525 0.44597 0.84821 -0. 
+      84281 -0.24964 -0.29447 -0.35965 1.07464 0.43597 0.53529 0.89415  
+      -1.29894 -0.26612 0.13820 -0.06489 0.54884 -0.46955 -2.33599 -0.1 
+      2173 -2.27436 0.60819 -0.46174 -1.19078 -0.22953 1.90453 1.58782  
+      -1.04358 0.08888 -0.34134 2.22400 -0.65626 0.27522 -1.84674 1.504 
+      63 -0.24204 1.08389 0.53690 1.26132 -0.01938 -0.76046 1.57149 -0. 
+      47630 -1.81227 -0.03372 0.21245 -0.68557 -0.80519 0.35862 0.24889 
+       -0.80422 -0.10835 -0.70072 -0.97893 -0.88841 -0.65809 -0.69494 0 
+      .48085 -0.12214 -0.02847 -0.44818 -1.24366 0.15348 0.99306 -0.136 
+      11 1.04002 -0.83784 1.27824 0.20029 0.69829 0.01158 -0.33080 -0.1 
+      1431 0.85464 -1.14150 0.76192 -0.60115 -0.92224 -0.19077 -1.03690 
+       1.22342 -0.08728 -0.58832 -1.54898 1.17875 0.48738 0.74845 -0.90 
+      114 -0.71457 0.39379 -1.10955 -0.41029 -0.50693 -0.15148 0.53148  
+      1.89569 -1.27104 2.57643 0.58610 -1.72561 0.13955 -0.64327 0.6860 
+      9 -1.19058 -2.27466 1.31547 -0.53231 -0.66519 0.03936 -0.06401 -0 
+      .73962 0.05333 1.16141 1.56697 -0.20886 -2.26491 1.08991 0.85948  
+      -0.48256 -0.22454 1.02419 -0.29725 -0.96278 2.29582 -1.59969 0.25 
+      421 0.25107 0.06307 0.17905 -1.81914 0.48975 1.28800 -1.20197 0.5 
+      7544 -0.58938 -0.40237 -0.38244 -1.05861 0.85723 -0.50210 -1.0238 
+      0 0.35108 0.71629 -0.68465 -1.15673 2.06529 0.95336 -2.08218 -2.4 
+      8706 -1.20204 0.20330 -0.25215 0.23643 -0.32889 -0.38571 0.72046  
+      0.78981 -1.39602 -0.79320 1.87162 -0.15196 0.64348 0.82218 2.1528 
+      7 -0.61390 -0.01114 -0.20899 0.20070 -0.58132 1.14786 0.12582 1.1 
+      0829 -0.02970 0.31846 1.14253 0.46419 -2.28165 1.95968 0.24755 2. 
+      04788 -1.70731 0.05356 0.01426 -0.67923 0.74334 0.63443 2.13271 - 
+      0.41708 -0.03331 -0.42909 -1.41958 0.07991 0.84868 1.63515 -1.544 
+      55 0.28566 -1.35164 0.12493 1.75515 0.90292 -1.21311 -0.50874 0.4 
+      2932 -1.39543 0.43100 -0.68092 0.71227 0.77090 -0.97015 -0.80298  
+      0.93324 -0.15644 1.80970 0.12123 0.02858 -1.00312 0.97391 0.99897 
+       0.47892 -0.02918                                                 
+if ~MSDOS then
+       if unix("cat "+a+" > /dev/null 2>&1")<>256 then bugmes();quit;end
+end
index 95a610a..b61ac7b 100644 (file)
 //
 // <-- Short Description -->
 // Bad exec was causing a seg fault of Scilab
+
 s=grand(500,1,'nor',0,1)';
 a=msprintf("%2.5f ",s')
 
-if unix('cat '+a)<>256 then pause,end
+if ~MSDOS then
+       if unix("cat "+a+" > /dev/null 2>&1")<>256 then pause,end
+end
diff --git a/scilab/modules/io/tests/nonreg_tests/bug_2338.dia.ref b/scilab/modules/io/tests/nonreg_tests/bug_2338.dia.ref
new file mode 100644 (file)
index 0000000..a0d1355
--- /dev/null
@@ -0,0 +1,15 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2338 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2338
+//
+// <-- Short Description -->
+//    string(overloadinglib) contains one empty element: that shouldn't be
+a=string(overloadinglib);
+if ~isempty(find(a=="")) then bugmes();quit;end
index 3aba299..986f953 100644 (file)
@@ -14,6 +14,5 @@
 //    string(overloadinglib) contains one empty element: that shouldn't be
 
 
-a=string(overloadinglib);       
-if ~isempty(find(a=="")) then pause; end
+a=string(overloadinglib);
+if ~isempty(find(a=="")) then pause,end
diff --git a/scilab/modules/io/tests/nonreg_tests/bug_2389.dia.ref b/scilab/modules/io/tests/nonreg_tests/bug_2389.dia.ref
new file mode 100644 (file)
index 0000000..59dfa9b
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2389 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2389
+//
+// <-- Short Description -->
+//   handle objects cannot be saved
+A       = sparse(rand(5,5));
+[h,rk]  = lufact(A);
+if execstr("save(TMPDIR+""/pointer.bin"",h)", "errcatch")<>0 then bugmes();quit;end
index 6fdfc3a..70d4d80 100644 (file)
@@ -13,7 +13,7 @@
 // <-- Short Description -->
 //   handle objects cannot be saved
 
-A=sparse(rand(5,5)); [h,rk]=lufact(A); 
-
-if execstr("save(TMPDIR+""/pointer.bin"",h)", "errcatch")<>0 then pause;end
+A       = sparse(rand(5,5));
+[h,rk]  = lufact(A);
 
+if execstr("save(TMPDIR+""/pointer.bin"",h)", "errcatch")<>0 then pause,end
index 4b47f01..a4d1319 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+funcprot(0);
 global filename;
 filename = TMPDIR+'mysave';
 deff('r=Check(a,b,c,d)',[
@@ -72,29 +79,13 @@ a=uint32(1:9);if ~Check(a) then bugmes();quit;end
 a=uint32(1:10000);if ~Check(a) then bugmes();quit;end
 deff('x=a(n)','x=n+1','n');if ~Check(a) then bugmes();quit;end
 deff('x=a(n)','x=n+1');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 deff('x=a','x=n+1','n');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 deff('x=a','x=n+1');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 deff('a(n)','x=n+1','n');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 deff('a(n)','x=n+1');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 deff('a()','x=n+1','n');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 deff('a()','x=n+1');if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 a=list();if ~Check(a) then bugmes();quit;end
-Warning : redefining function: a                       
-
 a=list(1);if ~Check(a) then bugmes();quit;end
 a=list(1,rand(10,10),'asdfsf');if ~Check(a) then bugmes();quit;end
 a=list(1,rand(10,10),'asdfsf',poly(rand(10,10),'s'));if ~Check(a) then bugmes();quit;end
index 3cfee5e..25beb94 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+funcprot(0);
+
 global filename;
 filename = TMPDIR+'mysave';
 
diff --git a/scilab/modules/linear_algebra/tests/nonreg_tests/bug_560.tst b/scilab/modules/linear_algebra/tests/nonreg_tests/bug_560.tst
deleted file mode 100644 (file)
index acff317..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- Non-regression test for bug 560 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=560
-//
-// <-- Short Description -->
-
-// Non-regression test file for bug 560
-
-format(15);
-m=100;
-n=15;
-
-t=(0:m-1)'/(m-1); A=[];
-
-for i=1:n
-       A = [A t.^(i-1)];
-end
-
-b = exp(sin(4*t));
-b = b/2006.7874531048527;
-
-x1        = A\b;
-[Q,R]     = qr(A);
-x2        = R(1:n,1:n)\(Q(:, 1:n)'*b);
-[U, S, V] = svd(A);
-x3        = V*(diag(1 ./ diag(S))*U(:,1:n)'*b)
-
-if or(round(1000000*x1)<>round(1000000*x2)) <>  then pause,end
-if or(round(1000000*x1)<>round(1000000*x3)) <>  then pause,end
-if or(round(1000000*x2)<>round(1000000*x3)) <>  then pause,end
diff --git a/scilab/modules/m2sci/tests/nonreg_tests/bug_1124.dia.ref b/scilab/modules/m2sci/tests/nonreg_tests/bug_1124.dia.ref
new file mode 100644 (file)
index 0000000..113fd8d
--- /dev/null
@@ -0,0 +1,100 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005 - INRIA - Farid BELAHCENE
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 1124 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=1124
+//
+// <-- Short Description -->
+//    incapacity to use a function name as an identifier
+MFILECONTENTS=[
+"load([rep,''alpha'']);";
+"load([rep,''beta'']);";
+"mu=beta*alpha;";
+]
+ MFILECONTENTS  =
+!load([rep,'alpha']);  !
+!                      !
+!load([rep,'beta']);   !
+!                      !
+!mu=beta*alpha;        !
+MFILE=TMPDIR+"/bug1124.m"
+ MFILE  =
+ TMPDIR/bug1124.m   
+SCIFILE=TMPDIR+"/bug1124.sci"
+ SCIFILE  =
+ TMPDIR/bug1124.sci   
+fd=mopen(MFILE,"w");
+mputl(MFILECONTENTS,fd);
+mclose(fd);
+mfile2sci(MFILE,TMPDIR);
+  ****** Beginning of mfile2sci() session ******
+  File to convert: TMPDIR/bug1124.m
+  Result file path: TMPDIR/
+  Recursive mode: OFF
+  Only double values used in M-file: NO
+  Verbose mode: 3
+  Generate formated code: NO
+  M-file reading...
+  M-file reading: Done
+  Syntax modification...
+  Syntax modification: Done
+  Macro to tree conversion...
+  Conversion of M-tree...
+  ! L.1: mtlb(rep) can be replaced by rep() or rep whether rep is an M-file or not.
+  ! L.2: mtlb(rep) can be replaced by rep() or rep whether rep is an M-file or not.
+  Conversion of M-tree: Done
+  Macro to tree conversion: Done
+  Translation may be improved: see the //! comments and for all mtlb_<funname> function call\n  Type help mtlb_<funname> in Scilab command window to get information about improvements.
+  ****** End of mfile2sci() session ******
+fd=mopen(SCIFILE,"r");
+SCIFILECONTENTS=mgetl(fd,-1);
+mclose(fd);
+SCIFILECONTENTSREF=["";
+"// Display mode";
+"mode(0);";
+"";
+"// Display warning for floating point exception";
+"ieee(1);";
+"";
+"// ! L.1: mtlb(rep) can be replaced by rep() or rep whether rep is an M-file or not.";
+"loadmatfile(mtlb(rep)+""alpha"");";
+"// ! L.2: mtlb(rep) can be replaced by rep() or rep whether rep is an M-file or not.";
+"loadmatfile(mtlb(rep)+""beta"");";
+"mu = beta*alpha;";
+]
+ SCIFILECONTENTSREF  =
+!                                                                      !
+!                                                                      !
+!// Display mode                                                       !
+!                                                                      !
+!mode(0);                                                              !
+!                                                                      !
+!                                                                      !
+!                                                                      !
+!// Display warning for floating point exception                       !
+!                                                                      !
+!ieee(1);                                                              !
+!                                                                      !
+!                                                                      !
+!                                                                      !
+!// ! L.1: mtlb(rep) can be replaced by rep() or rep whether rep is an !
+!     M-file or not.                                                   !
+!                                                                      !
+!loadmatfile(mtlb(rep)+"alpha");                                       !
+!                                                                      !
+!// ! L.2: mtlb(rep) can be replaced by rep() or rep whether rep is an !
+!     M-file or not.                                                   !
+!                                                                      !
+!loadmatfile(mtlb(rep)+"beta");                                        !
+!                                                                      !
+!mu = beta*alpha;                                                      !
+if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then bugmes();quit;end
diff --git a/scilab/modules/m2sci/tests/nonreg_tests/bug_1971.dia.ref b/scilab/modules/m2sci/tests/nonreg_tests/bug_1971.dia.ref
new file mode 100644 (file)
index 0000000..f4e79bc
--- /dev/null
@@ -0,0 +1,86 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005 - INRIA - Farid BELAHCENE
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 1971 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=1971
+//
+// <-- Short Description -->
+//    the mtlb_fprintf does not work. It should be re-written to follow the Matlab doc
+//    of fprintf
+MFILECONTENTS=[
+"fprintf(''qsdfsdcvwqghcv'')";
+]
+ MFILECONTENTS  =
+ fprintf('qsdfsdcvwqghcv')   
+MFILE=TMPDIR+"/bug1971.m"
+ MFILE  =
+ TMPDIR/bug1971.m   
+SCIFILE=TMPDIR+"/bug1971.sci"
+ SCIFILE  =
+ TMPDIR/bug1971.sci   
+fd=mopen(MFILE,"w");
+mputl(MFILECONTENTS,fd);
+mclose(fd);
+mfile2sci(MFILE,TMPDIR);
+  ****** Beginning of mfile2sci() session ******
+  File to convert: TMPDIR/bug1971.m
+  Result file path: TMPDIR/
+  Recursive mode: OFF
+  Only double values used in M-file: NO
+  Verbose mode: 3
+  Generate formated code: NO
+  M-file reading...
+  M-file reading: Done
+  Syntax modification...
+  Syntax modification: Done
+  Macro to tree conversion...
+  Conversion of M-tree...
+  L.1: No simple equivalent, so mtlb_fprintf() is called.
+  Conversion of M-tree: Done
+  Macro to tree conversion: Done
+  ****** End of mfile2sci() session ******
+fd=mopen(SCIFILE,"r");
+SCIFILECONTENTS=mgetl(fd,-1);
+mclose(fd);
+SCIFILECONTENTSREF=["";
+"// Display mode";
+"mode(0);";
+"";
+"// Display warning for floating point exception";
+"ieee(1);";
+"";
+"// L.1: No simple equivalent, so mtlb_fprintf() is called.";
+"mtlb_fprintf(""qsdfsdcvwqghcv"")";
+]
+ SCIFILECONTENTSREF  =
+!                                                            !
+!                                                            !
+!// Display mode                                             !
+!                                                            !
+!mode(0);                                                    !
+!                                                            !
+!                                                            !
+!                                                            !
+!// Display warning for floating point exception             !
+!                                                            !
+!ieee(1);                                                    !
+!                                                            !
+!                                                            !
+!                                                            !
+!// L.1: No simple equivalent, so mtlb_fprintf() is called.  !
+!                                                            !
+!mtlb_fprintf("qsdfsdcvwqghcv")                              !
+if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then bugmes();quit;end
+instr = 'mtlb_fprintf(""qsdfsdcvwqghcv"")';
+ierr  = execstr(instr,'errcatch');
+qsdfsdcvwqghcv 
+if ierr<>0  then bugmes();quit;end
index 67acdf5..86c49fc 100644 (file)
@@ -38,7 +38,7 @@ SCIFILECONTENTSREF=["";
 "// Display warning for floating point exception";
 "ieee(1);";
 "";
-"// L.1: No simple equivalent, so mtlb_fprintf() is called";
+"// L.1: No simple equivalent, so mtlb_fprintf() is called.";
 "mtlb_fprintf(""qsdfsdcvwqghcv"")";
 ]
 
diff --git a/scilab/modules/m2sci/tests/nonreg_tests/bug_2137.dia.ref b/scilab/modules/m2sci/tests/nonreg_tests/bug_2137.dia.ref
new file mode 100644 (file)
index 0000000..d2ab8c9
--- /dev/null
@@ -0,0 +1,96 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005 - INRIA - Farid BELAHCENE
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2137 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2137
+//
+// <-- Short Description -->
+//    wrong translation of Matlab function randn
+//
+//
+//    Put this single line in an m-file:
+//
+//    R = randn
+//
+//    and try to convert using mfile2sci.
+//
+//    Output is:
+//
+//    R = randn(1,1,"normal")
+//
+//    which is wrong (no such function in Scilab).
+//
+//    Francois
+MFILECONTENTS=[
+"R = randn;";
+]
+ MFILECONTENTS  =
+ R = randn;   
+MFILE=TMPDIR+"/bug2137.m"
+ MFILE  =
+ TMPDIR/bug2137.m   
+SCIFILE=TMPDIR+"/bug2137.sci"
+ SCIFILE  =
+ TMPDIR/bug2137.sci   
+fd=mopen(MFILE,"w");
+mputl(MFILECONTENTS,fd);
+mclose(fd);
+mfile2sci(MFILE,TMPDIR);
+  ****** Beginning of mfile2sci() session ******
+  File to convert: TMPDIR/bug2137.m
+  Result file path: TMPDIR/
+  Recursive mode: OFF
+  Only double values used in M-file: NO
+  Verbose mode: 3
+  Generate formated code: NO
+  M-file reading...
+  M-file reading: Done
+  Syntax modification...
+  Syntax modification: Done
+  Macro to tree conversion...
+  Conversion of M-tree...
+  Conversion of M-tree: Done
+  Macro to tree conversion: Done
+  ****** End of mfile2sci() session ******
+fd=mopen(SCIFILE,"r");
+SCIFILECONTENTS=mgetl(fd,-1);
+mclose(fd);
+SCIFILECONTENTSREF=["";
+"// Display mode";
+"mode(0);";
+"";
+"// Display warning for floating point exception";
+"ieee(1);";
+"";
+"R = rand(1,1,""normal"");";
+]
+ SCIFILECONTENTSREF  =
+!                                                 !
+!                                                 !
+!// Display mode                                  !
+!                                                 !
+!mode(0);                                         !
+!                                                 !
+!                                                 !
+!                                                 !
+!// Display warning for floating point exception  !
+!                                                 !
+!ieee(1);                                         !
+!                                                 !
+!                                                 !
+!                                                 !
+!R = rand(1,1,"normal");                          !
+correct=%T
+ correct  =
+  T  
+if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then bugmes();quit;end
diff --git a/scilab/modules/polynomials/tests/nonreg_tests/bug_201.dia.ref b/scilab/modules/polynomials/tests/nonreg_tests/bug_201.dia.ref
new file mode 100644 (file)
index 0000000..f63df18
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 201 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=201
+//
+// <-- Short Description -->
+//     modulo function error
+x=poly(0,'x');
+q=200001;
+if modulo(q*x,q)<>0 then bugmes();quit;end
index d729049..b3d5939 100644 (file)
@@ -16,6 +16,4 @@
 
 x=poly(0,'x');
 q=200001;
-
-if modulo(q*x,q)<>0 then pause; end
-
+if modulo(q*x,q)<>0 then pause,end
diff --git a/scilab/modules/polynomials/tests/nonreg_tests/bug_2391.dia.ref b/scilab/modules/polynomials/tests/nonreg_tests/bug_2391.dia.ref
new file mode 100644 (file)
index 0000000..ed3169a
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2391 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2391
+//
+// <-- Short Description -->
+//     pol2str produces empty output (instead of '0') for null polynomials
+p = poly([0,10,1+%i,1-%i],"x");
+if stripblanks(pol2str(p))<>"-20*x+22*x^2-12*x^3+x^4" then bugmes();quit;end
+if pol2str(0*p)<>"0" then bugmes();quit;end
index d530134..a65c6df 100644 (file)
@@ -13,9 +13,6 @@
 // <-- Short Description -->
 //     pol2str produces empty output (instead of '0') for null polynomials
 
-
 p = poly([0,10,1+%i,1-%i],"x");
-
-if stripblanks(pol2str(p))<>"-20*x+22*x^2-12*x^3+x^4" then pause; end
-if pol2str(0*p)<>"0" then pause; end
+if stripblanks(pol2str(p))<>"-20*x+22*x^2-12*x^3+x^4" then pause,end
+if pol2str(0*p)<>"0" then pause,end
diff --git a/scilab/modules/polynomials/tests/nonreg_tests/bug_2799.dia.ref b/scilab/modules/polynomials/tests/nonreg_tests/bug_2799.dia.ref
new file mode 100644 (file)
index 0000000..11c82a6
--- /dev/null
@@ -0,0 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA -Serge Steer
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2799 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2799
+//
+// <-- Short Description -->
+//    Failure to assign boolean values to a sub-matrix when the matrix does
+//    not exist
+//    clear A;A(:,1) = [%s;%s+1];
+clear A;A(:,1) = [%s;%s+1];
+if or(A<>[%s;%s+1]) then bugmes();quit;end
+clear A;A(1,:) = [%s+1;%s];
+if or(A<>[%s+1,%s]) then bugmes();quit;end
diff --git a/scilab/modules/polynomials/tests/nonreg_tests/bug_2834.dia.ref b/scilab/modules/polynomials/tests/nonreg_tests/bug_2834.dia.ref
new file mode 100644 (file)
index 0000000..526237e
--- /dev/null
@@ -0,0 +1,24 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Serge Steer
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2834 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=2834
+//
+// <-- Short Description -->
+// strange bug that appeared in scilab-5.0-alpha2 and disapeared then
+// the code below produced n=2 instead of 1
+n1=poly([4/3 1-%eps/2],'x','c');
+d1=poly([4/3 1],'x','c');
+[n,d]=simp(n1,d1)
+ d  =
+    1   
+ n  =
+    2   
+if or(abs(coeff(n)-1)>10*%eps) then bugmes();quit;end
index 96306c5..e4edba5 100644 (file)
 // strange bug that appeared in scilab-5.0-alpha2 and disapeared then
 // the code below produced n=2 instead of 1
 
-
-
 n1=poly([4/3 1-%eps/2],'x','c');
 d1=poly([4/3 1],'x','c');
 [n,d]=simp(n1,d1) 
-
 if or(abs(coeff(n)-1)>10*%eps) then pause,end
diff --git a/scilab/modules/signal_processing/tests/nonreg_tests/bug_279.dia.ref b/scilab/modules/signal_processing/tests/nonreg_tests/bug_279.dia.ref
new file mode 100644 (file)
index 0000000..86f8f51
--- /dev/null
@@ -0,0 +1,30 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 279 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=279
+//
+// <-- Short Description -->
+//   Wrong zeros values
+format(20);
+Fs= 44100.0;   // Sample Freq in Hz
+om1= 1765.0;   // lower stop corner  Hz
+om2= 2205.0;   // lower pass corner  Hz
+om3= 4410.0;   // higher pass corner Hz
+om4= 5427.6;   // higher stop corner Hz
+gripple=   0.2;        // passband ripple in dB
+gstop  = -40.0;        // stop band attenuation in dB
+a1= 2*%pi*om1/Fs;
+a2= 2*%pi*om2/Fs;
+a3= 2*%pi*om3/Fs;
+a4= 2*%pi*om4/Fs;
+om=[a1, a2, a3, a4 ];
+deltap= 1.0 - 10.00**(-0.05*gripple);
+deltas= 10.00**(0.05* gstop) ;
+[cells,fact,zers,pols]=eqiir('bp','el',om,deltap,deltas);
+if zers($)==0 | zers($-1)==0 then bugmes();quit;end
index 0f9649c..936d74a 100644 (file)
@@ -39,4 +39,4 @@ deltas= 10.00**(0.05* gstop) ;
 
 [cells,fact,zers,pols]=eqiir('bp','el',om,deltap,deltas);
 
-if zers($)==0 | zers($-1)==0 then pause; end
\ No newline at end of file
+if zers($)==0 | zers($-1)==0 then pause,end
index c1dc9c8..374c7d7 100644 (file)
@@ -11,4 +11,4 @@ t=soundsec(0.5);
 s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;
 [nr,nc]=size(t);
 s(nc/2:nc)=sin(330*t(nc/2:nc));
-mapsound(s);
\ No newline at end of file
+mapsound(s);