OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [ecos-3.0/] [packages/] [language/] [c/] [libc/] [stdlib/] [current/] [tests/] [srand.c] - Blame information for rev 786

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 786 skrzyp
//=================================================================
2
//
3
//        srand.c
4
//
5
//        Testcase for C library srand()
6
//
7
//=================================================================
8
// ####ECOSGPLCOPYRIGHTBEGIN####                                            
9
// -------------------------------------------                              
10
// This file is part of eCos, the Embedded Configurable Operating System.   
11
// Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
12
//
13
// eCos is free software; you can redistribute it and/or modify it under    
14
// the terms of the GNU General Public License as published by the Free     
15
// Software Foundation; either version 2 or (at your option) any later      
16
// version.                                                                 
17
//
18
// eCos is distributed in the hope that it will be useful, but WITHOUT      
19
// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or    
20
// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License    
21
// for more details.                                                        
22
//
23
// You should have received a copy of the GNU General Public License        
24
// along with eCos; if not, write to the Free Software Foundation, Inc.,    
25
// 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.            
26
//
27
// As a special exception, if other files instantiate templates or use      
28
// macros or inline functions from this file, or you compile this file      
29
// and link it with other works to produce a work based on this file,       
30
// this file does not by itself cause the resulting work to be covered by   
31
// the GNU General Public License. However the source code for this file    
32
// must still be made available in accordance with section (3) of the GNU   
33
// General Public License v2.                                               
34
//
35
// This exception does not invalidate any other reasons why a work based    
36
// on this file might be covered by the GNU General Public License.         
37
// -------------------------------------------                              
38
// ####ECOSGPLCOPYRIGHTEND####                                              
39
//=================================================================
40
//#####DESCRIPTIONBEGIN####
41
//
42
// Author(s):     ctarpy, jlarmour
43
// Contributors:  
44
// Date:          2000-04-30
45
// Description:   Contains testcode for C library srand() function
46
//
47
//
48
//####DESCRIPTIONEND####
49
 
50
// INCLUDES
51
 
52
#include <pkgconf/system.h>
53
#include <stdlib.h>
54
#include <cyg/infra/testcase.h>
55
 
56
 
57
// CONSTANTS
58
 
59
// Max cross correlation value of two sequences of
60
// different seed
61
#define X_CORREL 10
62
 
63
// size of arrays to use for testing
64
#define TEST_SIZE 1024
65
 
66
 
67
// FUNCTIONS
68
 
69
static void
70
test( CYG_ADDRWORD data )
71
{
72
    int ctr;
73
    static int array_1[TEST_SIZE];
74
    static int array_2[TEST_SIZE];
75
    static int array_3[TEST_SIZE];
76
    int hits;
77
    int fail;
78
 
79
 
80
    srand(3);
81
    for (ctr=0; ctr<TEST_SIZE; ++ctr)
82
        array_1[ctr] = rand();
83
 
84
    srand(9);
85
    for (ctr=0; ctr<TEST_SIZE; ++ctr)
86
        array_2[ctr] = rand();
87
 
88
    srand(3);
89
    for (ctr=0; ctr<TEST_SIZE; ++ctr)
90
        array_3[ctr] = rand();
91
 
92
    // Make sure arrays 1 and 3 are the same
93
    fail = 0;
94
    for (ctr=0; ctr<TEST_SIZE; ++ctr) {
95
        if (array_1[ctr] != array_3[ctr])
96
            ++fail;
97
    } // for
98
 
99
    CYG_TEST_PASS_FAIL( fail == 0, "resetting the seed to the same value");
100
 
101
    // Check sequences of different seeds are different
102
    hits = 0;
103
    for (ctr=0; ctr<TEST_SIZE; ++ctr) {
104
        if (array_1[ctr] == array_2[ctr])
105
            ++hits;
106
    } // for
107
 
108
    CYG_TEST_PASS_FAIL(hits < X_CORREL,
109
                       "random sequence for different seeds is different");
110
 
111
    CYG_TEST_FINISH("Finished tests from testcase " __FILE__ " for "
112
                    "C library srand() function");
113
} // test()
114
 
115
#ifndef CYGPKG_LIBC_STARTUP
116
void cyg_user_start(void)
117
#else
118
int
119
main( int argc, char *argv[] )
120
#endif
121
{
122
    CYG_TEST_INIT();
123
 
124
    CYG_TEST_INFO("Starting tests from testcase " __FILE__ " for C library "
125
                  "srand() function");
126
 
127
    test(0);
128
 
129
    CYG_TEST_NA("Testing is not applicable to this configuration");
130
} // main()
131
 
132
 
133
 
134
// EOF srand.c

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.