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
26
27
28
29
30
31
|
// =============================================================================
// 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.
// =============================================================================
// <-- JVM NOT MANDATORY -->
// unit tests for datevec function
// =============================================================================
if datevec(1) <> [0,1,1,0,0,0] then bugmes();quit;end
if datevec(719529) <> [1970,1,1,0,0,0] then bugmes();quit;end
in = [ 158493 247745 637308 ; 567032 499035 514298 ; 165 471293 658662 ];
out = [ 433 12 8 0 0 0; ..
1552 6 24 0 0 0 ; ..
0 6 13 0 0 0 ; ..
678 4 20 0 0 0 ; ..
1366 4 23 0 0 0 ; ..
1290 5 9 0 0 0 ; ..
1744 11 20 0 0 0 ; ..
1408 2 6 0 0 0 ; ..
1803 5 10 0 0 0];
if datevec(in) <> out then bugmes();quit;end
in = [ 250000 500000 750000 1000000 ];
out = datevec(in);
if size(out) <> [ 4 6 ] then bugmes();quit;end
in = [ 250000 500000 ; 750000 1000000 ];
out = datevec(in);
if size(out) <> [ 4 6 ] then bugmes();quit;end
in = [ 250000 ; 500000 ; 750000 ; 1000000 ];
out = datevec(in);
if size(out) <> [ 4 6 ] then bugmes();quit;end
|
