Move all test/ into melange

Author: davesnx

src/js/dune

@@ -2,6 +2,7 @@
  (name promise_js)
  (public_name promise.melange)
  (modes melange)
+ (wrapped false)
  (libraries melange.belt)
  (preprocess
   (pps melange.ppx))

test/bundle/dune

@@ -0,0 +1,4 @@
+(library
+ (name bundle)
+ (modes melange)
+ (libraries melange.belt promise.melange))

test/dune

@@ -0,0 +1,11 @@
+(library
+ (name test_ffi_js)
+ (modes melange)
+ (libraries framework_js)
+ (wrapped false)
+ (preprocess
+  (pps melange.ppx)))
+
+(copy_files
+ (mode fallback)
+ (files ../native/*.re))

test/ffi/js/dune

@@ -4,7 +4,7 @@
 
 
 
-[%%bs.raw {|
+[%%mel.raw {|
 function isPromise (p) {
     return (p instanceof Promise);
 }
@@ -14,13 +14,8 @@ function isPromiseLike(v) {
 };
 |}];
 
-[@bs.val]
 external isPromise: Promise.Js.t(_, _) => bool = "isPromise";
-
-[@bs.val]
 external jsPromiseIsPromise: Js.Promise.t(_) => bool = "isPromise";
-
-[@bs.val]
 external jsPromiseIsPromiseLike: Js.Promise.t(_) => bool = "isPromiseLike";
 
 
@@ -70,15 +65,15 @@ let interopTests = Framework.suite("interop", [
   }),
 
   test("js promise is reason-promise", () => {
-    let js_promise: Promise.t(int) = [%bs.raw {|Promise.resolve(1)|}];
+    let js_promise: Promise.t(int) = [%mel.raw {|Promise.resolve(1)|}];
     js_promise
     ->Promise.flatMap(n => Promise.resolved(n + 1))
     ->Promise.flatMap(n => Promise.resolved(n == 2));
   }),
 
   test("reason-promise as js argument", () => {
     module Then = {
-      [@bs.send.pipe: Promise.t('a)]
+      [@mel.send.pipe: Promise.t('a)]
       external js_then: ('a => Promise.t('b)) => Promise.t('b) =
         "then";
     };
@@ -243,7 +238,7 @@ let soundnessTests = Framework.suite("soundness", [
 
   [@ocaml.warning "-33"]
   test("resolved: Almost-Promise-like", () => {
-    let open Js_OO;
+    /* let open Js_OO; */
     Promise.resolved(makeAlmostPromiseLike(42))
     ->Promise.flatMap(x => Promise.resolved(x##_then == 42));
   }),

test/js/test_ffi.re renamed to test/ffi/js/test_ffi.re

@@ -0,0 +1,3 @@
+(library
+ (name test_ffi)
+ (libraries framework))

test/ffi/native/dune

@@ -0,0 +1,9 @@
+(library
+ (name framework_js)
+ (modes melange)
+ (wrapped false)
+ (libraries promise_js))
+
+(copy_files
+ (mode fallback)
+ (files ../native/*.re))

test/native/test_ffi.re renamed to test/ffi/native/test_ffi.re

@@ -1,3 +1,3 @@
 (library
- (name run)
+ (name framework)
  (libraries promise))

test/framework/dune

@@ -0,0 +1,5 @@
+(library
+ (name isoresult_js)
+ (modes melange)
+ (wrapped false)
+ (libraries melange.belt))

test/framework/js/dune

@@ -8,7 +8,6 @@ let test = Framework.test;
 
 
 
-[@bs.val]
 external hrtime: unit => (int, int) = "process.hrtime";
 
 let hrtime = () => {

test/framework/native/dune

@@ -0,0 +1,13 @@
+; (executable
+; (name test_main)
+; (libraries isoresult promise test_ffi))
+
+(copy_files
+ (mode fallback)
+ (files ../native/*.re))
+
+(melange.emit
+ (target test)
+ (libraries framework_js promise_js isoresult_js test_ffi_js)
+ (preprocess
+  (pps melange.ppx)))

test/framework/framework.re renamed to test/framework/native/framework.re

@@ -1,3 +1,3 @@
-(library
- (name test_ffi)
- (libraries framework))
+(executable
+ (name test_main)
+ (libraries isoresult promise test_ffi))