diff options
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.bzl | 83 |
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 58a3f400adbe..000000000000 --- 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) |