From 9ae8932c978ab9c12f683745b47b3e0898581635 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 7 Sep 2008 11:41:04 -0400 Subject: Parsing strings for floats and bools --- tests/fromString.ur | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) (limited to 'tests/fromString.ur') diff --git a/tests/fromString.ur b/tests/fromString.ur index d9a087e4..673503ae 100644 --- a/tests/fromString.ur +++ b/tests/fromString.ur @@ -1,10 +1,26 @@ -fun i2s s = +fun s2i s = case stringToInt s of None => 0 | Some n => n +fun s2f s = + case stringToFloat s of + None => 0.0 + | Some n => n + +fun s2b s = + case stringToBool s of + None => False + | Some b => b + fun main () : transaction page = return - Error = {cdata (show _ (i2s "Error"))}
- 3 = {cdata (show _ (i2s "+3"))}
+ Error = {cdata (show _ (s2i "Error"))}
+ 3 = {cdata (show _ (s2i "+3"))}
+
+ Error = {cdata (show _ (s2f "Error"))}
+ 98.76 = {cdata (show _ (s2f "98.76"))}
+
+ Error = {cdata (show _ (s2b "Error"))}
+ False = {cdata (show _ (s2b "false"))}
+ True = {cdata (show _ (s2b "trUE"))}
- -- cgit v1.2.3