randlib: fix grand_clcg4.tst display
[scilab.git] / scilab / modules / randlib / tests / unit_tests / grand_clcg4.tst
index c7f3e76..8946d9e 100644 (file)
@@ -1,3 +1,4 @@
+//<-- CLI SHELL MODE -->
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) ????-2008 - INRIA
@@ -5,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-grand('setgen','clcg4');
+grand("setgen","clcg4");
 
 // Low level test for grand
 
@@ -19,62 +20,59 @@ answer   = ones(NB,NR);
 genlst   = [1,5,10,20,32]
 nbad     = 0;
 
-str      = ['For five virtual generators of the 101';..
-                       ' This test generates'+string(NB)+' numbers then resets the block';..
-                       '      and does it again';..
-                       ' Any disagreements are reported -- there should be none'];
-                       
-write (%io(2),str);
+str      = ["For five virtual generators of the 101"
+" This test generates "+string(NB)+" numbers then resets the block"
+"      and does it again"
+" Any disagreements are reported -- there should be none"];
+mprintf(strcat(str, "\n"));
 
 //
 //     Set up Generators
 //
 
-grand('setall',12345,54321,6789,9876);
+grand("setall",12345,54321,6789,9876);
 
 //
 //     For a selected set of generators
 //
 
 for ixgen = 1:5
-       igen = genlst(ixgen)
-       grand('setcgn',igen);
-       write(%io(2),' Testing generator '+string(igen));
-       //
-       //     Use NB blocks
-       //
-       grand('initgn',-1);
-       SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
-       for iblock = 1:NB
-               //     Generate NR numbers
-               answer(iblock,1:NR)= grand(1,NR,'lgi');
-               grand('initgn',1);
-       end
-       grand('initgn',-1);
-       //
-       //     Do it again and compare answers
-       //
-       SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
-       //
-       //     Use NB blocks
-       //
-       for iblock = 1:NB
-               
-               //     Generate NR numbers
-               itmp = grand(1,NR,'lgi');
-               if itmp<>answer(iblock,:) then
-                       str=[' Disagreement on regeneration of numbers';...
-                       ' Block '+string(iblock)+' N within Block '];
-                       write(%io(2),str);
-               end
-               
-               if itmp<>answer(iblock,:) then pause,end
-               
-               grand('initgn',1);
-               
-       end
-       
-       write (%io(2), ' Finished testing generator '+string(igen));
-       write (%io(2), ' Test completed successfully');
-       
+    igen = genlst(ixgen)
+    grand("setcgn",igen);
+    mprintf(" Testing generator "+string(igen)+"\n");
+    //
+    //     Use NB blocks
+    //
+    grand("initgn",-1);
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
+    for iblock = 1:NB
+        //     Generate NR numbers
+        answer(iblock,1:NR)= grand(1,NR,"lgi");
+        grand("initgn",1);
+    end
+    grand("initgn",-1);
+    //
+    //     Do it again and compare answers
+    //
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
+    //
+    //     Use NB blocks
+    //
+    for iblock = 1:NB
+        //     Generate NR numbers
+        itmp = grand(1,NR,"lgi");
+        if itmp<>answer(iblock,:) then
+            str=[" Disagreement on regeneration of numbers" ..
+            +" Block "+string(iblock)+" N within Block "];
+            mprintf(str);
+        end
+
+        if itmp<>answer(iblock,:) then pause,end
+
+        grand("initgn",1);
+    end
+
+    mprintf(" Finished testing generator "+string(igen)+"\n");
+    mprintf(" Test completed successfully\n");
+
 end