randlib: fix grand_clcg4.tst display
[scilab.git] / scilab / modules / randlib / tests / unit_tests / grand_clcg4.tst
index 4b39a39..8946d9e 100644 (file)
@@ -6,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
 
@@ -20,18 +20,17 @@ answer   = ones(NB,NR);
 genlst   = [1,5,10,20,32]
 nbad     = 0;
 
-str      = ['For five virtual generators of the 101\n' ..
-           +' This test generates '+string(NB)+' numbers then resets the block\n'..
-           +'      and does it again\n' ..
-           +' Any disagreements are reported -- there should be none'];
-
-mprintf(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
@@ -39,41 +38,41 @@ grand('setall',12345,54321,6789,9876);
 
 for ixgen = 1:5
     igen = genlst(ixgen)
-    grand('setcgn',igen);
-    mprintf(' Testing generator '+string(igen)+'\n');
+    grand("setcgn",igen);
+    mprintf(" Testing generator "+string(igen)+"\n");
     //
     //     Use NB blocks
     //
-    grand('initgn',-1);
-    SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
+    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);
+        answer(iblock,1:NR)= grand(1,NR,"lgi");
+        grand("initgn",1);
     end
-    grand('initgn',-1);
+    grand("initgn",-1);
     //
     //     Do it again and compare answers
     //
-    SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
     //
     //     Use NB blocks
     //
     for iblock = 1:NB
         //     Generate NR numbers
-        itmp = grand(1,NR,'lgi');
+        itmp = grand(1,NR,"lgi");
         if itmp<>answer(iblock,:) then
-            str=[' Disagreement on regeneration of numbers' ..
-                +' Block '+string(iblock)+' N within Block '];
+            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);
+        grand("initgn",1);
     end
 
-    mprintf(' Finished testing generator '+string(igen)+'\n');
-    mprintf(' Test completed successfully\n');
-       
+    mprintf(" Finished testing generator "+string(igen)+"\n");
+    mprintf(" Test completed successfully\n");
+
 end