More JS tests

Author: GearsDatapacks

compiler-core/src/javascript/tests/case.rs

@@ -413,3 +413,59 @@ pub fn go(x) {
 "
     );
 }
+
+#[test]
+fn bit_array_assignment_utf16() {
+    assert_js!(
+        r#"
+pub fn main() {
+  case <<"Hello":utf16>> {
+    <<"Hello" as m:utf16>> -> m
+    _ -> ""
+  }
+}
+"#
+    );
+}
+
+#[test]
+fn bit_array_assignment_utf32() {
+    assert_js!(
+        r#"
+pub fn main() {
+  case <<"Hello":utf32>> {
+    <<"Hello" as m:utf32>> -> m
+    _ -> ""
+  }
+}
+"#
+    );
+}
+
+#[test]
+fn bit_array_assignment_utf16_little_endian() {
+    assert_js!(
+        r#"
+pub fn main() {
+  case <<"Hello":utf16-little>> {
+    <<"Hello" as m:utf16-little>> -> m
+    _ -> ""
+  }
+}
+"#
+    );
+}
+
+#[test]
+fn bit_array_assignment_utf32_little_endian() {
+    assert_js!(
+        r#"
+pub fn main() {
+  case <<"Hello":utf32-little>> {
+    <<"Hello" as m:utf32-little>> -> m
+    _ -> ""
+  }
+}
+"#
+    );
+}

compiler-core/src/javascript/tests/snapshots/gleam_core__javascript__tests__case__bit_array_assignment_utf16.snap

@@ -0,0 +1,39 @@
+---
+source: compiler-core/src/javascript/tests/case.rs
+expression: "\npub fn main() {\n  case <<\"Hello\":utf16>> {\n    <<\"Hello\" as m:utf16>> -> m\n    _ -> \"\"\n  }\n}\n"
+---
+----- SOURCE CODE
+
+pub fn main() {
+  case <<"Hello":utf16>> {
+    <<"Hello" as m:utf16>> -> m
+    _ -> ""
+  }
+}
+
+
+----- COMPILED JAVASCRIPT
+import { toBitArray, stringToUtf16 } from "../gleam.mjs";
+
+export function main() {
+  let $ = toBitArray([stringToUtf16("Hello", true)]);
+  if ($.bitSize === 80) {
+    if ($.byteAt(0) === 0 &&
+      $.byteAt(1) === 72 &&
+      $.byteAt(2) === 0 &&
+      $.byteAt(3) === 101 &&
+      $.byteAt(4) === 0 &&
+      $.byteAt(5) === 108 &&
+      $.byteAt(6) === 0 &&
+      $.byteAt(7) === 108 &&
+      $.byteAt(8) === 0 &&
+      $.byteAt(9) === 111) {
+      let m = "Hello";
+      return m;
+    } else {
+      return "";
+    }
+  } else {
+    return "";
+  }
+}

compiler-core/src/javascript/tests/snapshots/gleam_core__javascript__tests__case__bit_array_assignment_utf16_little_endian.snap

@@ -0,0 +1,39 @@
+---
+source: compiler-core/src/javascript/tests/case.rs
+expression: "\npub fn main() {\n  case <<\"Hello\":utf16-little>> {\n    <<\"Hello\" as m:utf16-little>> -> m\n    _ -> \"\"\n  }\n}\n"
+---
+----- SOURCE CODE
+
+pub fn main() {
+  case <<"Hello":utf16-little>> {
+    <<"Hello" as m:utf16-little>> -> m
+    _ -> ""
+  }
+}
+
+
+----- COMPILED JAVASCRIPT
+import { toBitArray, stringToUtf16 } from "../gleam.mjs";
+
+export function main() {
+  let $ = toBitArray([stringToUtf16("Hello", false)]);
+  if ($.bitSize === 80) {
+    if ($.byteAt(0) === 72 &&
+      $.byteAt(1) === 0 &&
+      $.byteAt(2) === 101 &&
+      $.byteAt(3) === 0 &&
+      $.byteAt(4) === 108 &&
+      $.byteAt(5) === 0 &&
+      $.byteAt(6) === 108 &&
+      $.byteAt(7) === 0 &&
+      $.byteAt(8) === 111 &&
+      $.byteAt(9) === 0) {
+      let m = "Hello";
+      return m;
+    } else {
+      return "";
+    }
+  } else {
+    return "";
+  }
+}

