Add buffer encoding and decoding functions

Refactor and cleanup

Add prop tests for arraybuffer and base64 encoding

Node compat for base64

Cleanup and working toward isomorphic interface between node and browser

Need to determine where test failures are occurring. Better testing
needed

Better test feedback

Delete faulty browser implementations

Green tests, but still needing a browser implementation for base64 and
arraybuffer manipulation

return to old reliable fromStr function

Working towards a unified interface for buffer handling

Add test vector for b64

Remove test vector

TYPE ERROR

Cleanup

preparing some front-end testing tools

Remove old references to mocha

Remove base64 encoding as it is growing in complexity. Moving base64 to
its own pursuit package

Remove stuff after change of mind

Last of the cleanup

Author: AlexaDeWit

.gitignore

@@ -3,4 +3,4 @@ output/
 bower_components/
 node_modules/
 .psci
-.psci_modules/
+.psci_modules/

src/Data/ArrayBuffer/ArrayBuffer.js

@@ -6,31 +6,45 @@ exports.create = function(s) {
   return function () {
     return new ArrayBuffer(s);
   };
-}
+};
 
 exports.byteLength = function(a) {
   return a.byteLength;
-}
+};
 
 exports.sliceImpl = function(s, e, a) {
   return function () {
     return a.slice(s, e);
   };
-}
+};
 
 exports.fromArray = function(s) {
   return (new Uint8Array(s)).buffer;
-}
+};
 
 exports.fromIntArray = function(s) {
   return (new Uint8Array(s)).buffer;
-}
+};
+
+exports.fromInt16Array = function(s) {
+  return (new Uint16Array(s)).buffer;
+};
 
 exports.fromString = function(s) {
-  var l = s.length;
-  var ab = new ArrayBuffer(l * 2);
-  var a = new Uint16Array(ab);
-  for (var i = 0; i < l; i++)
-    a[i] = s.charCodeAt(i);
-  return a.buffer;
-}
+  var buf = new ArrayBuffer(s.length*2);
+  var bufView = new Uint16Array(buf);
+  for (var i=0, strLen=s.length; i<strLen; i++) {
+    bufView[i] = s.charCodeAt(i);
+  }
+ return buf;
+};
+
+exports.decodeToString = function(buffer) {
+  const uintBuffer = new Uint16Array(buffer);
+  const reducer = function(accum, point) {
+      // use concat instead of es6 syntax for compatibility
+      return accum.concat([String.fromCharCode(point)]);
+  };
+  const points = uintBuffer.reduce(reducer, new Array());
+  return points.join("");
+};

src/Data/ArrayBuffer/ArrayBuffer.purs

@@ -4,6 +4,7 @@ module Data.ArrayBuffer.ArrayBuffer ( create
                                     , fromArray
                                     , fromIntArray
                                     , fromString
+                                    , decodeToString
                                    ) where
 
 import Effect (Effect)
@@ -30,3 +31,6 @@ foreign import fromIntArray :: Array Int -> ArrayBuffer
 
 -- | Convert a string into an `ArrayBuffer` representation.
 foreign import fromString :: String -> ArrayBuffer
+
+foreign import decodeToString :: ArrayBuffer -> String
+

test/Main.purs

@@ -6,9 +6,16 @@ import Effect (Effect)
 import Data.ArrayBuffer.ArrayBuffer as AB
 import Data.ArrayBuffer.DataView as DV
 import Data.ArrayBuffer.Typed as TA
+import Data.ArrayBuffer.Types as AT
 import Data.Maybe (Maybe(..), isNothing)
 import Data.UInt (fromInt, pow)
-import Test.QuickCheck (quickCheck', (<?>))
+import Test.QuickCheck (quickCheck', (<?>), quickCheck)
+import Test.QuickCheck.Arbitrary (class Arbitrary, arbitrary)
+
+newtype ABuffer = ABuffer AT.ArrayBuffer
+
+instance arbitraryArrayBuffer :: Arbitrary ABuffer where
+  arbitrary = map (ABuffer <<< AB.fromString) arbitrary
 
 assertEffEquals :: forall a. Eq a => Show a => a -> Effect a -> Effect Unit
 assertEffEquals expectedValue computation = do
@@ -36,6 +43,8 @@ main = do
   assertEquals 4 $ AB.byteLength $ AB.fromArray [1.0, 2.0, 3.0, 4.0]
   assertEquals 4 $ AB.byteLength $ AB.fromIntArray [1, 2, 3, 4]
   assertEquals 8 $ AB.byteLength $ AB.fromString "hola"
+  assertEquals 8 $ AB.byteLength $ AB.fromString "hóla"
+  assertEquals 10 $ AB.byteLength $ AB.fromString "hóla¡"
   assertEquals 8 $ AB.byteLength $ DV.buffer $ DV.whole ab8
   assertEquals 8 $ AB.byteLength $ DV.buffer $ TA.dataView $ TA.asInt8Array $ DV.whole ab8
 
@@ -47,6 +56,12 @@ main = do
   assertEffEquals Nothing $ TA.at fourElementInt8Array 4
   assertEffEquals Nothing $ TA.at fourElementInt8Array (-1)
 
+  quickCheck
+    \(s) ->
+      s == (AB.decodeToString $ AB.fromString s)
+      <?> "Isormorphic arraybuffer conversion with string failed for input "
+      <> s
+
   assertEquals [1.0, 2.0, 3.0] $ TA.toArray <<< TA.asInt8Array <<< DV.whole $ AB.fromArray [1.0, 2.0, 3.0]
 
   twoElementDataView <- do
@@ -66,3 +81,4 @@ main = do
     DV.setUint8 dv t 2
     DV.setUint8 dv t 3
     DV.getUint32be dv 0
+