Fix #13: Pass byte count to make_string

Source/Swift/Conversion.swift

@@ -259,7 +259,7 @@ extension Environment {
   //
   func make(_ from: String) throws -> EmacsValue {
     EmacsValue(
-      from: try check(pointee.make_string(raw, from, from.count)))
+      from: try check(pointee.make_string(raw, from, from.utf8.count)))
   }
   func make(_ from: Int) throws -> EmacsValue {
     EmacsValue(from: try check(pointee.make_integer(raw, from)))

test/TestModule/Test.swift

@@ -30,6 +30,7 @@ class TestModule: Module {
     try env.defun("swift-int") { (arg: Int) in arg * 2 }
     try env.defun("swift-float") { (arg: Double) in arg * 2 }
     try env.defun("swift-bool") { (arg: Bool) in !arg }
+    try env.defun("swift-string") { (arg: String) in arg }
     try env.defun("swift-call") {
       (env: Environment, arg: String) throws in
       return try env.funcall("format", with: "'%s'", arg)
@@ -183,9 +184,9 @@ class TestModule: Module {
           async let a: Int = channel.withAsyncEnvironment {
             env in try env.funcall("+", with: x, 42)
           }
-            async let b: Int = channel.withAsyncEnvironment {
-              env in try env.funcall("*", with: x, 2)
-            }
+          async let b: Int = channel.withAsyncEnvironment {
+            env in try env.funcall("*", with: x, 2)
+          }
           let result = try await a - b
           channel.withEnvironment {
             env in try env.funcall(callback, with: result)

test/swift-module-test.el

@@ -16,7 +16,11 @@
   (should (eq (swift-int 10) 20))
   (should (< (abs (- 21.0 (swift-float 10.5))) 1e-6))
   (should (swift-bool nil))
-  (should (not (swift-bool t))))
+  (should (not (swift-bool t)))
+  (let ((s1 "I uncover the soul-destroying abhorrence")
+        (s2 "Ξεσκεπάζω τὴν ψυχοφθόρα βδελυγμία"))
+    (should (string= s1 (swift-string s1)))
+    (should (string= s2 (swift-string s2)))))
 
 (ert-deftest swift-module:check-incorrect-num-of-args ()
   :tags '(emacs-all)