summaryrefslogtreecommitdiff
path: root/src/auxiliaryFunctions/rand/testRand.c
diff options
context:
space:
mode:
authorjofret2009-04-28 06:52:28 +0000
committerjofret2009-04-28 06:52:28 +0000
commit127ac18608c72acfed9d59599252ad62cb562ee5 (patch)
treeefb7e9416342cd3758bf623710c46d2d4cdb5df4 /src/auxiliaryFunctions/rand/testRand.c
parentc1abfc271612a255d4491f2e0220bace5fdf11d2 (diff)
downloadscilab2c-127ac18608c72acfed9d59599252ad62cb562ee5.tar.gz
scilab2c-127ac18608c72acfed9d59599252ad62cb562ee5.tar.bz2
scilab2c-127ac18608c72acfed9d59599252ad62cb562ee5.zip
Moving source code
Diffstat (limited to 'src/auxiliaryFunctions/rand/testRand.c')
-rw-r--r--src/auxiliaryFunctions/rand/testRand.c101
1 files changed, 0 insertions, 101 deletions
diff --git a/src/auxiliaryFunctions/rand/testRand.c b/src/auxiliaryFunctions/rand/testRand.c
deleted file mode 100644
index c57b69da..00000000
--- a/src/auxiliaryFunctions/rand/testRand.c
+++ /dev/null
@@ -1,101 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET
- *
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution. The terms
- * are also available at
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include <stdlib.h>
-#include "testRand.h"
-
-/*
-
-int drandsTest() {
-
- double nan = 0.0 / 0.0;
- double result = nan;
- int i=0;
- printf(">> Double\n");
- for (i=0;i<10;i++){
- result = drands();
- printf("%1.20f\n",result);
- }
-
- assert(&result != &nan);
-
- return 0;
-}
-*/
-
-/*
-int zrandsTest() {
-
- double nan = 0.0 / 0.0;
- doubleComplex result = DoubleComplex(nan,nan);
- int i=0;
- printf(">> DoubleComplex\n");
- for (i=0;i<10;i++){
- result = zrands();
- printf("%1.20f+%1.20f\n",zreals(result),zimags(result));
- }
-
- assert(zreals(result) != nan);
-
- return 0;
-}
-*/
-
-
-int drandaTest() {
- int i;
- double dA = 0.0;
- double nan = dA / dA;
- double *result;
- result=(double*)malloc((unsigned int)12*sizeof(double));
- printf(">> Double Array\n");
- dranda(result,12);
- for (i=0;i<12;i++){
- printf("%1.20f\n",result[i]);
-
- assert(result[i] != nan);}
- free(result);
- return 0;
-}
-
-
-/*
-int zrandaTest() {
- int i;
- double nan = 0.0 / 0.0;
- doubleComplex *result;
- result=malloc((uint)12*sizeof(doubleComplex));
- printf(">> DoubleComplex Array\n");
- zranda(result,12);
- for (i=0;i<12;i++){
- printf("%1.20f+%1.20f\n",zreals(result[i]),zimags(result[i]));
-
- assert(zreals(result[i]) != nan);}
- free(result);
-
- return 0;
-}
-*/
-
-int testRand() {
-/* int drandsTestStatus = 0;*/
- int zrandaTestStatus = 0;
- printf("\n>>>> Rand Tests\n");
- /* drandsTestStatus = drandsTest();*/
- zrandaTestStatus = drandaTest();
- return (zrandaTestStatus);
-}
-
-int main(void) {
- assert(testRand() == 0);
- return 0;
-}