Test code

tests/in-progress/import_dynamic/import_dynamic.hs

@@ -0,0 +1,20 @@
+import Language.UHC.JScript.ECMA.String
+import Language.UHC.JScript.Assorted
+import Language.UHC.JScript.Primitives
+import Language.UHC.JScript.JQuery.JQuery
+import UHC.Ptr
+
+
+foreign import jscript "getJSFun(%1)"
+  getJSFun :: Int -> FunPtr (Int -> Int)
+
+foreign import jscript "dynamic"
+  mkDyn :: FunPtr (Int -> Int) -> (Int -> Int)
+
+main :: IO ()
+main = do
+  putStrLn "import_dynamic"
+  let jfn = getJSFun 2
+  let hfn = mkDyn jfn
+  print $ hfn 3
+

tests/in-progress/import_dynamic/import_dynamic_perm.js

@@ -1,5 +1,5 @@
-function some_function(arg1, arg2, callback) {
-  var num = Math.ceil(arg1 + arg2);
-  var res = callback(num);
-  return res;
-}
+function getJSFun(x) {
+  return function(y) {
+    return x + y;
+  };
+};