More tests.

test/test_suite/compile_time/compile_time_utf32.c3

@@ -0,0 +1,70 @@
+macro int get_utf32_codepoint_length(char $c) @const
+{
+    int $len;
+    $switch
+        $case !($c & 0x80):           $len = 1;
+        $case ($c & 0xE0) == 0xC0:    $len = 2;
+        $case ($c & 0xF0) == 0xE0:    $len = 3;
+        $case ($c & 0xF8) == 0xF0:    $len = 4;
+        $default:                     $len = -1;
+    $endswitch
+    return $len;
+}
+
+macro usz get_utf32_len_from_utf8(String $source) @const
+{
+    usz $len = 0;
+    $for (var $i=0; $i < $source.len;)
+        var $curlen = get_utf32_codepoint_length ($source[$i]);
+        $i += $curlen;
+        $len++;
+    $endfor
+    return $len;
+}
+
+macro Char32[] conv_utf8_to_char32($source) @const
+{
+    Char32 $codepoint;
+    var $max = $source.len;
+
+    var $char32len = get_utf32_len_from_utf8 ($source);
+    Char32[] $chars = {};
+    var $char_index = 0;
+
+    $for (var $inx = 0; $inx < $max; )
+        var $c = $source[$inx];
+        var $len = get_utf32_codepoint_length($c);
+        $switch ($len)
+            $case 1: $codepoint = $c;
+            $case 2: $codepoint = $c & 0x1F;
+            $case 3: $codepoint = $c & 0x0F;
+            $case 4: $codepoint = $c & 0x07;
+            $default:
+                $error("Error, invalid utf8 character in string");
+                return;
+        $endswitch
+
+        $for (var $x = 1; $x < $len; ++$x)
+            $c = $source[$inx + $x];
+            $if ( ($c & 0xC0) != 0x80):
+                $error("Error, invalid utf8 character in string");
+                return;
+            $endif
+            $codepoint = ($codepoint << 6) | ($c & 0x3F);
+        $endfor
+
+        $chars = $chars +++ $codepoint;
+        $inx += $len;
+    $endfor
+    return $chars;
+}
+import std;
+fn void main(String[] args)
+{
+    Char32[] chars = conv_utf8_to_char32 ("🐉 eats 🌎");
+    io::printn(chars);
+    foreach (c : chars)
+    {
+        io::printfn ("char32 :%x", c );
+    }
+}

test/test_suite/compile_time/not_cost.c3

@@ -0,0 +1,10 @@
+macro foo($a) @const
+{
+	int a = $a;
+	return $a;
+}
+
+fn void test()
+{
+	foo(123); // #error: failed to fold to a constant value
+}