about summary refs log tree commit diff
path: root/third_party/bazel/rules_haskell/tests/unit-tests/tests.bzl
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/bazel/rules_haskell/tests/unit-tests/tests.bzl')
-rw-r--r--third_party/bazel/rules_haskell/tests/unit-tests/tests.bzl83
1 files changed, 0 insertions, 83 deletions
diff --git a/third_party/bazel/rules_haskell/tests/unit-tests/tests.bzl b/third_party/bazel/rules_haskell/tests/unit-tests/tests.bzl
deleted file mode 100644
index 58a3f400ad..0000000000
--- a/third_party/bazel/rules_haskell/tests/unit-tests/tests.bzl
+++ /dev/null
@@ -1,83 +0,0 @@
-load(
-    "@bazel_skylib//lib:unittest.bzl",
-    "asserts",
-    unit = "unittest",
-)
-load("//haskell:private/actions/link.bzl", "create_rpath_entry", "parent_dir_path")
-load("//haskell:private/list.bzl", "list")
-
-def parent_dir_path_test_impl(ctx):
-    env = unit.begin(ctx)
-    asserts.equals(
-        env,
-        expected = ctx.attr.output,
-        actual = parent_dir_path(ctx.attr.filename),
-    )
-    unit.end(env)
-
-parent_dir_path_test = unit.make(
-    parent_dir_path_test_impl,
-    attrs = {
-        "filename": attr.string(),
-        "output": attr.string_list(),
-    },
-)
-
-def create_rpath_entry_test_impl(ctx):
-    env = unit.begin(ctx)
-    asserts.equals(
-        env,
-        expected = ctx.attr.output,
-        actual = create_rpath_entry(
-            struct(
-                short_path = ctx.attr.binary_short_path,
-            ),
-            struct(
-                short_path = ctx.attr.dependency_short_path,
-            ),
-            keep_filename = ctx.attr.keep_filename,
-            prefix = ctx.attr.prefix,
-        ),
-    )
-    unit.end(env)
-
-create_rpath_entry_test = unit.make(
-    create_rpath_entry_test_impl,
-    attrs = {
-        "binary_short_path": attr.string(),
-        "dependency_short_path": attr.string(),
-        "keep_filename": attr.bool(default = False, mandatory = False),
-        "prefix": attr.string(default = "", mandatory = False),
-        "output": attr.string(),
-    },
-)
-
-def compare_x(el):
-    return el.x
-
-def dedup_on_test_impl(ctx):
-    env = unit.begin(ctx)
-    asserts.equals(
-        env,
-        expected = [],
-        actual = list.dedup_on(compare_x, []),
-    )
-    asserts.equals(
-        env,
-        expected = [struct(x = 3)],
-        actual = list.dedup_on(
-            compare_x,
-            [struct(x = 3), struct(x = 3), struct(x = 3)],
-        ),
-    )
-    asserts.equals(
-        env,
-        expected = [struct(x = 3), struct(x = 4), struct(x = 5)],
-        actual = list.dedup_on(
-            compare_x,
-            [struct(x = 3), struct(x = 4), struct(x = 3), struct(x = 5), struct(x = 3)],
-        ),
-    )
-    unit.end(env)
-
-dedup_on_test = unit.make(dedup_on_test_impl)