/* Test long string convert to numbers */ proc main() { var s1 = L"1234"; var s2 = L"42.0"; var s3 = L"0x1234"; var n; n = oadl::str2var(s1); if( n != 1234 ) "Failed! n = ", n, " (should be ", s1, ")\n"; n = oadl::str2var(s2); if( n != 42.0 ) "Failed! n = ", n, " (should be ", s2, ")\n"; n = oadl::str2var(s3); if( n != 0x1234 ) "Failed! n = ", n, " (should be ", s2, ")\n"; }