compiler-core/src/javascript/tests/snapshots/gleam_core__javascript__tests__case__bit_array_assignment_utf32.snap

@@ -0,0 +1,49 @@
+---
+source: compiler-core/src/javascript/tests/case.rs
+expression: "\npub fn main() {\n  case <<\"Hello\":utf32>> {\n    <<\"Hello\" as m:utf32>> -> m\n    _ -> \"\"\n  }\n}\n"
+---
+----- SOURCE CODE
+
+pub fn main() {
+  case <<"Hello":utf32>> {
+    <<"Hello" as m:utf32>> -> m
+    _ -> ""
+  }
+}
+
+
+----- COMPILED JAVASCRIPT
+import { toBitArray, stringToUtf32 } from "../gleam.mjs";
+
+export function main() {
+  let $ = toBitArray([stringToUtf32("Hello", true)]);
+  if ($.bitSize === 160) {
+    if ($.byteAt(0) === 0 &&
+      $.byteAt(1) === 0 &&
+      $.byteAt(2) === 0 &&
+      $.byteAt(3) === 72 &&
+      $.byteAt(4) === 0 &&
+      $.byteAt(5) === 0 &&
+      $.byteAt(6) === 0 &&
+      $.byteAt(7) === 101 &&
+      $.byteAt(8) === 0 &&
+      $.byteAt(9) === 0 &&
+      $.byteAt(10) === 0 &&
+      $.byteAt(11) === 108 &&
+      $.byteAt(12) === 0 &&
+      $.byteAt(13) === 0 &&
+      $.byteAt(14) === 0 &&
+      $.byteAt(15) === 108 &&
+      $.byteAt(16) === 0 &&
+      $.byteAt(17) === 0 &&
+      $.byteAt(18) === 0 &&
+      $.byteAt(19) === 111) {
+      let m = "Hello";
+      return m;
+    } else {
+      return "";
+    }
+  } else {
+    return "";
+  }
+}

compiler-core/src/javascript/tests/snapshots/gleam_core__javascript__tests__case__bit_array_assignment_utf32_little_endian.snap

@@ -0,0 +1,49 @@
+---
+source: compiler-core/src/javascript/tests/case.rs
+expression: "\npub fn main() {\n  case <<\"Hello\":utf32-little>> {\n    <<\"Hello\" as m:utf32-little>> -> m\n    _ -> \"\"\n  }\n}\n"
+---
+----- SOURCE CODE
+
+pub fn main() {
+  case <<"Hello":utf32-little>> {
+    <<"Hello" as m:utf32-little>> -> m
+    _ -> ""
+  }
+}
+
+
+----- COMPILED JAVASCRIPT
+import { toBitArray, stringToUtf32 } from "../gleam.mjs";
+
+export function main() {
+  let $ = toBitArray([stringToUtf32("Hello", false)]);
+  if ($.bitSize === 160) {
+    if ($.byteAt(0) === 72 &&
+      $.byteAt(1) === 0 &&
+      $.byteAt(2) === 0 &&
+      $.byteAt(3) === 0 &&
+      $.byteAt(4) === 101 &&
+      $.byteAt(5) === 0 &&
+      $.byteAt(6) === 0 &&
+      $.byteAt(7) === 0 &&
+      $.byteAt(8) === 108 &&
+      $.byteAt(9) === 0 &&
+      $.byteAt(10) === 0 &&
+      $.byteAt(11) === 0 &&
+      $.byteAt(12) === 108 &&
+      $.byteAt(13) === 0 &&
+      $.byteAt(14) === 0 &&
+      $.byteAt(15) === 0 &&
+      $.byteAt(16) === 111 &&
+      $.byteAt(17) === 0 &&
+      $.byteAt(18) === 0 &&
+      $.byteAt(19) === 0) {
+      let m = "Hello";
+      return m;
+    } else {
+      return "";
+    }
+  } else {
+    return "";
+  }
+}