Adding more tests

bryanjos · bryanjos · commit 75abd0f3752e · 2017-08-12T13:53:38.000-05:00
diff --git a/priv/build/iife/ElixirScript.Core.js b/priv/build/iife/ElixirScript.Core.js
diff --git a/src/javascript/lib/core/erlang_compat/unicode.js b/src/javascript/lib/core/erlang_compat/unicode.js
@@ -1,15 +1,30 @@
 import erlang from './erlang';
+import lists from './lists';
 
-function characters_to_list(characters) {
-  return characters.split('').map(c => c.codePointAt(0));
+function characters_to_list(characters, inEncoding = Symbol.for('unicode')) {
+  let values = characters;
+
+  if (Array.isArray(characters)) {
+    values = lists.flatten(characters);
+  }
+
+  if (erlang.is_binary(values)) {
+    return values.split('').map(c => c.codePointAt(0));
+  }
+
+  return values.reduce((acc, c) => {
+    if (erlang.is_integer(c)) {
+      return acc.concat(c);
+    }
+
+    return acc.concat(characters_to_list(c, inEncoding));
+  }, []);
 }
 
 function characters_to_binary(characters) {
-  if (erlang.is_binary(characters)) {
-    return characters;
-  }
+  const values = characters_to_list(characters);
 
-  return String.fromCodePoint(...characters);
+  return String.fromCodePoint(...values);
 }
 
 export default {
diff --git a/src/javascript/lib/core/functions.js b/src/javascript/lib/core/functions.js
@@ -1,27 +1,6 @@
 import Protocol from './protocol';
 import Core from '../core';
 
-function iterator_to_reducer(iterable, acc, fun) {
-  const iterator = iterable[Symbol.iterator]();
-  let x = iterator.next();
-  let _acc = acc;
-
-  while (x.done === false) {
-    _acc = fun(x.value, _acc.get(1));
-    if (_acc.get(0) === Symbol.for('halt')) {
-      return new Core.Tuple(Symbol.for('halted'), _acc.get(1));
-    } else if (_acc.get(0) === Symbol.for('suspend')) {
-      return new Core.Tuple(Symbol.for('suspended'), _acc.get(1), new_acc => {
-        return iterator_to_reducer(iterator, new_acc, fun);
-      });
-    }
-
-    x = iterator.next();
-  }
-
-  return new Core.Tuple(Symbol.for('done'), _acc.get(1));
-}
-
 function call_property(item, property) {
   if (!property) {
     if (item instanceof Function || typeof item === 'function') {
@@ -148,7 +127,6 @@ export default {
   defprotocol,
   defimpl,
   build_namespace,
-  iterator_to_reducer,
   map_to_object,
   trampoline,
   Recurse
diff --git a/src/javascript/tests/core/erlang_compat/binary_spec.js b/src/javascript/tests/core/erlang_compat/binary_spec.js
@@ -0,0 +1,15 @@
+import test from 'ava';
+import Core from '../../../lib/core';
+
+test('copy', t => {
+  let result = Core.binary.copy('h', 3);
+  t.deepEqual(result, 'hhh');
+
+  result = Core.binary.copy('h');
+  t.deepEqual(result, 'h');
+});
+
+test('list_to_bin', t => {
+  let result = Core.binary.list_to_bin([104, 101, 108, 108, 111]);
+  t.deepEqual(result, 'hello');
+});
diff --git a/src/javascript/tests/core/erlang_compat/elixir_errors_spec.js b/src/javascript/tests/core/erlang_compat/elixir_errors_spec.js
@@ -0,0 +1,7 @@
+import test from 'ava';
+import Core from '../../../lib/core';
+
+test('warn', t => {
+  let result = Core.elixir_errors.warn(['this is a warning']);
+  t.deepEqual(result, Symbol.for('ok'));
+});
diff --git a/src/javascript/tests/core/erlang_compat/io_spec.js b/src/javascript/tests/core/erlang_compat/io_spec.js
@@ -0,0 +1,10 @@
+import test from 'ava';
+import Core from '../../../lib/core';
+
+test('put_chars', t => {
+  let result = Core.io.put_chars(Symbol.for('stdio'), 'Hello');
+  t.deepEqual(result, Symbol.for('ok'));
+
+  result = Core.io.put_chars(Symbol.for('stderr'), 'Hello');
+  t.deepEqual(result, Symbol.for('ok'));
+});
diff --git a/src/javascript/tests/core/erlang_compat/unicode_spec.js b/src/javascript/tests/core/erlang_compat/unicode_spec.js
@@ -0,0 +1,30 @@
+import test from 'ava';
+import Core from '../../../lib/core';
+
+test('characters_to_list', t => {
+  let result = Core.unicode.characters_to_list('hello');
+  t.deepEqual(result, [104, 101, 108, 108, 111]);
+
+  result = Core.unicode.characters_to_list(['hello', 'fg']);
+  t.deepEqual(result, [104, 101, 108, 108, 111, 102, 103]);
+
+  result = Core.unicode.characters_to_list(['hello', 'fg', 34]);
+  t.deepEqual(result, [104, 101, 108, 108, 111, 102, 103, 34]);
+
+  result = Core.unicode.characters_to_list(['hello', 'fg', 34, ['s']]);
+  t.deepEqual(result, [104, 101, 108, 108, 111, 102, 103, 34, 115]);
+});
+
+test('characters_to_binary', t => {
+  let result = Core.unicode.characters_to_binary('hello');
+  t.deepEqual(result, 'hello');
+
+  result = Core.unicode.characters_to_binary(['hello', 'fg']);
+  t.deepEqual(result, 'hellofg');
+
+  result = Core.unicode.characters_to_binary(['hello', 'fg', 34]);
+  t.deepEqual(result, 'hellofg"');
+
+  result = Core.unicode.characters_to_binary(['hello', 'fg', 34, ['s']]);
+  t.deepEqual(result, 'hellofg"s');
+});
