summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorPierre Marechal <pierre.marechal@scilab.org>2007-11-27 07:20:44 +0000
committerPierre Marechal <pierre.marechal@scilab.org>2007-11-27 07:20:44 +0000
commitaaebf3cb953bc6286ce8d5a4c282091e2d3bb18b (patch)
treeca428ff096bc9d781d452f36158f3c73a17b01f2 /tests
parent6d217bf5f7cd394a810e21f8a2604400949f58ba (diff)
downloadscilab-aaebf3cb953bc6286ce8d5a4c282091e2d3bb18b.zip
scilab-aaebf3cb953bc6286ce8d5a4c282091e2d3bb18b.tar.gz
Incoporate non-regression test files in the scilab source tree
Diffstat (limited to 'tests')
-rw-r--r--tests/nonRegression/bug1590.sci53
-rw-r--r--tests/nonRegression/bug1602.sci34
-rw-r--r--tests/nonRegression/bug1619.sci30
3 files changed, 0 insertions, 117 deletions
diff --git a/tests/nonRegression/bug1590.sci b/tests/nonRegression/bug1590.sci
deleted file mode 100644
index ecacdca..0000000
--- a/tests/nonRegression/bug1590.sci
+++ /dev/null
@@ -1,53 +0,0 @@
1// <-- Non-regression test for bug 1590 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=1590
5//
6// <-- Short Description -->
7// clipboard function crashes scilab when called from a script
8
9
10if MSDOS then
11 if ( ~or(sciargs()==['-nw']) & ~or(sciargs()==['-nwni']) ) then
12 a="put in clipboard";
13 clipboard('copy',a);
14 a1=clipboard('paste');
15 if (a<>a1) then affich_result(%F,1590),return,end;
16
17 b=123.4;
18 clipboard('copy',b);
19 b1=clipboard('paste');
20 if (string(b)<>b1) then affich_result(%F,1590),return,end;
21
22 c=["put","in","clipboard"];
23 clipboard('copy',c);
24 c1=clipboard('paste');
25 if ("put in clipboard "<>c1) then affich_result(%F,1590),return,end;
26 end
27
28 scf(2);
29 plot();
30 clipboard(2,'EMF');
31 if ( ~or(sciargs()==['-nw']) & ~or(sciargs()==['-nwni']) ) then
32 clipboard('do','empty');
33 end
34
35 scf(3);
36 plot3d();
37 clipboard(3,'DIB');
38 if ( ~or(sciargs()==['-nw']) & ~or(sciargs()==['-nwni']) ) then
39 clipboard('do','empty');
40 end
41
42
43 if ( ~or(sciargs()==['-nw']) & ~or(sciargs()==['-nwni']) ) then
44 d=rand(3,5);
45 clipboard('copy',d);
46 d1=clipboard('paste');
47 da=strcat(string(d)'+' ');
48 db=strsubst(d1',char(10),'');
49 if (da<>db) then affich_result(%F,1590),return,end;
50 end
51end
52
53affich_result(%T,1590);
diff --git a/tests/nonRegression/bug1602.sci b/tests/nonRegression/bug1602.sci
deleted file mode 100644
index 03f30ff..0000000
--- a/tests/nonRegression/bug1602.sci
+++ /dev/null
@@ -1,34 +0,0 @@
1// <-- Non-regression test for bug 1602 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=1602
5//
6// <-- Short Description -->
7// contour2d don't work well with frameflag=4 (while the workaround
8// which consists of providing frameflag=3 + rect=[xmin,ymin,xmax,ymax]
9// works). This is with a cvs version of yesterday. See an example
10// in steps to ...
11//
12// Bruno
13
14// Copyright INRIA
15// Scilab Project - Jean-Baptiste Silvy
16// Copyright INRIA 2006
17// Date : 11 janvier 2006
18
19clf();
20
21x = linspace(-0.95,0.95,80);
22z = x'*x; // z(x,y) = x*y in fact
23clf()
24contour2d(x,x,z,8,frameflag=4);
25a = gca();
26
27data_boundsRef = [ -0.95, -0.95 ; 0.95, 0.95 ] ;
28
29// check that xfarc fill the arc and don't draw the limit
30if ( a.data_bounds == data_boundsRef ) then
31 affich_result(%T,1602);
32else
33 affich_result(%F,1602);
34end
diff --git a/tests/nonRegression/bug1619.sci b/tests/nonRegression/bug1619.sci
deleted file mode 100644
index bfd9d31..0000000
--- a/tests/nonRegression/bug1619.sci
+++ /dev/null
@@ -1,30 +0,0 @@
1// <-- Non-regression test for bug 1619 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=1619
5//
6// <-- Short Description -->
7// macr2tree doesn't like functions compiled for profiling. It hates them
8// so much,
9// that causes spectacular crashes of scilab.
10
11// Copyright INRIA
12// Scilab Project - Serge Steer
13// Copyright INRIA 2006
14// Date : 2 octobre 2006
15
16deff('x=foo(n)',['if n==0 then'
17 ' x=[]'
18 'else'
19 ' x=0'
20 ' for k=1:n'
21 ' s=svd(rand(n+10,n+10))'
22 ' x=x+s(1)'
23 ' end'
24 'end'],'p')
25T1=execstr('T=macr2tree(foo)','errcatch')==0;
26clear foo;
27function y=foo(),y=sin(33)+1;endfunction
28foo(); //execution creates a deleted op in the pseudo code of foo
29T2=execstr('macr2tree(foo)','errcatch')==0
30affich_result(T1&T2,1619);