/* 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";
}