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)
