uniq test

diff --git a/link/OMakefile b/link/OMakefile
index 22d1066..6d32f9a 100644 (file)
--- a/link/OMakefile
+++ b/link/OMakefile
@@ -24,9 +24,6 @@ PROGRAM = habc-link
 
 OCamlProgram($(PROGRAM), main $(FILES))
 
-#AddDepend(template.cmx, $(ROOT)/swflib.cmx)
-#AddDepend(template.cmo, $(ROOT)/swflib.cmo)
-
 .DEFAULT: $(PROGRAM)
 
 # ------------------------------
@@ -34,7 +31,8 @@ OCamlProgram($(PROGRAM), main $(FILES))
 # ------------------------------
 OUnitTest(cmdOpt, cmdOpt $(ROOT)/config)
 OUnitTest(link,   link reloc)
-OUnitTest(reloc,   reloc)
+OUnitTest(reloc,  reloc)
+OUnitTest(uniq,  uniq)
 
 # ------------------------------
 # PHONY target

diff --git a/link/uniq.ml b/link/uniq.ml
new file mode 100644 (file)
index 0000000..9d21cc1
--- /dev/null
+++ b/link/uniq.ml
@@ -0,0 +1,3 @@
+open Base
+
+let uniq _ = undef

diff --git a/link/uniqTest.ml b/link/uniqTest.ml
new file mode 100644 (file)
index 0000000..8c7cf79
--- /dev/null
+++ b/link/uniqTest.ml
@@ -0,0 +1,93 @@
+open Base
+open OUnit
+open Swflib.AbcType
+
+open Uniq
+
+let cpool = {
+  Swflib.AbcType.int = [];
+  uint          = [];
+  double        = [];
+  string        = [];
+  namespace     = [];
+  namespace_set = [];
+  multiname     = [];
+}
+
+let abc = {
+  Swflib.AbcType.cpool         = cpool;
+  method_info   = [];
+  metadata      = [];
+  classes       = [];
+  instances     = [];
+  scripts       = [];
+  method_bodies = []
+}
+
+let info = {
+  params       = [];
+  return       = 0;
+  method_name  = 0;
+  method_flags = []
+}
+
+let body = {
+  method_sig       = 0;
+  max_stack        = 0;
+  local_count      = 0;
+  init_scope_depth = 0;
+  max_scope_depth  = 0;
+  code             = [];
+  exceptions       = [];
+  method_traits    = []
+}
+
+let ok x y =
+  assert_equal x (uniq y)
+
+let _ = begin "uniq.ml" >::: [
+  "id" >:: begin fun () ->
+    ok abc abc
+  end;
+  "cpool" >:: begin fun () ->
+    ok
+      {abc with cpool =
+         {
+            int = [1; 2];
+            uint          = [1;2;1];
+            double        = [1.0;2.];
+            string        = ["foo";"bar"];
+            namespace     = [Namespace 1];
+            namespace_set = [[1]];
+            multiname     = [QName(1,1)];
+         } }
+      {abc with cpool =
+         {
+            int =[1;2;1;];
+            uint          = [1;2;1];
+            double        = [1.0;2.0;1.0];
+            string        = ["foo";"bar";"foo"];
+            namespace     = [Namespace 1; Namespace 3];
+            namespace_set = [[1];[2]];
+            multiname     = [QName(1,1); QName(2,3)];
+         } }
+  end;
+  "multiname" >:: begin fun () ->
+    ok
+      {abc with
+        cpool = {cpool with
+                   string        = ["foo";"bar"];
+                   namespace     = [Namespace 1];
+                   multiname     = [QName(1,1)];
+                };
+        method_info = [{info with method_name=0}] }
+      {abc with
+        cpool = {cpool with
+                   string        = ["foo";"bar"];
+                   namespace     = [Namespace 1];
+                   multiname     = [QName(1,1); QName(1,1)];
+                };
+        method_info = [{info with method_name=1}] }
+  end;
+] end +> run_test_tt_main
+