scilab/modules/spreadsheet/tests/nonreg_tests/ticket_745.tst

   1 // =============================================================================
   2 // =============================================================================
   3 // <-- JVM NOT MANDATORY -->
   4 // =============================================================================
   5 // <-- Non-regression test for bug 745 -->
   6 //
   7 // <-- URL -->
   8 //  http://forge.scilab.org/index.php/p/csv-readwrite/issues/745/
   9 //
  10 // <-- Short Description -->
  11 // csvTextScan did no convert "1,1" into double.
  12 // =============================================================================
  13 // Example #1
  14 M = [
  15 "1,1000000000000001 0,10000000000000001"
  16 "0,10000000000000001 1,1000000000000001"
  17 "0,10000000000000001 0,10000000000000001"
  18 ];
  19 A = csvTextScan(M, " ", ",");
  20 // Example #2
  21 csvDefault("separator"," ");
  22 csvDefault("decimal",",");
  23 x = csvStringToDouble("1,1000000000000001");
  24 assert_checkequal(x, 1.1000000000000001);
  25 // Example #2
  26 A = csvTextScan("1,1000000000000001", " ", ",");
  27 assert_checkequal(A, 1.1000000000000001);
  28
  29 // =============================================================================