Fix ArgumentsToInput bug

Author: aafent

FAST.FBasic.InteractiveConsole/Tests/Other/demo.db

@@ -1,9 +1,17 @@
 REM SQL Script
 REM 
 
-sqlexec "CREATE TABLE IF NOT EXISTS mytable (num1 integer not null)"
-sqlexec "delete from mytable"
-sqlexec "insert into mytable (num1) values (10)"
+'sqlexec "CREATE TABLE IF NOT EXISTS mytable (num1 integer not null)"
+'sqlexec "delete from mytable"
+'sqlexec "insert into mytable (num1) values (10)"
+
+block sql1
+  CREATE TABLE IF Not EXISTS mytable (num1 integer Not null);
+  delete from mytable;
+  insert into mytable (num1) values (10);
+endblock
+sqlexec sql1
+
 RETRIEVE tbl, NEW, 1, "Select num1 from mytable"
 print "Data Result: ";
 print [tbl.num1]

FAST.FBasic.InteractiveConsole/Tests/sqlscript.bas

@@ -5,18 +5,23 @@ let a=10
 
 print a
 
-
 statement 2, mystatement
     input lastI
     input arg2
 
-    print arg2
+    print arg2+":"
     for i=1 To lastI
-        print i
+        print i;
+        print " ";
     next i
+    print ""
 endstatement
 
-mystatement 10,"Count to 10"
+for j=1 To 10
+ let msg="Count from 1 to "+j
+ mystatement j, msg
+next j
+
 
 block marika
 let a= 1 

FAST.FBasic.InteractiveConsole/Tests/test.bas

@@ -35,6 +35,8 @@ public ArgumentsToInput(params object[] args)
                     return s;
                 case int i:
                     return i.ToString();
+                case double d:
+                    return d.ToString();
                 case DateTime dt:
                     var sdt = dt.ToString(Value.dateFormat);
                     return sdt;