diff options
Diffstat (limited to 'third_party/bazel/rules_haskell/tests')
236 files changed, 0 insertions, 4522 deletions
diff --git a/third_party/bazel/rules_haskell/tests/BUILD.bazel b/third_party/bazel/rules_haskell/tests/BUILD.bazel deleted file mode 100644 index 276db55463..0000000000 --- a/third_party/bazel/rules_haskell/tests/BUILD.bazel +++ /dev/null @@ -1,322 +0,0 @@ -load(":inline_tests.bzl", "sh_inline_test") -load("@bazel_tools//tools/build_rules:test_rules.bzl", "rule_test") -load("//tests:rule_test_exe.bzl", "rule_test_exe") -load( - "@io_tweag_rules_haskell//haskell:c2hs.bzl", - "c2hs_toolchain", -) -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_binary", - "haskell_doctest_toolchain", - "haskell_proto_toolchain", - "haskell_test", - "haskell_toolchain", -) -load( - "//:constants.bzl", - "test_ghc_version", -) - -package(default_testonly = 1) - -haskell_doctest_toolchain( - name = "doctest-toolchain", - doctest = "@hackage-doctest//:bin", - tags = ["requires_doctest"], -) - -# This toolchain is morally testonly. However, that would break our -# tests of haskell_library_rules: aspects of non-testonly -# proto_library rules (from com_google_protobuf) can't themselves be -# testonly. - -haskell_proto_toolchain( - name = "protobuf-toolchain", - testonly = 0, - plugin = "@hackage-proto-lens-protoc//:bin/proto-lens-protoc", - protoc = "@com_google_protobuf//:protoc", - tags = ["requires_hackage"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - "//tests/hackage:containers", - "//tests/hackage:deepseq", - "//tests/hackage:mtl", - "//tests/hackage:text", - "@hackage//:data-default-class", - "@hackage//:lens-family", - "@hackage//:lens-family-core", - "@hackage//:lens-labels", - "@hackage//:proto-lens", - ], -) - -c2hs_toolchain( - name = "c2hs-toolchain", - c2hs = "@hackage-c2hs//:bin", - tags = ["requires_c2hs"], -) - -rule_test_exe( - name = "test-binary-simple", - size = "small", - generates = ["binary-simple"], - rule = "//tests/binary-simple", -) - -rule_test_exe( - name = "test-binary-custom-main", - size = "small", - generates = ["binary-custom-main"], - rule = "//tests/binary-custom-main", -) - -rule_test( - name = "test-binary-with-lib", - size = "small", - generates = ["binary-with-lib"], - rule = "//tests/binary-with-lib", -) - -rule_test( - name = "test-binary-with-prebuilt", - size = "small", - generates = ["binary-with-prebuilt"], - rule = "//tests/binary-with-prebuilt", - tags = ["requires_hackage"], -) - -rule_test( - name = "test-binary-with-main", - size = "small", - generates = ["binary-with-main"], - rule = "//tests/binary-with-main", -) - -rule_test( - name = "test-binary-with-sysdeps", - size = "small", - generates = ["binary-with-sysdeps"], - rule = "//tests/binary-with-sysdeps", - tags = ["requires_zlib"], -) - -sh_test( - name = "test-binary-with-data", - size = "small", - srcs = ["//tests/binary-with-data"], - args = ["$(location //tests/binary-with-data:bin1)"], - data = ["//tests/binary-with-data:bin1"], - tags = ["requires_hackage"], -) - -rule_test( - name = "test-library-deps", - size = "small", - generates = select({ - "@bazel_tools//src/conditions:darwin": [ - "libHStestsZSlibrary-depsZSlibrary-deps-ghc{}.dylib".format(test_ghc_version), - "libHStestsZSlibrary-depsZSlibrary-deps.a", - ], - "@bazel_tools//src/conditions:windows": [ - "libHStestsZSlibrary-depsZSlibrary-deps-ghc{}.dll".format(test_ghc_version), - "libHStestsZSlibrary-depsZSlibrary-deps.a", - ], - "//conditions:default": [ - "libHStestsZSlibrary-depsZSlibrary-deps-ghc{}.so".format(test_ghc_version), - "libHStestsZSlibrary-depsZSlibrary-deps.a", - ], - }), - rule = "//tests/library-deps", -) - -rule_test( - name = "test-hsc", - size = "small", - generates = ["hsc"], - rule = "//tests/hsc", -) - -rule_test( - name = "test-haddock", - size = "small", - generates = [ - "haddock/index", - "haddock/testsZShaddockZShaddock-lib-a", - "haddock/testsZShaddockZShaddock-lib-b", - "haddock/testsZShaddockZShaddock-lib-deep", - ], - rule = "//tests/haddock", - tags = ["requires_hackage"], -) - -rule_test( - name = "test-haskell_lint-library", - size = "small", - generates = [ - "lint-log-lib-b", - ], - rule = "//tests/haskell_lint:lint-lib-b", -) - -rule_test( - name = "test-haskell_lint-binary", - size = "small", - generates = [ - "lint-log-bin", - ], - rule = "//tests/haskell_lint:lint-bin", -) - -rule_test( - name = "test-haskell_doctest", - size = "small", - generates = [ - "doctest-log-doctest-lib-lib-b", - ], - rule = "//tests/haskell_doctest:doctest-lib", - tags = ["requires_doctest"], -) - -rule_test( - name = "test-haskell_test", - size = "small", - generates = ["haskell_test"], - rule = "//tests/haskell_test:haskell_test", -) - -rule_test( - name = "test-java_classpath", - size = "small", - generates = ["java_classpath"], - rule = "//tests/java_classpath", -) - -rule_test( - name = "test-cc_haskell_import-cc-link", - size = "small", - generates = ["cc-bin"], - rule = "//tests/cc_haskell_import:cc-bin", - tags = ["requires_threaded_rts"], -) - -sh_test( - name = "test-cc_haskell_import_python", - size = "small", - srcs = ["scripts/exec.sh"], - args = ["tests/cc_haskell_import/python_add_one"], - data = [ - "//tests/cc_haskell_import:python_add_one", - "@bazel_tools//tools/bash/runfiles", - ], - tags = ["requires_threaded_rts"], -) - -sh_inline_test( - name = "test-haskell_binary-with-link-flags", - size = "small", - args = ["$(location //tests/binary-with-link-flags:binary-with-link-flags)"], - data = ["//tests/binary-with-link-flags"], - script = """\ -set -e - -# Fails if executable was linked without -threaded flag. -$1 +RTS -N -""", -) - -rule_test( - name = "test-lhs", - size = "small", - generates = ["lhs-bin"], - rule = "//tests/lhs:lhs-bin", -) - -rule_test( - name = "test-hs-boot", - size = "small", - generates = ["hs-boot"], - rule = "//tests/hs-boot:hs-boot", -) - -rule_test( - name = "test-textual-hdrs", - size = "small", - generates = ["textual-hdrs"], - rule = "//tests/textual-hdrs:textual-hdrs", -) - -rule_test( - name = "test-two-libs", - size = "small", - generates = ["two-libs"], - rule = "//tests/two-libs:two-libs", -) - -genrule( - name = "run-bin-with-lib", - outs = ["dummy"], - cmd = """sh -c ' - set -e - $(location //tests/binary-with-lib:binary-with-lib) - touch $(location dummy) -'""", - tools = ["//tests/binary-with-lib"], -) - -rule_test( - name = "test-run-bin-with-lib", - size = "small", - generates = ["dummy"], - rule = "//tests:run-bin-with-lib", -) - -genrule( - name = "run-bin-with-lib-dynamic", - outs = ["dyn-dummy"], - cmd = """sh -c ' - set -e - $(location //tests/binary-with-lib-dynamic:binary-with-lib-dynamic) - touch $(location dyn-dummy) -'""", - tools = ["//tests/binary-with-lib-dynamic"], -) - -rule_test( - name = "test-run-bin-with-lib-dynamic", - size = "small", - generates = ["dyn-dummy"], - rule = "//tests:run-bin-with-lib-dynamic", -) - -genrule( - name = "run-bin-with-c-lib", - outs = ["c-dummy"], - cmd = """sh -c ' - set -e - $(location //tests/c-compiles) - touch $(location c-dummy) -'""", - tools = ["//tests/c-compiles"], -) - -rule_test( - name = "test-run-bin-with-c-lib", - size = "small", - generates = ["c-dummy"], - rule = "//tests:run-bin-with-c-lib", -) - -# This is the test runner -haskell_binary( - name = "run-tests", - srcs = ["RunTests.hs"], - tags = ["requires_hackage"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:process", - "@hackage//:hspec", - "@hackage//:hspec-core", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/RunTests.hs b/third_party/bazel/rules_haskell/tests/RunTests.hs deleted file mode 100644 index b6218bbcef..0000000000 --- a/third_party/bazel/rules_haskell/tests/RunTests.hs +++ /dev/null @@ -1,155 +0,0 @@ -{-# OPTIONS -Wall #-} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE QuasiQuotes #-} - -import Data.Foldable (for_) -import Data.List (isInfixOf, sort) -import System.Exit (ExitCode(..)) - -import qualified System.Process as Process -import Test.Hspec.Core.Spec (SpecM) -import Test.Hspec (hspec, it, describe, runIO, shouldSatisfy, expectationFailure) - -main :: IO () -main = hspec $ do - it "bazel lint" $ do - assertSuccess (bazel ["run", "//:buildifier"]) - - it "bazel test" $ do - assertSuccess (bazel ["test", "//...", "--build_tests_only"]) - - it "haddock links" $ do - -- Test haddock links - -- All haddock tests are stored inside //tests/haddock - -- Temporaries files appears inside /doc-.... outputs and are ignored - - -- the copy / chmod is here to workaround the fact that - -- linkchecker is dropping privileges to "nobody" user if called - -- from root, which is the case on CI. - assertSuccess (safeShell - [ "bazel build --config=ci //tests/haddock/..." - , "pwd=$(pwd)" - , "cd $(mktemp -d)" - , "cp -r $pwd/bazel-ci-bin/tests/haddock ." - , "chmod -R o+r ." - , "linkchecker . --ignore-url=/doc-" - ]) - - it "bazel test prof" $ do - assertSuccess (bazel ["test", "-c", "dbg", "//...", "--build_tests_only"]) - - describe "repl" $ do - it "for libraries" $ do - assertSuccess (bazel ["run", "//tests/repl-targets:hs-lib@repl", "--", "-ignore-dot-ghci", "-e", "show (foo 10) ++ bar ++ baz ++ gen"]) - assertSuccess (bazel ["run", "//tests/repl-targets:hs-lib-bad@repl", "--", "-ignore-dot-ghci", "-e", "1 + 2"]) - - it "for binaries" $ do - assertSuccess (bazel ["run", "//tests/repl-targets:hs-bin@repl", "--", "-ignore-dot-ghci", "-e", ":main"]) - - assertSuccess (bazel ["run", "//tests/binary-indirect-cbits:binary-indirect-cbits@repl", "--", "-ignore-dot-ghci", "-e", ":main"]) - - -- Test `compiler_flags` from toolchain and rule for REPL - it "compiler flags" $ do - assertSuccess (bazel ["run", "//tests/repl-flags:compiler_flags@repl", "--", "-ignore-dot-ghci", "-e", ":main"]) - - -- Test `repl_ghci_args` from toolchain and rule for REPL - it "repl flags" $ do - assertSuccess (bazel ["run", "//tests/repl-flags:repl_flags@repl", "--", "-ignore-dot-ghci", "-e", "foo"]) - - describe "multi_repl" $ do - it "loads transitive library dependencies" $ do - let p' (stdout, _stderr) = lines stdout == ["tests/multi_repl/bc/src/BC/C.hs"] - outputSatisfy p' (bazel ["run", "//tests/multi_repl:c_only_repl", "--", "-ignore-dot-ghci", "-e", ":show targets"]) - it "loads transitive source dependencies" $ do - let p' (stdout, _stderr) = sort (lines stdout) == ["tests/multi_repl/a/src/A/A.hs","tests/multi_repl/bc/src/BC/B.hs","tests/multi_repl/bc/src/BC/C.hs"] - outputSatisfy p' (bazel ["run", "//tests/multi_repl:c_multi_repl", "--", "-ignore-dot-ghci", "-e", ":show targets"]) - - it "startup script" $ do - assertSuccess (safeShell ["./tests/run-start-script.sh"]) - - describe "failures" $ do - all_failure_tests <- bazelQuery "kind(rule, //tests/failures/...) intersect attr('tags', 'manual', //tests/failures/...)" - - for_ all_failure_tests $ \test -> do - it test $ do - assertFailure (bazel ["build", "test"]) - - -- Test that the repl still works if we shadow some Prelude functions - it "repl name shadowing" $ do - let p (stdout, stderr) = not $ any ("error" `isInfixOf`) [stdout, stderr] - outputSatisfy p (bazel ["run", "//tests/repl-name-conflicts:lib@repl", "--", "-ignore-dot-ghci", "-e", "stdin"]) - - it "bazel test examples" $ do - assertSuccess (bazel ["test", "@io_tweag_rules_haskell_examples//..."]) - - it "bazel test tutorial" $ do - assertSuccess (bazel ["test", "@io_tweag_rules_haskell_tutorial//..."]) - --- * Bazel commands - --- | Returns a bazel command line suitable for CI --- This should be called with the action as first item of the list. e.g 'bazel ["build", "//..."]'. -bazel :: [String] -> Process.CreateProcess --- Note: --config=ci is intercalated between the action and the list --- of arguments. It should appears after the action, but before any --- @--@ following argument. -bazel (command:args) = Process.proc "bazel" (command:"--config=ci":args) -bazel [] = Process.proc "bazel" [] - --- | Runs a bazel query and return the list of matching targets -bazelQuery :: String -> SpecM a [String] -bazelQuery q = lines <$> runIO (Process.readProcess "bazel" ["query", q] "") - --- * Action helpers - --- | Ensure that @(stdout, stderr)@ of the command satisfies a predicate -outputSatisfy - :: ((String, String) -> Bool) - -> Process.CreateProcess - -> IO () -outputSatisfy predicate cmd = do - (exitCode, stdout, stderr) <- Process.readCreateProcessWithExitCode cmd "" - - case exitCode of - ExitSuccess -> (stdout, stderr) `shouldSatisfy` predicate - ExitFailure _ -> expectationFailure (formatOutput exitCode stdout stderr) - --- | The command must success -assertSuccess :: Process.CreateProcess -> IO () -assertSuccess = outputSatisfy (const True) - --- | The command must fail -assertFailure :: Process.CreateProcess -> IO () -assertFailure cmd = do - (exitCode, stdout, stderr) <- Process.readCreateProcessWithExitCode cmd "" - - case exitCode of - ExitFailure _ -> pure () - ExitSuccess -> expectationFailure ("Unexpected success of a failure test with output:\n" ++ formatOutput exitCode stdout stderr) - --- | Execute in a sub shell the list of command --- This will fail if any of the command in the list fail -safeShell :: [String] -> Process.CreateProcess -safeShell l = Process.shell (unlines ("set -e":l)) - --- * Formatting helpers - -formatOutput :: ExitCode -> String -> String -> String -formatOutput exitcode stdout stderr = - let - header = replicate 20 '-' - headerLarge = replicate 20 '=' - - in unlines [ - headerLarge - , "Exit Code: " <> show exitcode - , headerLarge - , "Standard Output" - , header - , stdout - , headerLarge - , "Error Output" - , header - , stderr - , header] diff --git a/third_party/bazel/rules_haskell/tests/binary-custom-main/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-custom-main/BUILD.bazel deleted file mode 100644 index c749b85eaa..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-custom-main/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-custom-main", - srcs = ["Main.hs"], - expected_covered_expressions_percentage = 50, - tags = [ - "coverage-compatible", - ], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-custom-main/Main.hs b/third_party/bazel/rules_haskell/tests/binary-custom-main/Main.hs deleted file mode 100644 index c8dbf9fbdb..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-custom-main/Main.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Main (main) where - -main :: IO () -main = return () diff --git a/third_party/bazel/rules_haskell/tests/binary-dynamic/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-dynamic/BUILD.bazel deleted file mode 100644 index 765963f19f..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-dynamic/BUILD.bazel +++ /dev/null @@ -1,14 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-dynamic", - srcs = ["Main.hs"], - linkstatic = False, - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-dynamic/Main.hs b/third_party/bazel/rules_haskell/tests/binary-dynamic/Main.hs deleted file mode 100644 index 2048dbdecd..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-dynamic/Main.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Main where - -main = putStrLn "hello world" diff --git a/third_party/bazel/rules_haskell/tests/binary-exe-path/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-exe-path/BUILD.bazel deleted file mode 100644 index 0cb617a508..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-exe-path/BUILD.bazel +++ /dev/null @@ -1,13 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-exe-path", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-exe-path/Main.hs b/third_party/bazel/rules_haskell/tests/binary-exe-path/Main.hs deleted file mode 100644 index 6a02bb9fc8..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-exe-path/Main.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Main where - -import System.Environment - -main = getExecutablePath >>= putStrLn diff --git a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/BUILD.bazel deleted file mode 100644 index 6668f230e5..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/BUILD.bazel +++ /dev/null @@ -1,36 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_binary", - "haskell_library", -) - -haskell_binary( - name = "binary-indirect-cbits", - srcs = ["Main.hs"], - linkstatic = False, - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/library-with-cbits", - ], -) - -haskell_binary( - name = "binary-indirect-cbits-partially-static", - srcs = ["Main.hs"], - linkstatic = False, - deps = [ - "//tests/hackage:base", - "//tests/library-with-cbits:library-with-cbits-static", - ], -) - -haskell_binary( - name = "binary-indirect-cbits-fully-static", - srcs = ["Main.hs"], - linkstatic = True, - deps = [ - "//tests/hackage:base", - "//tests/library-with-cbits:library-with-cbits-static", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Main.hs b/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Main.hs deleted file mode 100644 index c9d7037e23..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Main.hs +++ /dev/null @@ -1,5 +0,0 @@ -import AddOne - -main :: IO () -main = do - putStrLn $ show $ addOne 2 diff --git a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Wrapper.hs b/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Wrapper.hs deleted file mode 100644 index 00b6be28f4..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Wrapper.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Wrapper - ( module AddOne - ) where - -import AddOne diff --git a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Wrapper2.hs b/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Wrapper2.hs deleted file mode 100644 index a39233a842..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-indirect-cbits/Wrapper2.hs +++ /dev/null @@ -1,9 +0,0 @@ -module Wrapper2 - ( module AddOne - , addOne2 - ) where - -import AddOne -import qualified Wrapper - -addOne2 = Wrapper.addOne diff --git a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/BUILD.bazel deleted file mode 100644 index 4e8e7cfa66..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/BUILD.bazel +++ /dev/null @@ -1,118 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) -load("//tests:inline_tests.bzl", "sh_inline_test") - -# test whether `linkstatic` works as expected -package(default_testonly = 1) - -cc_library( - name = "c-lib", - srcs = ["c-lib.c"], -) - -haskell_library( - name = "HsLib", - srcs = ["HsLib.hs"], - deps = [ - "//tests/hackage:base", - ], -) - -haskell_test( - name = "binary-static", - srcs = ["Main.hs"], - linkstatic = True, - deps = [ - ":HsLib", - ":c-lib", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "binary-dynamic", - srcs = ["Main.hs"], - linkstatic = False, - deps = [ - ":HsLib", - ":c-lib", - "//tests/hackage:base", - ], -) - -config_setting( - name = "debug_build", - values = { - "compilation_mode": "dbg", - }, -) - -# Ensure that linkstatic=True only links to static library targets. -sh_inline_test( - name = "test-binary-static-symbols", - size = "small", - args = [ - "$(rootpath :binary-static)", - ], - data = [ - ":binary-static", - ], - script = """ - set -eo pipefail - binary="$1" - # Symbols are prefixed with underscore on MacOS but not on Linux. - if nm -u "$binary" | grep -q "\<_\?value"; then - echo "C library dependency not linked statically: ${binary}" - exit 1 - fi - if nm -u "$binary" | grep -q HsLib_value_closure; then - echo "Haskell library dependency not linked statically ${binary}" - exit 1 - fi - """, -) - -# Ensure that linkstatic=False only links to dynamic library targets. -sh_inline_test( - name = "test-binary-dynamic-symbols", - size = "small", - args = [ - "$(rootpath :binary-dynamic)", - ] + select({ - ":debug_build": ["dbg"], - "//conditions:default": ["rls"], - }), - data = [ - ":binary-dynamic", - ], - script = """ - set -eo pipefail - binary="$1" - mode="$2" - if [[ $mode = dbg ]]; then - # Skip test in debug builds. Debug mode forces static linking. - exit 0 - fi - # Symbols are prefixed with underscore on MacOS but not on Linux. - if ! nm -u "$binary" | grep -q "\<_\?value"; then - echo "C library dependency not linked dynamically" - exit 1 - fi - if ! nm -u "$binary" | grep -q HsLib_value_closure; then - echo "Haskell library dependency not linked dynamically" - exit 1 - fi - """, -) - -test_suite( - name = "binary-linkstatic-flag", - tests = [ - ":test-binary-dynamic-symbols", - ":test-binary-static-symbols", - ], - visibility = ["//visibility:public"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/HsLib.hs b/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/HsLib.hs deleted file mode 100644 index 68271826d7..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/HsLib.hs +++ /dev/null @@ -1,4 +0,0 @@ -module HsLib (value) where - -value :: Int -value = 13 diff --git a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/Main.hs b/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/Main.hs deleted file mode 100644 index 7836c22202..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/Main.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} - -module Main (main) where - -import qualified HsLib - -foreign import ccall "value" value :: Int - -main = print $ HsLib.value + value diff --git a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/c-lib.c b/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/c-lib.c deleted file mode 100644 index 9a1e526017..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-linkstatic-flag/c-lib.c +++ /dev/null @@ -1 +0,0 @@ -int value() { return 29; } diff --git a/third_party/bazel/rules_haskell/tests/binary-simple/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-simple/BUILD.bazel deleted file mode 100644 index d44d395fb8..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-simple/BUILD.bazel +++ /dev/null @@ -1,15 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-simple", - srcs = ["Main.hs"], - expected_covered_expressions_percentage = 100, - tags = ["coverage-compatible"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-simple/Main.hs b/third_party/bazel/rules_haskell/tests/binary-simple/Main.hs deleted file mode 100644 index 2048dbdecd..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-simple/Main.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Main where - -main = putStrLn "hello world" diff --git a/third_party/bazel/rules_haskell/tests/binary-with-compiler-flags/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-compiler-flags/BUILD.bazel deleted file mode 100644 index 727d8447ab..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-compiler-flags/BUILD.bazel +++ /dev/null @@ -1,18 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-with-compiler-flags", - srcs = ["Main.hs"], - # Flags that require -threaded, which we should get from the toolchain's - # compiler_flags. Include spaces to validate proper quoting: - compiler_flags = [ - "-with-rtsopts=-N2 -qg -I0 -n2m -A128m", - "-XLambdaCase", - ], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-compiler-flags/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-compiler-flags/Main.hs deleted file mode 100644 index b95db17f76..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-compiler-flags/Main.hs +++ /dev/null @@ -1,13 +0,0 @@ --- Expects to pull -XStandaloneDeriving from the default compiler flags. -module Main (main) where - -data Foo = Foo -deriving instance Show Foo - --- Expects -XLambdaCase to be passed via the 'compiler_flags' rule attribute. -dummyId :: Foo -> Foo -dummyId = \case - Foo -> Foo - -main :: IO () -main = print $ dummyId Foo diff --git a/third_party/bazel/rules_haskell/tests/binary-with-data/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-data/BUILD.bazel deleted file mode 100644 index 200498f640..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-data/BUILD.bazel +++ /dev/null @@ -1,31 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -# XXX: on Windows those tests need `--experimental_enable_runfiles` to succeed -# XXX: see: https://github.com/tweag/rules_haskell/issues/647#issuecomment-459001362 - -haskell_test( - name = "bin1", - srcs = ["bin1.hs"], - # Regular file input: - data = ["bin1-input"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "binary-with-data", - srcs = ["bin2.hs"], - args = ["$(location :bin1)"], - data = [":bin1"], - tags = ["requires_hackage"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:process", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-data/bin1-input b/third_party/bazel/rules_haskell/tests/binary-with-data/bin1-input deleted file mode 100644 index 12f00e90b6..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-data/bin1-input +++ /dev/null @@ -1 +0,0 @@ -contents diff --git a/third_party/bazel/rules_haskell/tests/binary-with-data/bin1.hs b/third_party/bazel/rules_haskell/tests/binary-with-data/bin1.hs deleted file mode 100644 index 309f6ecd56..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-data/bin1.hs +++ /dev/null @@ -1,9 +0,0 @@ -module Main where - -import Control.Monad (unless) - -main :: IO () -main = do - contents <- readFile "tests/binary-with-data/bin1-input" - unless (contents == "contents\n") - $ error $ "Incorrect input; got " ++ show contents diff --git a/third_party/bazel/rules_haskell/tests/binary-with-data/bin2.hs b/third_party/bazel/rules_haskell/tests/binary-with-data/bin2.hs deleted file mode 100644 index 31d2404a6a..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-data/bin2.hs +++ /dev/null @@ -1,8 +0,0 @@ -module Main where - -import System.Process (callProcess) -import System.Environment (getArgs) - -main = do - [arg] <- getArgs - callProcess arg [] diff --git a/third_party/bazel/rules_haskell/tests/binary-with-import/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-import/BUILD.bazel deleted file mode 100644 index 3b920d37c4..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-import/BUILD.bazel +++ /dev/null @@ -1,26 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "lib", - srcs = ["src/Lib.hs"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:transformers", - ], -) - -haskell_test( - name = "binary-with-import", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = [ - ":lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-import/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-import/Main.hs deleted file mode 100644 index 1bded5e8e5..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-import/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main where - -import Lib (printValue) - -main :: IO () -main = printValue diff --git a/third_party/bazel/rules_haskell/tests/binary-with-import/src/Lib.hs b/third_party/bazel/rules_haskell/tests/binary-with-import/src/Lib.hs deleted file mode 100644 index d384e73e63..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-import/src/Lib.hs +++ /dev/null @@ -1,13 +0,0 @@ -module Lib (printValue) where - -import Control.Monad (void) -import Control.Monad.Trans.Class (lift) -import Control.Monad.Trans.Except (ExceptT, runExceptT) - -getValue :: Monad m => ExceptT e m Int -getValue = pure 42 - -printValue :: IO () -printValue = void $ runExceptT $ do - value <- getValue - lift $ print value diff --git a/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/BUILD.bazel deleted file mode 100644 index 195288882b..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/BUILD.bazel +++ /dev/null @@ -1,27 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "hs-lib", - srcs = ["HsLib.hs"], - tags = ["requires_zlib"], - deps = [ - "//tests/hackage:base", - "@zlib.dev//:zlib", - ], -) - -haskell_test( - name = "binary-with-indirect-sysdeps", - srcs = ["Main.hs"], - tags = ["requires_zlib"], - deps = [ - ":hs-lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/HsLib.hs b/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/HsLib.hs deleted file mode 100644 index 1077606e31..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/HsLib.hs +++ /dev/null @@ -1,8 +0,0 @@ -module HsLib where - -import Foreign.Ptr -import Foreign.C.Types - -foreign import ccall crc32 :: CLong -> Ptr () -> CInt -> IO () - -test = crc32 0 nullPtr 0 diff --git a/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/Main.hs deleted file mode 100644 index 9c92b34c8a..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-indirect-sysdeps/Main.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Main where - -import HsLib (test) - -main = test diff --git a/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/BUILD.bazel deleted file mode 100644 index 6be2db88b7..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/BUILD.bazel +++ /dev/null @@ -1,25 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "lib", - srcs = glob(["src/*.hs"]), - linkstatic = False, - src_strip_prefix = "src", -) - -haskell_test( - name = "binary-with-lib-dynamic", - srcs = ["Main.hs"], - linkstatic = False, - visibility = ["//visibility:public"], - deps = [ - ":lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/Main.hs deleted file mode 100644 index d88f7c93d6..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/Main.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Main where - -import Control.Monad (unless) -import Lib (value) - -main = unless (value == 42) - $ error $ "Incorrect lib value. Got " <> show value diff --git a/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/src/Lib.hs b/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/src/Lib.hs deleted file mode 100644 index 0521761f35..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-lib-dynamic/src/Lib.hs +++ /dev/null @@ -1,5 +0,0 @@ -{-# LANGUAGE NoImplicitPrelude #-} - -module Lib (value) where - -value = 42 diff --git a/third_party/bazel/rules_haskell/tests/binary-with-lib/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-lib/BUILD.bazel deleted file mode 100644 index 196d551305..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-lib/BUILD.bazel +++ /dev/null @@ -1,27 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "lib", - srcs = glob(["src/*.hs"]), - src_strip_prefix = "src", - deps = [ - "//tests/hackage:template-haskell", - ], -) - -haskell_test( - name = "binary-with-lib", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = [ - ":lib", - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-lib/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-lib/Main.hs deleted file mode 100644 index 19ad3dd58e..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-lib/Main.hs +++ /dev/null @@ -1,11 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} -module Main where - -import Control.Monad (unless) -import Lib (value) -import Language.Haskell.TH - -val = $(value) - -main = unless (val == 42) - $ error $ "Incorrect lib value. Got " <> show val diff --git a/third_party/bazel/rules_haskell/tests/binary-with-lib/src/Lib.hs b/third_party/bazel/rules_haskell/tests/binary-with-lib/src/Lib.hs deleted file mode 100644 index e78d2ef77f..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-lib/src/Lib.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE TemplateHaskell #-} - -module Lib (value) where - -import Language.Haskell.TH - -value = [|42|] diff --git a/third_party/bazel/rules_haskell/tests/binary-with-link-flags/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-link-flags/BUILD.bazel deleted file mode 100644 index cf2aba515b..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-link-flags/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package( - default_testonly = 1, - default_visibility = ["//visibility:public"], -) - -haskell_test( - name = "binary-with-link-flags", - srcs = ["Main.hs"], - compiler_flags = ["-threaded"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-link-flags/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-link-flags/Main.hs deleted file mode 100644 index de106fe48f..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-link-flags/Main.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Main where - -main = return () diff --git a/third_party/bazel/rules_haskell/tests/binary-with-main/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-main/BUILD.bazel deleted file mode 100644 index e1243260c2..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-main/BUILD.bazel +++ /dev/null @@ -1,14 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-with-main", - srcs = ["MainIsHere.hs"], - main_function = "MainIsHere.this", - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-main/MainIsHere.hs b/third_party/bazel/rules_haskell/tests/binary-with-main/MainIsHere.hs deleted file mode 100644 index 5e8d38ba70..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-main/MainIsHere.hs +++ /dev/null @@ -1,4 +0,0 @@ -module MainIsHere (this) where - -this :: IO () -this = return () diff --git a/third_party/bazel/rules_haskell/tests/binary-with-plugin/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-plugin/BUILD.bazel deleted file mode 100644 index f3a8e3f4d6..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-plugin/BUILD.bazel +++ /dev/null @@ -1,53 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "ghc_plugin", - "haskell_library", - "haskell_test", - "haskell_toolchain_library", -) - -package(default_testonly = 1) - -config_setting( - name = "debug_build", - values = { - "compilation_mode": "dbg", - }, -) - -haskell_toolchain_library(name = "base") - -haskell_toolchain_library(name = "ghc") - -haskell_toolchain_library(name = "process") - -haskell_library( - name = "plugin-lib", - srcs = ["Plugin.hs"], - deps = [ - ":base", - ":ghc", - ":process", - ], -) - -ghc_plugin( - name = "plugin", - args = ["$(location //tests/binary-simple)"], - module = "Plugin", - tools = ["//tests/binary-simple"], - deps = [":plugin-lib"], -) - -haskell_test( - name = "binary-with-plugin", - srcs = ["Main.hs"], - plugins = select({ - # XXX If profiling is enabled, ignore the plugin because of - # https://gitlab.haskell.org/ghc/ghc/issues/14335. - ":debug_build": [], - "//conditions:default": [":plugin"], - }), - visibility = ["//visibility:public"], - deps = [":base"], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-plugin/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-plugin/Main.hs deleted file mode 100644 index 2048dbdecd..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-plugin/Main.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Main where - -main = putStrLn "hello world" diff --git a/third_party/bazel/rules_haskell/tests/binary-with-plugin/Plugin.hs b/third_party/bazel/rules_haskell/tests/binary-with-plugin/Plugin.hs deleted file mode 100644 index 3827bb7992..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-plugin/Plugin.hs +++ /dev/null @@ -1,15 +0,0 @@ -module Plugin (plugin) where - -import Control.Monad (when) -import GhcPlugins -import System.Process (readProcess) - -plugin :: Plugin -plugin = defaultPlugin { installCoreToDos = install } - -install :: [CommandLineOption] -> [CoreToDo] -> CoreM [CoreToDo] -install [arg] todo = do - when ('$' `elem` arg) $ - fail "Make variable not expanded." - _ <- liftIO $ readProcess arg [] "" - return todo diff --git a/third_party/bazel/rules_haskell/tests/binary-with-prebuilt/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-prebuilt/BUILD.bazel deleted file mode 100644 index 99a22ae999..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-prebuilt/BUILD.bazel +++ /dev/null @@ -1,19 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-with-prebuilt", - srcs = ["Main.hs"], - tags = ["requires_hackage"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:template-haskell", - "@hackage//:streaming", - "@hackage//:void", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-prebuilt/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-prebuilt/Main.hs deleted file mode 100644 index aa3b1b40ee..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-prebuilt/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main where - -import Data.List () -import Language.Haskell.TH () - -main = return () diff --git a/third_party/bazel/rules_haskell/tests/binary-with-sysdeps/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-sysdeps/BUILD.bazel deleted file mode 100644 index 769ecf31a3..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-sysdeps/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "binary-with-sysdeps", - srcs = ["Main.hs"], - tags = ["requires_zlib"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "@zlib", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-sysdeps/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-sysdeps/Main.hs deleted file mode 100644 index bf8da50416..0000000000 --- a/third_party/bazel/rules_haskell/tests/binary-with-sysdeps/Main.hs +++ /dev/null @@ -1,8 +0,0 @@ -module Main where - -import Foreign.Ptr -import Foreign.C.Types - -foreign import ccall crc32 :: CLong -> Ptr () -> CInt -> IO () - -main = crc32 0 nullPtr 0 diff --git a/third_party/bazel/rules_haskell/tests/c-compiles-still/BUILD.bazel b/third_party/bazel/rules_haskell/tests/c-compiles-still/BUILD.bazel deleted file mode 100644 index 314b895b6b..0000000000 --- a/third_party/bazel/rules_haskell/tests/c-compiles-still/BUILD.bazel +++ /dev/null @@ -1,15 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "foo", - srcs = ["Foo.hs"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/c-compiles-still/Foo.hs b/third_party/bazel/rules_haskell/tests/c-compiles-still/Foo.hs deleted file mode 100644 index f325b2efcf..0000000000 --- a/third_party/bazel/rules_haskell/tests/c-compiles-still/Foo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Foo (foo) where - -foo :: Int -foo = 5 diff --git a/third_party/bazel/rules_haskell/tests/c-compiles/BUILD.bazel b/third_party/bazel/rules_haskell/tests/c-compiles/BUILD.bazel deleted file mode 100644 index b5256bfb18..0000000000 --- a/third_party/bazel/rules_haskell/tests/c-compiles/BUILD.bazel +++ /dev/null @@ -1,26 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "hs-lib", - srcs = ["Lib.hs"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "c-compiles", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = [ - ":hs-lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/c-compiles/Lib.hs b/third_party/bazel/rules_haskell/tests/c-compiles/Lib.hs deleted file mode 100644 index 6ebec6b460..0000000000 --- a/third_party/bazel/rules_haskell/tests/c-compiles/Lib.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} -module Lib (ten) where - -import Foreign.C.Types (CInt(..)) - -foreign import ccall "c_add_one" - c_add_one :: CInt -> CInt - -ten :: Int -ten = fromIntegral (c_add_one 9) diff --git a/third_party/bazel/rules_haskell/tests/c-compiles/Main.hs b/third_party/bazel/rules_haskell/tests/c-compiles/Main.hs deleted file mode 100644 index 5fc7b957c8..0000000000 --- a/third_party/bazel/rules_haskell/tests/c-compiles/Main.hs +++ /dev/null @@ -1,8 +0,0 @@ -module Main (main) where - -import Control.Monad (unless) -import Lib (ten) - -main :: IO () -main = unless (ten == 10) - $ error $ "Incorrect lib value. Got " <> show ten diff --git a/third_party/bazel/rules_haskell/tests/c-compiles/c-compiles.c b/third_party/bazel/rules_haskell/tests/c-compiles/c-compiles.c deleted file mode 100644 index 2d3a4d742c..0000000000 --- a/third_party/bazel/rules_haskell/tests/c-compiles/c-compiles.c +++ /dev/null @@ -1 +0,0 @@ -int add_five(int x) { return x + 5; } diff --git a/third_party/bazel/rules_haskell/tests/c2hs/BUILD.bazel b/third_party/bazel/rules_haskell/tests/c2hs/BUILD.bazel deleted file mode 100644 index a343c55f57..0000000000 --- a/third_party/bazel/rules_haskell/tests/c2hs/BUILD.bazel +++ /dev/null @@ -1,36 +0,0 @@ -load("@io_tweag_rules_haskell//haskell:c2hs.bzl", "c2hs_library") -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -c2hs_library( - name = "foo", - srcs = ["src/Foo/Foo.chs"], - src_strip_prefix = "src", - tags = [ - "requires_c2hs", - "requires_zlib", - ], - deps = ["@zlib.dev//:zlib"], -) - -c2hs_library( - name = "bar", - srcs = ["Bar.chs"], - tags = ["requires_c2hs"], - deps = [":foo"], -) - -haskell_library( - name = "c2hs", - srcs = [ - ":bar", - ":foo", - "@c2hs_repo//:baz", - ], - tags = ["requires_c2hs"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/c2hs/Bar.chs b/third_party/bazel/rules_haskell/tests/c2hs/Bar.chs deleted file mode 100644 index 1de32c1ccb..0000000000 --- a/third_party/bazel/rules_haskell/tests/c2hs/Bar.chs +++ /dev/null @@ -1,6 +0,0 @@ -module Bar (bar) where - -{#import Foo.Foo#} - -bar :: Int -bar = 6 diff --git a/third_party/bazel/rules_haskell/tests/c2hs/repo/BUILD.bazel b/third_party/bazel/rules_haskell/tests/c2hs/repo/BUILD.bazel deleted file mode 100644 index 4f1d15c09a..0000000000 --- a/third_party/bazel/rules_haskell/tests/c2hs/repo/BUILD.bazel +++ /dev/null @@ -1,10 +0,0 @@ -load("@io_tweag_rules_haskell//haskell:c2hs.bzl", "c2hs_library") - -package(default_testonly = 1) - -c2hs_library( - name = "baz", - srcs = ["Baz.chs"], - visibility = ["//visibility:public"], - deps = ["@zlib.dev//:zlib"], -) diff --git a/third_party/bazel/rules_haskell/tests/c2hs/repo/Baz.chs b/third_party/bazel/rules_haskell/tests/c2hs/repo/Baz.chs deleted file mode 100644 index b6d74dfc4e..0000000000 --- a/third_party/bazel/rules_haskell/tests/c2hs/repo/Baz.chs +++ /dev/null @@ -1,6 +0,0 @@ -module Baz (baz) where - -#include <zlib.h> - -baz :: Int -baz = {# sizeof gz_header_s #} diff --git a/third_party/bazel/rules_haskell/tests/c2hs/repo/WORKSPACE b/third_party/bazel/rules_haskell/tests/c2hs/repo/WORKSPACE deleted file mode 100644 index e53539f0b4..0000000000 --- a/third_party/bazel/rules_haskell/tests/c2hs/repo/WORKSPACE +++ /dev/null @@ -1 +0,0 @@ -workspace(name = "c2hs_repo") diff --git a/third_party/bazel/rules_haskell/tests/c2hs/src/Foo/Foo.chs b/third_party/bazel/rules_haskell/tests/c2hs/src/Foo/Foo.chs deleted file mode 100644 index 244f3b2b29..0000000000 --- a/third_party/bazel/rules_haskell/tests/c2hs/src/Foo/Foo.chs +++ /dev/null @@ -1,6 +0,0 @@ -module Foo.Foo (foo) where - -#include <zlib.h> - -foo :: Int -foo = {# sizeof gz_header_s #} diff --git a/third_party/bazel/rules_haskell/tests/cc_haskell_import/BUILD.bazel b/third_party/bazel/rules_haskell/tests/cc_haskell_import/BUILD.bazel deleted file mode 100644 index c896314500..0000000000 --- a/third_party/bazel/rules_haskell/tests/cc_haskell_import/BUILD.bazel +++ /dev/null @@ -1,70 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "hs-lib-a", - srcs = ["LibA.hs"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:base", - ], -) - -haskell_library( - name = "hs-lib-b", - srcs = ["LibB.hs"], - deps = [ - ":hs-lib-a", - "//tests/hackage:base", - ], -) - -cc_binary( - name = "cc-bin", - srcs = [ - "main.c", - ], - # TODO support linking with static haskell libraries. - linkstatic = False, - tags = ["requires_threaded_rts"], - visibility = ["//tests:__subpackages__"], - deps = [ - ":hs-lib-b", - "@ghc//:threaded-rts", - ], -) - -# We go one step further and use the Haskell library from above -# to build a static .so which is then loaded with a Python script -# and calls the Haskell function constructed from GHC C FFI. - -# shared library which python will dlopen -cc_binary( - name = "hs-lib-b-wrapped.so", - linkshared = 1, - linkstatic = 0, - tags = ["requires_threaded_rts"], - visibility = ["//tests:__subpackages__"], - deps = [ - ":hs-lib-b", - "@ghc//:threaded-rts", - ], -) - -# just dlopens hb-lib-b-wrapped.so and prints it -py_binary( - name = "python_add_one", - srcs = ["python_add_one.py"], - data = [ - ":hs-lib-b-wrapped.so", - ], - default_python_version = "PY3", - srcs_version = "PY3ONLY", - tags = ["requires_threaded_rts"], - visibility = ["//tests:__subpackages__"], - deps = ["@bazel_tools//tools/python/runfiles"], -) diff --git a/third_party/bazel/rules_haskell/tests/cc_haskell_import/LibA.hs b/third_party/bazel/rules_haskell/tests/cc_haskell_import/LibA.hs deleted file mode 100644 index db8e442e5a..0000000000 --- a/third_party/bazel/rules_haskell/tests/cc_haskell_import/LibA.hs +++ /dev/null @@ -1,8 +0,0 @@ -module LibA (add_one) where - -import Data.Int (Int32) - -foreign import ccall "c_add_one" c_add_one' :: Int32 -> Int32 - -add_one :: Int32 -> Int32 -add_one x = c_add_one' x diff --git a/third_party/bazel/rules_haskell/tests/cc_haskell_import/LibB.hs b/third_party/bazel/rules_haskell/tests/cc_haskell_import/LibB.hs deleted file mode 100644 index 5904463b51..0000000000 --- a/third_party/bazel/rules_haskell/tests/cc_haskell_import/LibB.hs +++ /dev/null @@ -1,9 +0,0 @@ -module LibB (add_one_hs) where - -import LibA (add_one) -import Data.Int (Int32) - -foreign export ccall add_one_hs :: Int32 -> IO Int32 - -add_one_hs :: Int32 -> IO Int32 -add_one_hs x = pure $! add_one x + 0 diff --git a/third_party/bazel/rules_haskell/tests/cc_haskell_import/cbits.c b/third_party/bazel/rules_haskell/tests/cc_haskell_import/cbits.c deleted file mode 100644 index 587d26ba28..0000000000 --- a/third_party/bazel/rules_haskell/tests/cc_haskell_import/cbits.c +++ /dev/null @@ -1,5 +0,0 @@ -#include <stdint.h> - -int32_t c_add_one(int32_t x) { - return 1 + x; -} diff --git a/third_party/bazel/rules_haskell/tests/cc_haskell_import/main.c b/third_party/bazel/rules_haskell/tests/cc_haskell_import/main.c deleted file mode 100644 index 661174e5df..0000000000 --- a/third_party/bazel/rules_haskell/tests/cc_haskell_import/main.c +++ /dev/null @@ -1,11 +0,0 @@ -#include <stdio.h> -#include "HsFFI.h" - -extern HsInt32 add_one_hs(HsInt32 a0); - -int main(int argc, char *argv[]) { - hs_init(&argc, &argv); - printf("Adding one to 5 through Haskell is %d\n", add_one_hs(5)); - hs_exit(); - return 0; -} diff --git a/third_party/bazel/rules_haskell/tests/cc_haskell_import/python_add_one.py b/third_party/bazel/rules_haskell/tests/cc_haskell_import/python_add_one.py deleted file mode 100644 index b400102d1c..0000000000 --- a/third_party/bazel/rules_haskell/tests/cc_haskell_import/python_add_one.py +++ /dev/null @@ -1,18 +0,0 @@ -import os -import ctypes -from bazel_tools.tools.python.runfiles import runfiles -import subprocess - -r = runfiles.Create() - -path = r.Rlocation('io_tweag_rules_haskell/tests/cc_haskell_import/hs-lib-b-wrapped.so') - -foreignlib = ctypes.cdll.LoadLibrary(path) - -# ATTN: If you remove this print *statement* hs_init will segfault! -# If you use the python3 print *function*, it will segfault as well! -# TODO: wtf? -print foreignlib - -foreignlib.hs_init() -assert(str(foreignlib.add_one_hs(1)) == "2") diff --git a/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/BUILD.bazel b/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/BUILD.bazel deleted file mode 100644 index af8848a6ee..0000000000 --- a/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/BUILD.bazel +++ /dev/null @@ -1,36 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -# empty library with package name "bytestring" -haskell_library( - name = "bytestring", - srcs = ["src/BS.hs"], - deps = ["//tests/hackage:base"], -) - -# This depends on two packages "bytestring" -# There should be no CPP macro conflict -haskell_test( - name = "macro_conflict", - srcs = ["Main.hs"], - compiler_flags = [ - "-XCPP", - "-Werror", - ] + select({ - # clang on darwin fails because of unused command line argument, it fails because of -Werror - "@bazel_tools//src/conditions:darwin": [ - "-optP-Wno-unused-command-line-argument", - ], - "//conditions:default": [], - }), - deps = [ - ":bytestring", - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/Main.hs b/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/Main.hs deleted file mode 100644 index f5a27e6a7e..0000000000 --- a/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/Main.hs +++ /dev/null @@ -1,4 +0,0 @@ -import qualified Data.ByteString -import BS - -main = putStrLn "hello" diff --git a/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/src/BS.hs b/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/src/BS.hs deleted file mode 100644 index 437b7e5f72..0000000000 --- a/third_party/bazel/rules_haskell/tests/cpp_macro_conflict/src/BS.hs +++ /dev/null @@ -1 +0,0 @@ -module BS where diff --git a/third_party/bazel/rules_haskell/tests/data/BUILD.bazel b/third_party/bazel/rules_haskell/tests/data/BUILD.bazel deleted file mode 100644 index 7083de23af..0000000000 --- a/third_party/bazel/rules_haskell/tests/data/BUILD.bazel +++ /dev/null @@ -1,15 +0,0 @@ -# Generic data files and targets that are used by multiple tests - -cc_library( - name = "ourclibrary", - srcs = [":ourclibrary.c"], - linkstatic = False, - visibility = ["//visibility:public"], -) - -cc_library( - name = "ourclibrary-static", - srcs = [":ourclibrary.c"], - linkstatic = True, - visibility = ["//visibility:public"], -) diff --git a/third_party/bazel/rules_haskell/tests/data/ourclibrary.c b/third_party/bazel/rules_haskell/tests/data/ourclibrary.c deleted file mode 100644 index 587d26ba28..0000000000 --- a/third_party/bazel/rules_haskell/tests/data/ourclibrary.c +++ /dev/null @@ -1,5 +0,0 @@ -#include <stdint.h> - -int32_t c_add_one(int32_t x) { - return 1 + x; -} diff --git a/third_party/bazel/rules_haskell/tests/encoding/BUILD.bazel b/third_party/bazel/rules_haskell/tests/encoding/BUILD.bazel deleted file mode 100644 index 588d13f6d0..0000000000 --- a/third_party/bazel/rules_haskell/tests/encoding/BUILD.bazel +++ /dev/null @@ -1,21 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "encoding", - srcs = [ - "Main.hs", - "TH.hs", - ], - extra_srcs = [ - "unicode.txt", - ], - deps = [ - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/encoding/Main.hs b/third_party/bazel/rules_haskell/tests/encoding/Main.hs deleted file mode 100644 index beb5f2a294..0000000000 --- a/third_party/bazel/rules_haskell/tests/encoding/Main.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} - -module Main (main) where - -import TH - -main :: IO () -main = putStrLn $foo diff --git a/third_party/bazel/rules_haskell/tests/encoding/TH.hs b/third_party/bazel/rules_haskell/tests/encoding/TH.hs deleted file mode 100644 index 8cb52b3f11..0000000000 --- a/third_party/bazel/rules_haskell/tests/encoding/TH.hs +++ /dev/null @@ -1,7 +0,0 @@ -module TH (foo) where - -import Language.Haskell.TH -import Language.Haskell.TH.Syntax (lift) - -foo :: Q Exp -foo = runIO (readFile "tests/encoding/unicode.txt") >>= lift diff --git a/third_party/bazel/rules_haskell/tests/encoding/unicode.txt b/third_party/bazel/rules_haskell/tests/encoding/unicode.txt deleted file mode 100644 index 74e5f2638d..0000000000 --- a/third_party/bazel/rules_haskell/tests/encoding/unicode.txt +++ /dev/null @@ -1 +0,0 @@ -Некоторый текст на русском. diff --git a/third_party/bazel/rules_haskell/tests/external-haskell-repository/BUILD.bazel b/third_party/bazel/rules_haskell/tests/external-haskell-repository/BUILD.bazel deleted file mode 100644 index 30ff357040..0000000000 --- a/third_party/bazel/rules_haskell/tests/external-haskell-repository/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -# Tests correct linking of haskell packages that were created -# in a different bazel repository, e.g. with hazel. - -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -haskell_test( - name = "external-haskell-repository", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "@haskell_package_repository_dummy//:library-with-cbits", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/external-haskell-repository/Main.hs b/third_party/bazel/rules_haskell/tests/external-haskell-repository/Main.hs deleted file mode 100644 index 97fcc15888..0000000000 --- a/third_party/bazel/rules_haskell/tests/external-haskell-repository/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main where - -import AddOne -import Control.Exception (assert) - -main = assert (addOne 41 == 42) $ return () diff --git a/third_party/bazel/rules_haskell/tests/external-haskell-repository/workspace_dummy.bzl b/third_party/bazel/rules_haskell/tests/external-haskell-repository/workspace_dummy.bzl deleted file mode 100644 index 1ccc0aadf1..0000000000 --- a/third_party/bazel/rules_haskell/tests/external-haskell-repository/workspace_dummy.bzl +++ /dev/null @@ -1,64 +0,0 @@ -# This file constructs a dummy workspace to test -# haskell binaries that are included from outside repositories -# (because linking external repositories works differently). - -# Repo-ception, in the sense that we build a WORKSPACE -# that references the workspaces already set up in the -# `rules_haskell` WORKSPACE. -def _haskell_package_repository_dummy_impl(rep_ctx): - rep_ctx.file( - "WORKSPACE", - executable = False, - content = """ -repository(name={name}) - -register_toolchains( - "@io_tweag_rules_haskell//tests/:ghc" -) -""".format(name = rep_ctx.name), - ) - - # this mirrors tests/library-with-cbits - - rep_ctx.file( - "BUILD", - executable = False, - content = """ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_toolchain", - "haskell_library", -) -load( - "@io_tweag_rules_haskell//:constants.bzl", - "test_ghc_version", -) - -haskell_library( - name = "library-with-cbits", - srcs = ["AddOne.hs"], - deps = [ - "@io_tweag_rules_haskell//tests/data:ourclibrary", - "@io_tweag_rules_haskell//tests/hackage:base", - ], - - linkstatic = False, - visibility = ["//visibility:public"], -) -""", - ) - - rep_ctx.file( - "AddOne.hs", - executable = False, - content = """ -module AddOne where - -foreign import ccall "c_add_one" addOne :: Int -> Int -""", - ) - -haskell_package_repository_dummy = repository_rule( - _haskell_package_repository_dummy_impl, - local = True, -) diff --git a/third_party/bazel/rules_haskell/tests/extra-source-files/BUILD.bazel b/third_party/bazel/rules_haskell/tests/extra-source-files/BUILD.bazel deleted file mode 100644 index 9552d7c9e9..0000000000 --- a/third_party/bazel/rules_haskell/tests/extra-source-files/BUILD.bazel +++ /dev/null @@ -1,44 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "extra-source-files", - srcs = [ - "Foo.hs", - "FooTH.hs", - ], - # Test that the linker can also see the extra_srcs. - compiler_flags = ["-optl-Wl,@tests/extra-source-files/ld-options.txt"], - extra_srcs = [ - "file.txt", - "ld-options.txt", - ], - deps = [ - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) - -haskell_test( - name = "extra-source-files-bin", - srcs = [ - "Foo.hs", - "FooTH.hs", - "Main.hs", - ], - # Test that the linker can also see the extra_srcs. - compiler_flags = ["-optl-Wl,@tests/extra-source-files/ld-options.txt"], - extra_srcs = [ - "file.txt", - "ld-options.txt", - ], - deps = [ - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/extra-source-files/Foo.hs b/third_party/bazel/rules_haskell/tests/extra-source-files/Foo.hs deleted file mode 100644 index b3f0c04492..0000000000 --- a/third_party/bazel/rules_haskell/tests/extra-source-files/Foo.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} - -module Foo (foo) where - -import FooTH (embedFile) - -foo :: String -foo = $(embedFile "tests/extra-source-files/file.txt") ++ "!" diff --git a/third_party/bazel/rules_haskell/tests/extra-source-files/FooTH.hs b/third_party/bazel/rules_haskell/tests/extra-source-files/FooTH.hs deleted file mode 100644 index 24d6631083..0000000000 --- a/third_party/bazel/rules_haskell/tests/extra-source-files/FooTH.hs +++ /dev/null @@ -1,12 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} - -module FooTH (embedFile) where - -import Language.Haskell.TH -import Language.Haskell.TH.Syntax - -embedFile :: FilePath -> Q Exp -embedFile path = do - str <- runIO (readFile path) - addDependentFile path - [| str |] diff --git a/third_party/bazel/rules_haskell/tests/extra-source-files/Main.hs b/third_party/bazel/rules_haskell/tests/extra-source-files/Main.hs deleted file mode 100644 index 13e4bd765b..0000000000 --- a/third_party/bazel/rules_haskell/tests/extra-source-files/Main.hs +++ /dev/null @@ -1,4 +0,0 @@ -import Foo (foo) - -main :: IO () -main = putStrLn foo diff --git a/third_party/bazel/rules_haskell/tests/extra-source-files/file.txt b/third_party/bazel/rules_haskell/tests/extra-source-files/file.txt deleted file mode 100644 index 5bc133a4d0..0000000000 --- a/third_party/bazel/rules_haskell/tests/extra-source-files/file.txt +++ /dev/null @@ -1 +0,0 @@ -And here we go diff --git a/third_party/bazel/rules_haskell/tests/extra-source-files/ld-options.txt b/third_party/bazel/rules_haskell/tests/extra-source-files/ld-options.txt deleted file mode 100644 index e69de29bb2..0000000000 --- a/third_party/bazel/rules_haskell/tests/extra-source-files/ld-options.txt +++ /dev/null diff --git a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/BUILD.bazel b/third_party/bazel/rules_haskell/tests/failures/transitive-deps/BUILD.bazel deleted file mode 100644 index c2efbd924a..0000000000 --- a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/BUILD.bazel +++ /dev/null @@ -1,66 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "lib-a", - srcs = ["LibA.hs"], - deps = ["//tests/hackage:base"], -) - -haskell_library( - name = "lib-b", - srcs = ["LibB.hs"], - visibility = ["//visibility:private"], - deps = [ - ":lib-a", - "//tests/hackage:base", - ], -) - -# Targets that must FAIL. These are tagged as manual so that -# -# $ bazel build //... -# -# does not fail. - -haskell_library( - # Should fail because it doesn't specify "base" explicitly. - name = "lib-cFailure", - srcs = ["LibC.hs"], - tags = ["manual"], - deps = [":lib-b"], -) - -haskell_library( - name = "lib-c", - srcs = ["LibC.hs"], - deps = [ - ":lib-b", - "//tests/hackage:base", - ], -) - -haskell_library( - # Should fail because it doesn't specify "lib-a" explicitly. - name = "lib-dFailure", - srcs = ["LibD.hs"], - tags = ["manual"], - deps = [ - ":lib-b", - "//tests/hackage:base", - ], -) - -haskell_library( - name = "lib-d", - srcs = ["LibD.hs"], - deps = [ - ":lib-a", - ":lib-b", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibA.hs b/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibA.hs deleted file mode 100644 index 23e9486489..0000000000 --- a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibA.hs +++ /dev/null @@ -1,4 +0,0 @@ -module LibA (thingA) where - -thingA :: Int -thingA = 5 diff --git a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibB.hs b/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibB.hs deleted file mode 100644 index 9ab883093b..0000000000 --- a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibB.hs +++ /dev/null @@ -1,6 +0,0 @@ -module LibB (thingB) where - -import LibA (thingA) - -thingB :: Int -thingB = thingA + 1 diff --git a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibC.hs b/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibC.hs deleted file mode 100644 index 70514f1316..0000000000 --- a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibC.hs +++ /dev/null @@ -1,6 +0,0 @@ -module LibC (thingC) where - -import LibB (thingB) - -thingC :: Int -thingC = thingB * 2 diff --git a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibD.hs b/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibD.hs deleted file mode 100644 index 326d224a2a..0000000000 --- a/third_party/bazel/rules_haskell/tests/failures/transitive-deps/LibD.hs +++ /dev/null @@ -1,7 +0,0 @@ -module LibD (thingD) where - -import LibA (thingA) -import LibB (thingB) - -thingD :: Int -thingD = thingA + thingB diff --git a/third_party/bazel/rules_haskell/tests/generated-modules/BUILD.bazel b/third_party/bazel/rules_haskell/tests/generated-modules/BUILD.bazel deleted file mode 100644 index 098c7148a9..0000000000 --- a/third_party/bazel/rules_haskell/tests/generated-modules/BUILD.bazel +++ /dev/null @@ -1,56 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package( - default_testonly = 1, - default_visibility = ["//visibility:public"], -) - -genrule( - name = "generate-genmodule", - outs = ["src/GenModule.hs"], - cmd = "printf 'module GenModule where\na = 1 :: Int' > $@", -) - -haskell_library( - name = "GenModule", - srcs = [":generate-genmodule"], - src_strip_prefix = "src", - deps = ["//tests/hackage:base"], -) - -genrule( - name = "generate-binmodule", - outs = ["src/BinModule.hs"], - cmd = "printf 'module BinModule where\nb = 2 :: Int' > $@", - output_to_bindir = 1, -) - -haskell_library( - name = "BinModule", - srcs = [":generate-binmodule"], - src_strip_prefix = "src", - deps = ["//tests/hackage:base"], -) - -genrule( - name = "generate-main", - outs = ["src/Main.hs"], - cmd = "printf 'module Main where\nimport GenModule\nimport BinModule\n" + - "main = print (a+b) :: IO ()' > $@", -) - -haskell_test( - name = "generated-modules", - size = "small", - srcs = [":generate-main"], - src_strip_prefix = "src", - deps = [ - ":BinModule", - ":GenModule", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/ghc.nix b/third_party/bazel/rules_haskell/tests/ghc.nix deleted file mode 100644 index cde1699918..0000000000 --- a/third_party/bazel/rules_haskell/tests/ghc.nix +++ /dev/null @@ -1,41 +0,0 @@ -{ pkgs ? import ../nixpkgs {} -# Whether we want to wrap the packages using <bazel_haskell_wrapper>. -# When this is called from inside bazel, we need to wrap the haskell package -# set using <bazel_haskell_wrapper>. Otherwise we don't need (and don't want) -# to. -, wrapPackages ? (builtins.tryEval <bazel_haskell_wrapper>).success -}: - -with pkgs; - -let haskellPackages = pkgs.haskell.packages.ghc864.override { - overrides = with pkgs.haskell.lib; self: super: rec { - libc = import ./haddock/libC.nix self pkgs; - }; - }; - genBazelBuild = - if wrapPackages - then callPackage <bazel_haskell_wrapper> {} - else (x: x); - -in - { - ghc = haskellPackages.ghcWithPackages (p: with p; [ - - # haskell_proto_library inputs - bytestring - containers - data-default-class - lens-family - lens-labels - proto-lens - text - - # test inputs - libc - - # for test runner - hspec - ]); - haskellPackages = genBazelBuild haskellPackages; -} diff --git a/third_party/bazel/rules_haskell/tests/ghc/BUILD.bazel b/third_party/bazel/rules_haskell/tests/ghc/BUILD.bazel deleted file mode 100644 index 345ce4badf..0000000000 --- a/third_party/bazel/rules_haskell/tests/ghc/BUILD.bazel +++ /dev/null @@ -1,3 +0,0 @@ -load("//tests/ghc:ghc.bzl", "ghc_help") - -ghc_help(name = "ghc_help") diff --git a/third_party/bazel/rules_haskell/tests/ghc/ghc.bzl b/third_party/bazel/rules_haskell/tests/ghc/ghc.bzl deleted file mode 100644 index 443f04e7be..0000000000 --- a/third_party/bazel/rules_haskell/tests/ghc/ghc.bzl +++ /dev/null @@ -1,19 +0,0 @@ -"""Runs ghc --help""" - -hs_toolchain = "@io_tweag_rules_haskell//haskell:toolchain" - -def _impl(ctx): - output = ctx.outputs.out - ghc = ctx.toolchains[hs_toolchain].tools.ghc - ctx.actions.run_shell( - inputs = [ghc], - outputs = [output], - progress_message = "Printing ghc help message", - command = "%s --help > %s" % (ghc.path, output.path), - ) - -ghc_help = rule( - implementation = _impl, - outputs = {"out": "out_file"}, - toolchains = [hs_toolchain], -) diff --git a/third_party/bazel/rules_haskell/tests/hackage/BUILD.bazel b/third_party/bazel/rules_haskell/tests/hackage/BUILD.bazel deleted file mode 100644 index 63fb6f941b..0000000000 --- a/third_party/bazel/rules_haskell/tests/hackage/BUILD.bazel +++ /dev/null @@ -1,34 +0,0 @@ -""" - Fetches GHC boot packages from GHC directly rather than from Nixpkgs - for better bindist support. -""" - -package(default_visibility = [ - "//tests:__subpackages__", - "@haskell_package_repository_dummy//:__subpackages__", -]) - -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_toolchain_library", -) - -[ - haskell_toolchain_library(name = name) - for name in [ - "array", - "base", - "binary", - "bytestring", - "containers", - "deepseq", - "directory", - "filepath", - "mtl", - "template-haskell", - "transformers", - "ghc-prim", - "process", - "text", - ] -] diff --git a/third_party/bazel/rules_haskell/tests/haddock/BUILD.bazel b/third_party/bazel/rules_haskell/tests/haddock/BUILD.bazel deleted file mode 100644 index 6955285c87..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/BUILD.bazel +++ /dev/null @@ -1,73 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_doc", - "haskell_library", - "haskell_toolchain_library", -) - -package( - default_testonly = 1, - default_visibility = ["//visibility:public"], -) - -haskell_library( - name = "haddock-lib-deep", - srcs = ["Deep.hsc"], - deps = ["//tests/hackage:base"], -) - -haskell_library( - name = "haddock-lib-a", - srcs = [ - "LibA.hs", - "LibA/A.hs", - "header.h", - ], - compiler_flags = ["-I."], - deps = [ - ":haddock-lib-deep", - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) - -haskell_toolchain_library( - name = "haddock-lib-c", - package = "libc", -) - -haskell_library( - name = "haddock-lib-b", - srcs = [ - "LibB.hs", - "TH.hs", - ], - extra_srcs = [ - "unicode.txt", - ], - tags = [ - "requires_hackage", - "requires_zlib", - ], - deps = [ - ":haddock-lib-a", - "//tests/hackage:base", - "//tests/hackage:template-haskell", - "@hackage//:libc", - "@zlib", - ], -) - -haskell_doc( - name = "haddock", - index_transitive_deps = False, - tags = ["requires_hackage"], - deps = [":haddock-lib-b"], -) - -haskell_doc( - name = "haddock-transitive", - index_transitive_deps = True, - tags = ["requires_hackage"], - deps = [":haddock-lib-b"], -) diff --git a/third_party/bazel/rules_haskell/tests/haddock/Deep.hsc b/third_party/bazel/rules_haskell/tests/haddock/Deep.hsc deleted file mode 100644 index 6fb0482a15..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/Deep.hsc +++ /dev/null @@ -1,11 +0,0 @@ --- | "Deep" doc. -module Deep (deep_lib) where - --- | 'deep_lib' doc. - -#if __GLASGOW_HASKELL__ >= 700 -#ifndef _INTERNAL_HSC_DO_NOT_DEFINE_ME -deep_lib :: Int -deep_lib = 100 -#endif -#endif diff --git a/third_party/bazel/rules_haskell/tests/haddock/LibA.hs b/third_party/bazel/rules_haskell/tests/haddock/LibA.hs deleted file mode 100644 index 252c90ccc6..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/LibA.hs +++ /dev/null @@ -1,19 +0,0 @@ --- | "LibA" header -{-# LANGUAGE CPP #-} -{-# LANGUAGE TemplateHaskell #-} - -#include "header.h" - -module LibA where - -import LibA.A (a) -import Deep (deep_lib) - --- | 'A' declaration. -data A = - -- | 'A' constructor. - A - --- | Doc for 'f' using 'a' and 'deep_lib'. -f :: Int -f = const $a deep_lib + MAGIC_NUMBER diff --git a/third_party/bazel/rules_haskell/tests/haddock/LibA/A.hs b/third_party/bazel/rules_haskell/tests/haddock/LibA/A.hs deleted file mode 100644 index 3be8dd5aad..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/LibA/A.hs +++ /dev/null @@ -1,10 +0,0 @@ --- | "LibA.A" header -{-# LANGUAGE TemplateHaskell #-} - -module LibA.A where - -import Language.Haskell.TH - --- | 'a' doc -a :: Q Exp -a = [| 5 |] diff --git a/third_party/bazel/rules_haskell/tests/haddock/LibB.hs b/third_party/bazel/rules_haskell/tests/haddock/LibB.hs deleted file mode 100644 index b4df1ffcb9..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/LibB.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} --- | "LibB" doc. - -module LibB where - -import LibA.A (a) -import LibA (f) -import LibC (mytype, LibCType) -import TH (foo) - --- | Doc for 'x' using 'f' and 'a' and 'Int'. -x :: Int -x = const f a - --- | This uses a type from an undocumented package -y :: LibCType -y = mytype - --- | A thing generated with TH. -z :: String -z = $foo diff --git a/third_party/bazel/rules_haskell/tests/haddock/TH.hs b/third_party/bazel/rules_haskell/tests/haddock/TH.hs deleted file mode 100644 index 6e791b0915..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/TH.hs +++ /dev/null @@ -1,7 +0,0 @@ -module TH (foo) where - -import Language.Haskell.TH -import Language.Haskell.TH.Syntax (lift) - -foo :: Q Exp -foo = runIO (readFile "tests/haddock/unicode.txt") >>= lift diff --git a/third_party/bazel/rules_haskell/tests/haddock/header.h b/third_party/bazel/rules_haskell/tests/haddock/header.h deleted file mode 100644 index ec5eddd276..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/header.h +++ /dev/null @@ -1 +0,0 @@ -#define MAGIC_NUMBER 100 diff --git a/third_party/bazel/rules_haskell/tests/haddock/libC.nix b/third_party/bazel/rules_haskell/tests/haddock/libC.nix deleted file mode 100644 index d345178838..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/libC.nix +++ /dev/null @@ -1,47 +0,0 @@ -# A trivial `haskellPackages` library that has haddock generation disabled -self: pkgs: -let - # pkgs = import ../../nixpkgs.nix {}; - - libC = pkgs.writeText "LibC.hs" '' - {-# language NoImplicitPrelude #-} - module LibC where - - data LibCType = LibCType - - -- | myfunction - mytype :: LibCType - mytype = LibCType - ''; - - cabal = pkgs.writeText "libc.cabal" '' - name: libc - version: 0.1.0.0 - build-type: Simple - cabal-version: >=1.10 - - library - default-language: Haskell2010 - exposed-modules: LibC - ''; - - src = pkgs.runCommand "libc-src" {} '' - mkdir $out - cp ${libC} $out/LibC.hs - cp ${cabal} $out/libc.cabal - ''; - -in - # This call means the `.haddock` file is not generated, - # even though the ghc package still references the location - # where it would ordinarily be. - pkgs.haskell.lib.dontHaddock - - (self.callPackage - ({ mkDerivation }: mkDerivation { - pname = "libc"; - version = "0.1.0.0"; - src = src; - license = pkgs.lib.licenses.mit; - isExecutable = false; - }) {}) diff --git a/third_party/bazel/rules_haskell/tests/haddock/unicode.txt b/third_party/bazel/rules_haskell/tests/haddock/unicode.txt deleted file mode 100644 index 74e5f2638d..0000000000 --- a/third_party/bazel/rules_haskell/tests/haddock/unicode.txt +++ /dev/null @@ -1 +0,0 @@ -Некоторый текст на русском. diff --git a/third_party/bazel/rules_haskell/tests/haskell_doctest/BUILD.bazel b/third_party/bazel/rules_haskell/tests/haskell_doctest/BUILD.bazel deleted file mode 100644 index c1d4e527ae..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_doctest/BUILD.bazel +++ /dev/null @@ -1,73 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_doctest", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "lib-a", - srcs = ["Foo.hs"], - tags = ["requires_zlib"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:base", - "@zlib.dev//:zlib", - ], -) - -haskell_library( - name = "lib-b", - srcs = [ - "Bar.hs", - "Baz.hs", - "Quux.hsc", - ], - tags = ["requires_zlib"], - deps = [ - ":lib-a", - "//tests/hackage:base", - ], -) - -haskell_doctest( - name = "doctest-lib-all-fail", - tags = ["manual"], # must FAIL - visibility = ["//visibility:public"], - deps = [":lib-b"], -) - -haskell_doctest( - name = "doctest-lib-all-success", - doctest_flags = ["-DMAGIC_DOCTEST_THING"], - tags = ["requires_doctest"], - visibility = ["//visibility:public"], - deps = [":lib-b"], -) - -haskell_doctest( - name = "doctest-lib", - modules = ["Bar"], # exclude Baz and succeed - tags = ["requires_doctest"], - visibility = ["//visibility:public"], - deps = [":lib-b"], -) - -haskell_test( - name = "bin", - srcs = ["Main.hs"], - tags = ["requires_zlib"], - deps = [ - ":lib-a", - "//tests/hackage:base", - ], -) - -haskell_doctest( - name = "doctest-bin", - tags = ["requires_doctest"], - visibility = ["//visibility:public"], - deps = [":bin"], -) diff --git a/third_party/bazel/rules_haskell/tests/haskell_doctest/Bar.hs b/third_party/bazel/rules_haskell/tests/haskell_doctest/Bar.hs deleted file mode 100644 index cd82351855..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_doctest/Bar.hs +++ /dev/null @@ -1,13 +0,0 @@ -module Bar (bar) where - -import Foo (foo) -import Numeric - --- | --- >>> bar --- 9 --- >>> showInt bar "" ++ "!" --- "9!" - -bar :: Int -bar = 4 + foo diff --git a/third_party/bazel/rules_haskell/tests/haskell_doctest/Baz.hs b/third_party/bazel/rules_haskell/tests/haskell_doctest/Baz.hs deleted file mode 100644 index d576235bf4..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_doctest/Baz.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE CPP #-} - -module Baz (baz) where - --- | --- >>> baz --- 101 - -baz :: Int -#ifndef MAGIC_DOCTEST_THING -baz = 100 -#else -baz = 101 -#endif diff --git a/third_party/bazel/rules_haskell/tests/haskell_doctest/Foo.hs b/third_party/bazel/rules_haskell/tests/haskell_doctest/Foo.hs deleted file mode 100644 index d2c97b77ae..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_doctest/Foo.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} - -module Foo (foo) where - -import Foreign.C.Types (CInt(..)) - -foreign import ccall "c_add_one" - c_add_one :: CInt -> CInt - --- | --- >>> foo --- 5 -foo :: Int -foo = fromIntegral (c_add_one 4) diff --git a/third_party/bazel/rules_haskell/tests/haskell_doctest/Main.hs b/third_party/bazel/rules_haskell/tests/haskell_doctest/Main.hs deleted file mode 100644 index 1bc6f8abc9..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_doctest/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main (main) where - -import Foo (foo) - -main :: IO () -main = print foo diff --git a/third_party/bazel/rules_haskell/tests/haskell_doctest/Quux.hsc b/third_party/bazel/rules_haskell/tests/haskell_doctest/Quux.hsc deleted file mode 100644 index 3d437274c9..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_doctest/Quux.hsc +++ /dev/null @@ -1,11 +0,0 @@ --- | This module is in a .hsc file, this way we test that improt directories --- are passed correctly to the doctest executable. - -module Quux (quux) where - --- | --- >>> quux --- 68 - -quux :: Int -quux = 68 diff --git a/third_party/bazel/rules_haskell/tests/haskell_lint/BUILD.bazel b/third_party/bazel/rules_haskell/tests/haskell_lint/BUILD.bazel deleted file mode 100644 index 702dfdfe07..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_lint/BUILD.bazel +++ /dev/null @@ -1,47 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_lint", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "lib-a", - srcs = ["Foo.hs"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) - -haskell_library( - name = "lib-b", - srcs = ["Bar.hs"], - visibility = ["//visibility:public"], - deps = [ - ":lib-a", - "//tests/hackage:base", - ], -) - -haskell_lint( - name = "lint-lib-b", - visibility = ["//visibility:public"], - deps = [":lib-b"], -) - -haskell_test( - name = "bin", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = [ - ":lib-a", - "//tests/hackage:base", - ], -) - -haskell_lint( - name = "lint-bin", - visibility = ["//visibility:public"], - deps = [":bin"], -) diff --git a/third_party/bazel/rules_haskell/tests/haskell_lint/Bar.hs b/third_party/bazel/rules_haskell/tests/haskell_lint/Bar.hs deleted file mode 100644 index 18e9583e5a..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_lint/Bar.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Bar (bar) where - -import Foo (foo) - -bar :: Int -bar = 4 + foo :: Int diff --git a/third_party/bazel/rules_haskell/tests/haskell_lint/Foo.hs b/third_party/bazel/rules_haskell/tests/haskell_lint/Foo.hs deleted file mode 100644 index 119192e6b1..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_lint/Foo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Foo (foo) where - -foo :: Int -foo = 5 :: Int diff --git a/third_party/bazel/rules_haskell/tests/haskell_lint/Main.hs b/third_party/bazel/rules_haskell/tests/haskell_lint/Main.hs deleted file mode 100644 index 1bc6f8abc9..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_lint/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main (main) where - -import Foo (foo) - -main :: IO () -main = print foo diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/BUILD.bazel b/third_party/bazel/rules_haskell/tests/haskell_proto_library/BUILD.bazel deleted file mode 100644 index f5f8762b3a..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/BUILD.bazel +++ /dev/null @@ -1,78 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_doc", - "haskell_library", - "haskell_proto_library", -) - -package(default_testonly = 1) - -proto_library( - name = "zip_code_proto", - srcs = ["zip_code.proto"], -) - -proto_library( - name = "address_proto", - srcs = ["address.proto"], - deps = [":zip_code_proto"], -) - -proto_library( - name = "person_proto", - srcs = ["person.proto"], - deps = [ - ":address_proto", - "@com_google_protobuf//:timestamp_proto", - ], -) - -proto_library( - name = "stripped_zip_code_proto", - srcs = ["stripped_zip_code.proto"], - strip_import_prefix = "/tests/haskell_proto_library/", -) - -proto_library( - name = "stripped_address_proto", - srcs = ["stripped_address.proto"], - strip_import_prefix = "/tests/haskell_proto_library/", - deps = [":stripped_zip_code_proto"], -) - -haskell_proto_library( - name = "address_haskell_proto", - tags = ["requires_hackage"], - deps = [":address_proto"], -) - -haskell_proto_library( - name = "stripped_address_haskell_proto", - tags = ["requires_hackage"], - deps = [":stripped_address_proto"], -) - -haskell_proto_library( - name = "person_haskell_proto", - tags = ["requires_hackage"], - deps = [":person_proto"], -) - -haskell_library( - name = "hs-lib", - srcs = ["Bar.hs"], - tags = ["requires_hackage"], - visibility = ["//visibility:public"], - deps = [ - ":address_haskell_proto", - ":person_haskell_proto", - ":stripped_address_haskell_proto", - "//tests/hackage:base", - ], -) - -haskell_doc( - name = "docs", - tags = ["requires_hackage"], - deps = [":hs-lib"], -) diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/Bar.hs b/third_party/bazel/rules_haskell/tests/haskell_proto_library/Bar.hs deleted file mode 100644 index fa95bf088c..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/Bar.hs +++ /dev/null @@ -1,8 +0,0 @@ -module Bar (bar) where - -import Proto.StrippedAddress -import Proto.Tests.HaskellProtoLibrary.Person -import Proto.Tests.HaskellProtoLibrary.Person_Fields - -bar :: Int -bar = 5 diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/address.proto b/third_party/bazel/rules_haskell/tests/haskell_proto_library/address.proto deleted file mode 100644 index d81642d8bc..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/address.proto +++ /dev/null @@ -1,11 +0,0 @@ -syntax = "proto3"; - -package demo; // Required to generate valid code. - -// Always import protos with a full path relative to the WORKSPACE file. -import "tests/haskell_proto_library/zip_code.proto"; - -message Address { - string city = 1; - ZipCode zip_code = 2; -} diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/person.proto b/third_party/bazel/rules_haskell/tests/haskell_proto_library/person.proto deleted file mode 100644 index 95bf3524f8..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/person.proto +++ /dev/null @@ -1,16 +0,0 @@ -syntax = "proto3"; - -package demo; // Required to generate valid code. - -// Always import protos with a full path relative to the WORKSPACE file. -import "tests/haskell_proto_library/address.proto"; - -import "google/protobuf/timestamp.proto"; - -message Person { - string name = 1; - int32 id = 2; - string email = 3; - Address address = 4; - google.protobuf.Timestamp timestamp = 5; -} diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/stripped_address.proto b/third_party/bazel/rules_haskell/tests/haskell_proto_library/stripped_address.proto deleted file mode 100644 index 5b5ce47be8..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/stripped_address.proto +++ /dev/null @@ -1,10 +0,0 @@ -syntax = "proto3"; - -package demo; // Required to generate valid code. - -import "stripped_zip_code.proto"; - -message StrippedAddress { - string city = 1; - StrippedZipCode zip_code = 2; -} diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/stripped_zip_code.proto b/third_party/bazel/rules_haskell/tests/haskell_proto_library/stripped_zip_code.proto deleted file mode 100644 index 690d7c9d99..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/stripped_zip_code.proto +++ /dev/null @@ -1,7 +0,0 @@ -syntax = "proto3"; - -package demo; // Required to generate valid code. - -message StrippedZipCode { - string code = 1; -} diff --git a/third_party/bazel/rules_haskell/tests/haskell_proto_library/zip_code.proto b/third_party/bazel/rules_haskell/tests/haskell_proto_library/zip_code.proto deleted file mode 100644 index e72578cf21..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_proto_library/zip_code.proto +++ /dev/null @@ -1,7 +0,0 @@ -syntax = "proto3"; - -package demo; // Required to generate valid code. - -message ZipCode { - string code = 1; -} diff --git a/third_party/bazel/rules_haskell/tests/haskell_test/BUILD.bazel b/third_party/bazel/rules_haskell/tests/haskell_test/BUILD.bazel deleted file mode 100644 index eb00b2c318..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_test/BUILD.bazel +++ /dev/null @@ -1,29 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "mylib", - srcs = ["Lib.hs"], - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "haskell_test", - # Use some parameters that only test rules have. - size = "small", - timeout = "short", - srcs = ["Test.hs"], - flaky = False, - main_function = "Test.test", - visibility = ["//visibility:public"], - deps = [ - ":mylib", - "//tests/data:ourclibrary", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/haskell_test/Lib.hs b/third_party/bazel/rules_haskell/tests/haskell_test/Lib.hs deleted file mode 100644 index 3553d6b6f4..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_test/Lib.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Lib where - -foo :: Int -foo = 42 diff --git a/third_party/bazel/rules_haskell/tests/haskell_test/Test.hs b/third_party/bazel/rules_haskell/tests/haskell_test/Test.hs deleted file mode 100644 index 5ba65f82c9..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_test/Test.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Test (test) where - -test :: IO () -test = putStrLn "haskell_test fired" diff --git a/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/BUILD.bazel b/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/BUILD.bazel deleted file mode 100644 index 6c36ce4bdb..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/BUILD.bazel +++ /dev/null @@ -1,26 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "Lib", - srcs = ["Lib.hs"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) - -haskell_test( - name = "binary", - srcs = ["Bin.hs"], - deps = [ - ":Lib", - "//tests/hackage:base", - "//tests/hackage:text", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/Bin.hs b/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/Bin.hs deleted file mode 100644 index a0e7117d2e..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/Bin.hs +++ /dev/null @@ -1,8 +0,0 @@ -module Main (main) where - -import qualified Data.Text.IO as T -import qualified Data.Text.Encoding as E - -import Lib (message) - -main = T.putStrLn $ E.decodeUtf8 message diff --git a/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/Lib.hs b/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/Lib.hs deleted file mode 100644 index 66a2161a19..0000000000 --- a/third_party/bazel/rules_haskell/tests/haskell_toolchain_library/Lib.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Lib (message) where - -import qualified Data.ByteString.Char8 as B - -message = B.pack "hello, world" diff --git a/third_party/bazel/rules_haskell/tests/hidden-modules/BUILD.bazel b/third_party/bazel/rules_haskell/tests/hidden-modules/BUILD.bazel deleted file mode 100644 index 5d79e56085..0000000000 --- a/third_party/bazel/rules_haskell/tests/hidden-modules/BUILD.bazel +++ /dev/null @@ -1,35 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package( - default_testonly = 1, - default_visibility = ["//visibility:public"], -) - -haskell_library( - name = "lib-a", - srcs = glob(["lib-a/*.hs"]), - hidden_modules = ["Foo"], - src_strip_prefix = "lib-a", - deps = ["//tests/hackage:base"], -) - -haskell_library( - name = "lib-b", - srcs = glob(["lib-b/*.hs"]), - src_strip_prefix = "lib-b", - deps = ["//tests/hackage:base"], -) - -haskell_library( - name = "lib-c", - srcs = glob(["lib-c/*.hs"]), - src_strip_prefix = "lib-c", - deps = [ - ":lib-a", - ":lib-b", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-a/Bar.hs b/third_party/bazel/rules_haskell/tests/hidden-modules/lib-a/Bar.hs deleted file mode 100644 index 5bc9c68895..0000000000 --- a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-a/Bar.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Bar (bar) where - -import Foo (foo) - -bar :: Int -bar = foo * 2 diff --git a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-a/Foo.hs b/third_party/bazel/rules_haskell/tests/hidden-modules/lib-a/Foo.hs deleted file mode 100644 index 664be00d54..0000000000 --- a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-a/Foo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Foo (foo) where - -foo :: Int -foo = 15 diff --git a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-b/Foo.hs b/third_party/bazel/rules_haskell/tests/hidden-modules/lib-b/Foo.hs deleted file mode 100644 index 6fdd42f9a8..0000000000 --- a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-b/Foo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Foo (foo) where - -foo :: Int -foo = 16 diff --git a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-c/Baz.hs b/third_party/bazel/rules_haskell/tests/hidden-modules/lib-c/Baz.hs deleted file mode 100644 index 055b2e80ad..0000000000 --- a/third_party/bazel/rules_haskell/tests/hidden-modules/lib-c/Baz.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Baz (bar) where - -import Foo (foo) -import Bar (bar) - -baz :: Int -baz = foo + bar diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/A.hs-boot.in b/third_party/bazel/rules_haskell/tests/hs-boot/A.hs-boot.in deleted file mode 100644 index 02d37ced95..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/A.hs-boot.in +++ /dev/null @@ -1,2 +0,0 @@ -module A where - newtype TA = MkTA Int diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/A.hs.in b/third_party/bazel/rules_haskell/tests/hs-boot/A.hs.in deleted file mode 100644 index deeff5470b..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/A.hs.in +++ /dev/null @@ -1,8 +0,0 @@ -module A where - -import B (TB (..)) - -newtype TA = MkTA Int - -f :: TB -> TA -f (MkTB x) = MkTA x diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/BUILD.bazel b/third_party/bazel/rules_haskell/tests/hs-boot/BUILD.bazel deleted file mode 100644 index 4e69da0e6b..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/BUILD.bazel +++ /dev/null @@ -1,48 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -genrule( - name = "gen-A-boot", - srcs = ["A.hs-boot.in"], - outs = ["srcs/A.hs-boot"], - cmd = "cp $< $@", -) - -genrule( - name = "gen-A", - srcs = ["A.hs.in"], - outs = ["srcs/A.hs"], - cmd = "cp $< $@", -) - -haskell_library( - name = "hs-boot-lib", - srcs = [ - "srcs/B.hs", - ":gen-A", - ":gen-A-boot", - ], - src_strip_prefix = "srcs", - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "hs-boot", - srcs = [ - "MA.hs", - "MA.hs-boot", - "MB.hs", - "Main.hs", - ], - visibility = ["//visibility:public"], - deps = [ - ":hs-boot-lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/MA.hs b/third_party/bazel/rules_haskell/tests/hs-boot/MA.hs deleted file mode 100644 index 4e01285962..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/MA.hs +++ /dev/null @@ -1,8 +0,0 @@ -module MA where - -import MB (TB (..)) - -newtype TA = MkTA Int - -f :: TB -> TA -f (MkTB x) = MkTA x diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/MA.hs-boot b/third_party/bazel/rules_haskell/tests/hs-boot/MA.hs-boot deleted file mode 100644 index 0ab8c899f2..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/MA.hs-boot +++ /dev/null @@ -1,2 +0,0 @@ -module MA where - newtype TA = MkTA Int diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/MB.hs b/third_party/bazel/rules_haskell/tests/hs-boot/MB.hs deleted file mode 100644 index d90d041d57..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/MB.hs +++ /dev/null @@ -1,8 +0,0 @@ -module MB where - -import {-# SOURCE #-} MA (TA (..)) - -data TB = MkTB !Int - -g :: TA -> TB -g (MkTA x) = MkTB x diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/Main.hs b/third_party/bazel/rules_haskell/tests/hs-boot/Main.hs deleted file mode 100644 index 15c0085fe0..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/Main.hs +++ /dev/null @@ -1,9 +0,0 @@ -module Main (main) where - -import A () -import B () -import MA () -import MB () - -main :: IO () -main = putStrLn "hsboot" diff --git a/third_party/bazel/rules_haskell/tests/hs-boot/srcs/B.hs b/third_party/bazel/rules_haskell/tests/hs-boot/srcs/B.hs deleted file mode 100644 index 60e1ff5f3e..0000000000 --- a/third_party/bazel/rules_haskell/tests/hs-boot/srcs/B.hs +++ /dev/null @@ -1,8 +0,0 @@ -module B where - -import {-# SOURCE #-} A (TA (..)) - -data TB = MkTB !Int - -g :: TA -> TB -g (MkTA x) = MkTB x diff --git a/third_party/bazel/rules_haskell/tests/hsc/BUILD.bazel b/third_party/bazel/rules_haskell/tests/hsc/BUILD.bazel deleted file mode 100644 index 1e9a07cd5e..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/BUILD.bazel +++ /dev/null @@ -1,35 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "hsc-lib", - srcs = [ - "Bar.hsc", - "Bar/Baz.hsc", - "Flags.hsc", - "Foo.hsc", - ], - compiler_flags = [ - "-DTHIS_IS_TRUE", - "-optP-DTHIS_TOO_IS_TRUE", - ], - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "hsc", - srcs = [ - "BinHsc.hsc", - "Main.hs", - ], - visibility = ["//visibility:public"], - deps = [ - ":hsc-lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/hsc/Bar.hsc b/third_party/bazel/rules_haskell/tests/hsc/Bar.hsc deleted file mode 100644 index a8bb791513..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/Bar.hsc +++ /dev/null @@ -1,6 +0,0 @@ -module Bar (hscFiredBar) where - -#ifndef _INTERNAL_HSC_DO_NOT_DEFINE_ME -hscFiredBar :: String -hscFiredBar = "hscFiredBar" -#endif diff --git a/third_party/bazel/rules_haskell/tests/hsc/Bar/Baz.hsc b/third_party/bazel/rules_haskell/tests/hsc/Bar/Baz.hsc deleted file mode 100644 index 7db172485d..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/Bar/Baz.hsc +++ /dev/null @@ -1,6 +0,0 @@ -module Bar.Baz (hscFiredBaz) where - -#ifndef _INTERNAL_HSC_DO_NOT_DEFINE_ME -hscFiredBaz :: String -hscFiredBaz = "hscFiredBaz" -#endif diff --git a/third_party/bazel/rules_haskell/tests/hsc/BinHsc.hsc b/third_party/bazel/rules_haskell/tests/hsc/BinHsc.hsc deleted file mode 100644 index ddfee79c13..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/BinHsc.hsc +++ /dev/null @@ -1 +0,0 @@ -module BinHsc () where \ No newline at end of file diff --git a/third_party/bazel/rules_haskell/tests/hsc/Flags.hsc b/third_party/bazel/rules_haskell/tests/hsc/Flags.hsc deleted file mode 100644 index b090df576a..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/Flags.hsc +++ /dev/null @@ -1,8 +0,0 @@ -module Flags (hscFlags) where - -#ifdef THIS_IS_TRUE -#ifdef THIS_TOO_IS_TRUE -hscFlags :: String -hscFlags = "hscFlags" -#endif -#endif diff --git a/third_party/bazel/rules_haskell/tests/hsc/Foo.hsc b/third_party/bazel/rules_haskell/tests/hsc/Foo.hsc deleted file mode 100644 index 2cb726e181..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/Foo.hsc +++ /dev/null @@ -1,8 +0,0 @@ -module Foo (hscFiredFoo) where - -#if __GLASGOW_HASKELL__ >= 700 -#ifndef _INTERNAL_HSC_DO_NOT_DEFINE_ME -hscFiredFoo :: String -hscFiredFoo = "hscFiredFoo" -#endif -#endif diff --git a/third_party/bazel/rules_haskell/tests/hsc/Main.hs b/third_party/bazel/rules_haskell/tests/hsc/Main.hs deleted file mode 100644 index 33ff7f10f7..0000000000 --- a/third_party/bazel/rules_haskell/tests/hsc/Main.hs +++ /dev/null @@ -1,10 +0,0 @@ -module Main (main) where - -import BinHsc () -import Foo (hscFiredFoo) -import Bar (hscFiredBar) -import Bar.Baz (hscFiredBaz) -import Flags (hscFlags) - -main :: IO () -main = putStrLn (hscFiredFoo ++ hscFiredBar ++ hscFiredBaz ++ hscFlags) diff --git a/third_party/bazel/rules_haskell/tests/indirect-link/BUILD.bazel b/third_party/bazel/rules_haskell/tests/indirect-link/BUILD.bazel deleted file mode 100644 index 60403a4ef2..0000000000 --- a/third_party/bazel/rules_haskell/tests/indirect-link/BUILD.bazel +++ /dev/null @@ -1,52 +0,0 @@ -load("@io_tweag_rules_haskell//haskell:haskell.bzl", "haskell_library", "haskell_test", "haskell_toolchain_library") - -cc_library( - name = "cbits-indirect", - srcs = ["cbits/impl.c"], -) - -cc_library( - name = "cbits", - srcs = ["cbits/intf.c"], - deps = ["cbits-indirect"], -) - -haskell_library( - name = "mypkg", - srcs = ["src/MyModule.hs"], - src_strip_prefix = "src", - deps = [ - ":cbits", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "indirect-link-static", - srcs = ["test/Main.hs"], - linkstatic = True, - src_strip_prefix = "test", - deps = [ - ":mypkg", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "indirect-link-dynamic", - srcs = ["test/Main.hs"], - linkstatic = False, - src_strip_prefix = "test", - deps = [ - ":mypkg", - "//tests/hackage:base", - ], -) - -test_suite( - name = "indirect-link", - tests = [ - ":indirect-link-dynamic", - ":indirect-link-static", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/indirect-link/cbits/impl.c b/third_party/bazel/rules_haskell/tests/indirect-link/cbits/impl.c deleted file mode 100644 index 666ce43962..0000000000 --- a/third_party/bazel/rules_haskell/tests/indirect-link/cbits/impl.c +++ /dev/null @@ -1,9 +0,0 @@ -static int thing; - -int real_get_thing(void) { - return thing; -} - -void real_set_thing(int value) { - thing = value; -} diff --git a/third_party/bazel/rules_haskell/tests/indirect-link/cbits/intf.c b/third_party/bazel/rules_haskell/tests/indirect-link/cbits/intf.c deleted file mode 100644 index f7a8f5e9f2..0000000000 --- a/third_party/bazel/rules_haskell/tests/indirect-link/cbits/intf.c +++ /dev/null @@ -1,10 +0,0 @@ -extern int real_get_thing(void); -extern void real_set_thing(int value); - -int get_thing(void) { - return real_get_thing(); -} - -void set_thing(int value) { - real_set_thing(value); -} diff --git a/third_party/bazel/rules_haskell/tests/indirect-link/src/MyModule.hs b/third_party/bazel/rules_haskell/tests/indirect-link/src/MyModule.hs deleted file mode 100644 index 4b75cee139..0000000000 --- a/third_party/bazel/rules_haskell/tests/indirect-link/src/MyModule.hs +++ /dev/null @@ -1,11 +0,0 @@ -module MyModule where - -foreign import ccall get_thing :: IO Int - -getThing :: IO Int -getThing = get_thing - -foreign import ccall set_thing :: Int -> IO () - -setThing :: Int -> IO () -setThing = set_thing diff --git a/third_party/bazel/rules_haskell/tests/indirect-link/test/Main.hs b/third_party/bazel/rules_haskell/tests/indirect-link/test/Main.hs deleted file mode 100644 index 0b3d188d73..0000000000 --- a/third_party/bazel/rules_haskell/tests/indirect-link/test/Main.hs +++ /dev/null @@ -1,9 +0,0 @@ -module Main (main) where - -import qualified MyModule - -main :: IO () -main = do - print =<< MyModule.getThing - MyModule.setThing 123 - print =<< MyModule.getThing diff --git a/third_party/bazel/rules_haskell/tests/inline_tests.bzl b/third_party/bazel/rules_haskell/tests/inline_tests.bzl deleted file mode 100644 index b1ba001c6e..0000000000 --- a/third_party/bazel/rules_haskell/tests/inline_tests.bzl +++ /dev/null @@ -1,90 +0,0 @@ -# features sh_inline_test and py_inline_test, -# which are like their respective builtin rules, -# but their scripts can be given inline as a string. - -load("@bazel_skylib//lib:shell.bzl", "shell") - -def quote_make_variables(s): - """Quote all genrule “Make” Variables in a string.""" - return s.replace("$", "$$") - -def target_from_string(name, string): - """Write a skylark string to a target.""" - native.genrule( - name = name + "-file", - outs = [name], - # this is exceptionally ugly. - cmd = """echo -n {quoted} > $(@)""".format( - # but should at least be quoted right - quoted = shell.quote(quote_make_variables(string)), - ), - ) - -bash_runfiles_boilerplate = """\ -# Copy-pasted from Bazel's Bash runfiles library (tools/bash/runfiles/runfiles.bash). -set -euo pipefail -if [[ ! -d "${RUNFILES_DIR:-/dev/null}" && ! -f "${RUNFILES_MANIFEST_FILE:-/dev/null}" ]]; then - if [[ -f "$0.runfiles_manifest" ]]; then - export RUNFILES_MANIFEST_FILE="$0.runfiles_manifest" - elif [[ -f "$0.runfiles/MANIFEST" ]]; then - export RUNFILES_MANIFEST_FILE="$0.runfiles/MANIFEST" - elif [[ -f "$0.runfiles/bazel_tools/tools/bash/runfiles/runfiles.bash" ]]; then - export RUNFILES_DIR="$0.runfiles" - fi -fi -if [[ -f "${RUNFILES_DIR:-/dev/null}/bazel_tools/tools/bash/runfiles/runfiles.bash" ]]; then - source "${RUNFILES_DIR}/bazel_tools/tools/bash/runfiles/runfiles.bash" -elif [[ -f "${RUNFILES_MANIFEST_FILE:-/dev/null}" ]]; then - source "$(grep -m1 "^bazel_tools/tools/bash/runfiles/runfiles.bash " \ - "$RUNFILES_MANIFEST_FILE" | cut -d ' ' -f 2-)" -else - echo >&2 "ERROR: cannot find @bazel_tools//tools/bash/runfiles:runfiles.bash" - exit 1 -fi -# --- end runfiles.bash initialization --- -""" - -def sh_inline_test(name, script, **kwargs): - """Like sh_test, but instead of srcs takes the shell script - as verbatim bazel string. The bash runfiles are in scope, - using `rlocation` works by default. - """ - script_name = name + ".sh" - script = bash_runfiles_boilerplate + script - - target_from_string(script_name, script) - - deps = kwargs.pop("deps", []) - - native.sh_test( - name = name, - srcs = [script_name], - deps = ["@bazel_tools//tools/bash/runfiles"] + deps, - **kwargs - ) - -python_runfiles_boilerplate = """ -from bazel_tools.tools.python.runfiles import runfiles -r = runfiles.Create() -""" - -def py_inline_test(name, script, **kwargs): - """Like py_test, but instead of srcs takes the shell script - as verbatim bazel string. The python runfiles are in scope - as the `r` variable. Use `r.Rlocation()` - """ - script_name = name + ".py" - script = python_runfiles_boilerplate + script - - target_from_string(script_name, script) - - deps = kwargs.pop("deps", []) - srcs = kwargs.pop("srcs", []) - - native.py_test( - name = name, - srcs = [script_name] + srcs, - main = script_name, - deps = ["@bazel_tools//tools/python/runfiles"] + deps, - **kwargs - ) diff --git a/third_party/bazel/rules_haskell/tests/java_classpath/BUILD.bazel b/third_party/bazel/rules_haskell/tests/java_classpath/BUILD.bazel deleted file mode 100644 index b2e5b86dae..0000000000 --- a/third_party/bazel/rules_haskell/tests/java_classpath/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "java_classpath", - srcs = ["Main.hs"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:template-haskell", - "@org_apache_spark_spark_core_2_10//jar", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs b/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs deleted file mode 100644 index 13f7b9d516..0000000000 --- a/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs +++ /dev/null @@ -1,17 +0,0 @@ -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE TemplateHaskell #-} -module Main (main) where - -import qualified Language.Haskell.TH as TH (runIO) -import qualified Language.Haskell.TH.Syntax as TH (lift) -import System.Environment (lookupEnv) - -main :: IO () -main = putStrLn $( - let ensureClassPath :: IO String - ensureClassPath = lookupEnv "CLASSPATH" >>= \case - Nothing -> error "CLASSPATH not set when it was expected to be." - Just "" -> error "CLASSPATH empty when it was expected to have content." - Just cpath -> pure $ "java-classpath at compile time: " ++ cpath - in TH.runIO ensureClassPath >>= TH.lift - ) diff --git a/third_party/bazel/rules_haskell/tests/lhs/BUILD.bazel b/third_party/bazel/rules_haskell/tests/lhs/BUILD.bazel deleted file mode 100644 index e344ee6def..0000000000 --- a/third_party/bazel/rules_haskell/tests/lhs/BUILD.bazel +++ /dev/null @@ -1,23 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "lhs-lib", - srcs = ["Lib.lhs"], - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "lhs-bin", - srcs = ["Main.lhs"], - visibility = ["//visibility:public"], - deps = [ - ":lhs-lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/lhs/Lib.lhs b/third_party/bazel/rules_haskell/tests/lhs/Lib.lhs deleted file mode 100644 index f37350df70..0000000000 --- a/third_party/bazel/rules_haskell/tests/lhs/Lib.lhs +++ /dev/null @@ -1,4 +0,0 @@ -> module Lib (lib) where - -> lib :: String -> lib = "lhs" diff --git a/third_party/bazel/rules_haskell/tests/lhs/Main.lhs b/third_party/bazel/rules_haskell/tests/lhs/Main.lhs deleted file mode 100644 index a9e0659ddd..0000000000 --- a/third_party/bazel/rules_haskell/tests/lhs/Main.lhs +++ /dev/null @@ -1,6 +0,0 @@ -> module Main (main) where - -> import Lib (lib) - -> main :: IO () -> main = putStrLn lib diff --git a/third_party/bazel/rules_haskell/tests/library-deps/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-deps/BUILD.bazel deleted file mode 100644 index d6844e1ac1..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-deps/BUILD.bazel +++ /dev/null @@ -1,28 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "library-deps", - srcs = ["TestLib.hs"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/library-deps/sublib", - ], -) - -haskell_test( - name = "bin-deps", - size = "small", - srcs = ["Bin.hs"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/library-deps/sublib", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/library-deps/Bin.hs b/third_party/bazel/rules_haskell/tests/library-deps/Bin.hs deleted file mode 100644 index 8d12d0bdd2..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-deps/Bin.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main (main) where - -import TestSubLib (messageEnd) - -main :: IO () -main = putStrLn $ messageEnd diff --git a/third_party/bazel/rules_haskell/tests/library-deps/TestLib.hs b/third_party/bazel/rules_haskell/tests/library-deps/TestLib.hs deleted file mode 100644 index fe917fecf3..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-deps/TestLib.hs +++ /dev/null @@ -1,9 +0,0 @@ -module TestLib (testMessage) where - -import TestSubLib (messageEnd) - -testMessage :: String -testMessage = "hello " ++ messageEnd - --- Force dynamic linking -{-# ANN testMessage () #-} diff --git a/third_party/bazel/rules_haskell/tests/library-deps/sublib/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-deps/sublib/BUILD.bazel deleted file mode 100644 index 5f3028e2e0..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-deps/sublib/BUILD.bazel +++ /dev/null @@ -1,21 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "sublib", - srcs = ["TestSubLib.hs"], - visibility = ["//visibility:public"], - deps = [ - ":sublib-c", - "//tests/hackage:base", - ], -) - -cc_library( - name = "sublib-c", - srcs = ["sublib-c.c"], -) diff --git a/third_party/bazel/rules_haskell/tests/library-deps/sublib/TestSubLib.hs b/third_party/bazel/rules_haskell/tests/library-deps/sublib/TestSubLib.hs deleted file mode 100644 index 1e8d2d4755..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-deps/sublib/TestSubLib.hs +++ /dev/null @@ -1,7 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} -module TestSubLib (messageEnd) where - -messageEnd :: String -messageEnd = "world " ++ show (foo 10) - -foreign import ccall foo :: Int -> Int diff --git a/third_party/bazel/rules_haskell/tests/library-deps/sublib/sublib-c.c b/third_party/bazel/rules_haskell/tests/library-deps/sublib/sublib-c.c deleted file mode 100644 index 2f3be3eb9e..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-deps/sublib/sublib-c.c +++ /dev/null @@ -1,3 +0,0 @@ -int foo(int x) { - return x * 2; -} diff --git a/third_party/bazel/rules_haskell/tests/library-exports/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-exports/BUILD.bazel deleted file mode 100644 index c88e68ebbe..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-exports/BUILD.bazel +++ /dev/null @@ -1,41 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "sublib", - srcs = ["TestSubLib.hs"], - exports = {"//tests/hackage:containers": "Data.Map as SubLib.Map"}, - deps = [ - "//tests/hackage:base", - "//tests/hackage:containers", - ], -) - -haskell_library( - name = "lib", - srcs = ["TestLib.hs"], - exports = { - ":sublib": "TestSubLib", - "//tests/hackage:containers": "Data.Map as Lib.Map", - }, - deps = [ - ":sublib", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "library-exports", - size = "small", - srcs = ["Bin.hs"], - visibility = ["//visibility:public"], - deps = [ - ":lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/library-exports/Bin.hs b/third_party/bazel/rules_haskell/tests/library-exports/Bin.hs deleted file mode 100644 index b724bb89d1..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-exports/Bin.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Main (main) where - -import TestSubLib (messageEnd) -import Lib.Map - -main :: IO () -main = print $ Lib.Map.singleton 1 messageEnd diff --git a/third_party/bazel/rules_haskell/tests/library-exports/TestLib.hs b/third_party/bazel/rules_haskell/tests/library-exports/TestLib.hs deleted file mode 100644 index c889c2cc31..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-exports/TestLib.hs +++ /dev/null @@ -1,7 +0,0 @@ -module TestLib (testMessage) where - -import TestSubLib (messageEnd) -import SubLib.Map - -testMessage :: String -testMessage = "hello " ++ messageEnd diff --git a/third_party/bazel/rules_haskell/tests/library-exports/TestSubLib.hs b/third_party/bazel/rules_haskell/tests/library-exports/TestSubLib.hs deleted file mode 100644 index 2e1f3f983f..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-exports/TestSubLib.hs +++ /dev/null @@ -1,5 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} -module TestSubLib (messageEnd) where - -messageEnd :: String -messageEnd = "world" diff --git a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/BUILD.bazel deleted file mode 100644 index 0b7cae3d7a..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/BUILD.bazel +++ /dev/null @@ -1,112 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) -load("//tests:inline_tests.bzl", "sh_inline_test") -load(":get_library_files.bzl", "get_libraries_as_runfiles") - -# test whether `linkstatic` works as expected -package(default_testonly = 1) - -# only .a files -haskell_library( - name = "library-static-only", - srcs = ["Lib.hs"], - linkstatic = True, # <-- - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) - -# both .a and .so files -haskell_library( - name = "library-static-and-dynamic", - srcs = ["Lib.hs"], - linkstatic = False, # <-- - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) - -# extract all libraries from the haskell_library -get_libraries_as_runfiles( - name = "library-static-only-libraries", - library = ":library-static-only", -) - -get_libraries_as_runfiles( - name = "library-static-and-dynamic-libraries", - library = ":library-static-and-dynamic", -) - -# sh_test’s `data` doesn’t add stuff to runfiles :( -# sh_library can bundle different targets as runfiles for sh_test -# TODO(Profpatsch): add functionality to sh_inline_test by default? -sh_library( - name = "bundled-dependency-files-static-only", - data = [":library-static-only-libraries"], -) - -sh_library( - name = "bundled-dependency-files-static-and-dynamic", - data = [":library-static-and-dynamic-libraries"], -) - -# ensure that linkstatic=True only creates only .a, no .so -sh_inline_test( - name = "library-linkstatic-flag", - size = "small", - # pass the file names as arguments - args = ["$(rootpaths :library-static-only-libraries)"], - data = [ - # for rootpaths - ":library-static-only-libraries", - # to actually get the files … - ":bundled-dependency-files-static-only", - ], - script = """ -set -euo pipefail -for f in "$@"; do - if ! [[ "$f" =~ .a$ ]]; then - echo "not a static library: $f" - exit 1 - fi -done -""", -) - -# test whether .so is linked dynamically and .a statically -sh_inline_test( - name = "test-libraries-static-and-dynamic", - size = "small", - # pass the file names as arguments - args = ["$(rootpaths :library-static-and-dynamic-libraries)"], - data = [ - # for rootpaths - ":library-static-and-dynamic-libraries", - # to actually get the files … - ":bundled-dependency-files-static-and-dynamic", - ], - script = """ -set -euo pipefail -is_dynamic () { - # taken from https://github.com/NixOS/nixpkgs/blob/0b3f50f844e2a6b507b18d7c5259bb850b382f87/pkgs/build-support/setup-hooks/auto-patchelf.sh#L167-L170 - readelf -l -- "$1" | grep -q "^ *INTERP\\>" -} - -for f in "$@"; do - if [[ "$f" =~ .a$ ]] && is_dynamic "$f"; then - echo "should be a static executable: $f" - exit 1 - fi - if [[ "$f" =~ .so$ ]] && ! is_dynamic "$f"; then - echo "should be a dynamic executable: $f" - exit 1 - fi -done -""", -) diff --git a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/Lib.hs b/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/Lib.hs deleted file mode 100644 index 66a2161a19..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/Lib.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Lib (message) where - -import qualified Data.ByteString.Char8 as B - -message = B.pack "hello, world" diff --git a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/Main.hs b/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/Main.hs deleted file mode 100644 index 2048dbdecd..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/Main.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Main where - -main = putStrLn "hello world" diff --git a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/get_library_files.bzl b/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/get_library_files.bzl deleted file mode 100644 index 31702bfcfa..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-linkstatic-flag/get_library_files.bzl +++ /dev/null @@ -1,28 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:providers.bzl", - "HaskellInfo", - "HaskellLibraryInfo", -) -load("//haskell:private/set.bzl", "set") - -def _get_libraries_as_runfiles_impl(ctx): - """Extract all library files from a haskell_library target - and put them in this target’s files""" - bi = ctx.attr.library[HaskellInfo] - return [DefaultInfo( - # not necessarily complete - files = depset( - direct = bi.static_libraries, - transitive = [set.to_depset(bi.dynamic_libraries)], - ), - )] - -get_libraries_as_runfiles = rule( - _get_libraries_as_runfiles_impl, - attrs = { - "library": attr.label( - mandatory = True, - providers = [HaskellInfo, HaskellLibraryInfo], - ), - }, -) diff --git a/third_party/bazel/rules_haskell/tests/library-with-cbits/AddOne.hsc b/third_party/bazel/rules_haskell/tests/library-with-cbits/AddOne.hsc deleted file mode 100644 index b4c446d412..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-cbits/AddOne.hsc +++ /dev/null @@ -1,3 +0,0 @@ -module AddOne where - -foreign import ccall "c_add_one" addOne :: Int -> Int diff --git a/third_party/bazel/rules_haskell/tests/library-with-cbits/AddOne2.hs b/third_party/bazel/rules_haskell/tests/library-with-cbits/AddOne2.hs deleted file mode 100644 index f2088f1c66..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-cbits/AddOne2.hs +++ /dev/null @@ -1,7 +0,0 @@ -module AddOne2 - ( addOne2 - ) where - -import AddOne - -addOne2 = addOne diff --git a/third_party/bazel/rules_haskell/tests/library-with-cbits/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-with-cbits/BUILD.bazel deleted file mode 100644 index c320502ebf..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-cbits/BUILD.bazel +++ /dev/null @@ -1,36 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_toolchain_library", -) - -haskell_library( - name = "library-with-cbits", - srcs = ["AddOne.hsc"], - linkstatic = False, - visibility = ["//visibility:public"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:base", - ], -) - -haskell_library( - name = "library-with-cbits-indirect", - srcs = ["AddOne2.hs"], - visibility = ["//visibility:public"], - deps = [ - ":library-with-cbits", - "//tests/hackage:base", - ], -) - -haskell_library( - name = "library-with-cbits-static", - srcs = ["AddOne.hsc"], - visibility = ["//visibility:public"], - deps = [ - "//tests/data:ourclibrary-static", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/library-with-includes/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-with-includes/BUILD.bazel deleted file mode 100644 index 37b5a2ee98..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-includes/BUILD.bazel +++ /dev/null @@ -1,29 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -genrule( - name = "gen-a", - outs = ["a.h"], - cmd = "echo '#define A 42' >> $@", -) - -cc_library( - name = "clib", - hdrs = [ - "b.h", - ":gen-a", - ], -) - -haskell_library( - name = "library-with-includes", - srcs = ["Lib.hs"], - deps = [ - ":clib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/library-with-includes/Lib.hs b/third_party/bazel/rules_haskell/tests/library-with-includes/Lib.hs deleted file mode 100644 index 1ca98d615c..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-includes/Lib.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE CPP #-} -module Lib (x) where - -#include "tests/library-with-includes/a.h" -#include "tests/library-with-includes/b.h" - -x :: Int -x = A + B diff --git a/third_party/bazel/rules_haskell/tests/library-with-includes/b.h b/third_party/bazel/rules_haskell/tests/library-with-includes/b.h deleted file mode 100644 index 3425137bf9..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-includes/b.h +++ /dev/null @@ -1 +0,0 @@ -#define B 17 diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysdeps/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-with-sysdeps/BUILD.bazel deleted file mode 100644 index 0e34f688fd..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysdeps/BUILD.bazel +++ /dev/null @@ -1,32 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_library( - name = "library-with-sysdeps", - srcs = ["Lib.hs"], - tags = ["requires_zlib"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "@zlib", - ], -) - -haskell_test( - name = "bin", - srcs = ["Main.hs"], - expected_covered_expressions_percentage = 100, - tags = [ - "coverage-compatible", - "requires_zlib", - ], - deps = [ - ":library-with-sysdeps", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysdeps/Lib.hs b/third_party/bazel/rules_haskell/tests/library-with-sysdeps/Lib.hs deleted file mode 100644 index 771dd7faf1..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysdeps/Lib.hs +++ /dev/null @@ -1,8 +0,0 @@ -module Lib (crc) where - -import Foreign.Ptr -import Foreign.C.Types - -foreign import ccall crc32 :: CLong -> Ptr () -> CInt -> IO () - -crc = crc32 0 nullPtr 0 diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysdeps/Main.hs b/third_party/bazel/rules_haskell/tests/library-with-sysdeps/Main.hs deleted file mode 100644 index b892de88c4..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysdeps/Main.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Main where - -import Lib (crc) - -main = crc diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/BUILD.bazel b/third_party/bazel/rules_haskell/tests/library-with-sysincludes/BUILD.bazel deleted file mode 100644 index ddd5de6519..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/BUILD.bazel +++ /dev/null @@ -1,86 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -genrule( - name = "genrule-header", - outs = [ - "include/foo.h", - ], - cmd = "touch $(location include/foo.h)", -) - -# A locally-defined replica of @zlib.dev//:zlib. -# Since that shared library lives in another package, we must -# use an absolute path for strip_include_prefix. -cc_library( - name = "zlib", - hdrs = ["@zlib.dev//:include"], - strip_include_prefix = "/external/zlib.dev/include", - tags = ["requires_zlib"], - deps = ["@zlib"], -) - -cc_library( - name = "zlib-with-genrule-header", - hdrs = [":genrule-header"], - strip_include_prefix = "include", - tags = ["requires_zlib"], -) - -haskell_library( - name = "intermediate-library", - srcs = ["IntLib.hsc"], - tags = ["requires_zlib"], - deps = [ - ":zlib", - ":zlib-with-genrule-header", - "//tests/hackage:base", - ], -) - -haskell_library( - name = "library-with-sysincludes", - srcs = [ - "Lib.hs", - "TH.hs", - ], - tags = ["requires_zlib"], - visibility = ["//visibility:public"], - deps = [ - ":intermediate-library", - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) - -# Replicate the above example, but use the externally-defined -# cc_library rule. -haskell_library( - name = "intermediate-library-other", - srcs = ["IntLib.hsc"], - tags = ["requires_zlib"], - deps = [ - ":zlib-with-genrule-header", - "//tests/hackage:base", - "@zlib.dev//:zlib", - ], -) - -haskell_library( - name = "library-with-sysincludes-other", - srcs = [ - "Lib.hs", - "TH.hs", - ], - tags = ["requires_zlib"], - visibility = ["//visibility:public"], - deps = [ - ":intermediate-library-other", - "//tests/hackage:base", - "//tests/hackage:template-haskell", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/IntLib.hsc b/third_party/bazel/rules_haskell/tests/library-with-sysincludes/IntLib.hsc deleted file mode 100644 index cf31e3d9a8..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/IntLib.hsc +++ /dev/null @@ -1,15 +0,0 @@ -{-# LANGUAGE CPP #-} - -module IntLib (crc) where - -import Foreign.Ptr -import Foreign.C.Types - -#include <zlib.h> -#include "foo.h" - -foreign import ccall crc32 :: CLong -> Ptr () -> CInt -> IO () - -crc = crc32 0 nullPtr 0 - -z = #{size struct gz_header_s} diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/Lib.hs b/third_party/bazel/rules_haskell/tests/library-with-sysincludes/Lib.hs deleted file mode 100644 index 55b1860fdd..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/Lib.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} - -module Lib (bar) where - -import TH (foo) - -bar :: IO () -bar = $foo diff --git a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/TH.hs b/third_party/bazel/rules_haskell/tests/library-with-sysincludes/TH.hs deleted file mode 100644 index 45929ec840..0000000000 --- a/third_party/bazel/rules_haskell/tests/library-with-sysincludes/TH.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} - -module TH (foo) where - -import IntLib (crc) -import Language.Haskell.TH - -foo :: Q Exp -foo = [| crc |] diff --git a/third_party/bazel/rules_haskell/tests/multi_repl/BUILD.bazel b/third_party/bazel/rules_haskell/tests/multi_repl/BUILD.bazel deleted file mode 100644 index b2edce37ab..0000000000 --- a/third_party/bazel/rules_haskell/tests/multi_repl/BUILD.bazel +++ /dev/null @@ -1,16 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_repl", -) - -haskell_repl( - name = "c_only_repl", - # To only load :c by source. - experimental_from_source = ["//tests/multi_repl/bc:c"], - deps = ["//tests/multi_repl/bc:c"], -) - -haskell_repl( - name = "c_multi_repl", - deps = ["//tests/multi_repl/bc:c"], -) diff --git a/third_party/bazel/rules_haskell/tests/multi_repl/a/BUILD.bazel b/third_party/bazel/rules_haskell/tests/multi_repl/a/BUILD.bazel deleted file mode 100644 index 7d17e834a9..0000000000 --- a/third_party/bazel/rules_haskell/tests/multi_repl/a/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -package(default_visibility = ["//visibility:public"]) - -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -haskell_library( - name = "a", - srcs = [ - "src/A/A.hs", - ], - src_strip_prefix = "src", - deps = [ - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/multi_repl/a/src/A/A.hs b/third_party/bazel/rules_haskell/tests/multi_repl/a/src/A/A.hs deleted file mode 100644 index 92eb0e6075..0000000000 --- a/third_party/bazel/rules_haskell/tests/multi_repl/a/src/A/A.hs +++ /dev/null @@ -1,4 +0,0 @@ -module A.A ( a ) where - -a :: () -a = () diff --git a/third_party/bazel/rules_haskell/tests/multi_repl/bc/BUILD.bazel b/third_party/bazel/rules_haskell/tests/multi_repl/bc/BUILD.bazel deleted file mode 100644 index 98372a4a19..0000000000 --- a/third_party/bazel/rules_haskell/tests/multi_repl/bc/BUILD.bazel +++ /dev/null @@ -1,30 +0,0 @@ -package(default_visibility = ["//visibility:public"]) - -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -haskell_library( - name = "b", - srcs = [ - "src/BC/B.hs", - ], - src_strip_prefix = "src", - deps = [ - "//tests/hackage:base", - "//tests/multi_repl/a", - ], -) - -haskell_library( - name = "c", - srcs = [ - "src/BC/C.hs", - ], - src_strip_prefix = "src", - deps = [ - ":b", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/multi_repl/bc/src/BC/B.hs b/third_party/bazel/rules_haskell/tests/multi_repl/bc/src/BC/B.hs deleted file mode 100644 index b86223c41e..0000000000 --- a/third_party/bazel/rules_haskell/tests/multi_repl/bc/src/BC/B.hs +++ /dev/null @@ -1,6 +0,0 @@ -module BC.B ( b ) where - -import A.A ( a ) - -b :: () -b = a diff --git a/third_party/bazel/rules_haskell/tests/multi_repl/bc/src/BC/C.hs b/third_party/bazel/rules_haskell/tests/multi_repl/bc/src/BC/C.hs deleted file mode 100644 index 6e6f31f0c8..0000000000 --- a/third_party/bazel/rules_haskell/tests/multi_repl/bc/src/BC/C.hs +++ /dev/null @@ -1,6 +0,0 @@ -module BC.C ( c ) where - -import BC.B ( b ) - -c :: () -c = b diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/BUILD.bazel b/third_party/bazel/rules_haskell/tests/package-id-clash-binary/BUILD.bazel deleted file mode 100644 index d64a8909c5..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/BUILD.bazel +++ /dev/null @@ -1,15 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", - "haskell_toolchain_library", -) - -haskell_test( - name = "bin", - srcs = ["Main.hs"], - deps = [ - "//tests/hackage:base", - "//tests/package-id-clash-binary/a:foo", - "//tests/package-id-clash-binary/b:foo", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/Main.hs b/third_party/bazel/rules_haskell/tests/package-id-clash-binary/Main.hs deleted file mode 100644 index 0c341e6f47..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main where - -import Foo -import Baz - -main = print $ x + y diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/a/BUILD.bazel b/third_party/bazel/rules_haskell/tests/package-id-clash-binary/a/BUILD.bazel deleted file mode 100644 index 02c3a6b36d..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/a/BUILD.bazel +++ /dev/null @@ -1,12 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_toolchain_library", -) - -haskell_library( - name = "foo", - srcs = ["Foo.hs"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/a/Foo.hs b/third_party/bazel/rules_haskell/tests/package-id-clash-binary/a/Foo.hs deleted file mode 100644 index ecac0701a0..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/a/Foo.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Foo where - -x = 2 diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/b/BUILD.bazel b/third_party/bazel/rules_haskell/tests/package-id-clash-binary/b/BUILD.bazel deleted file mode 100644 index 4bf734af5d..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/b/BUILD.bazel +++ /dev/null @@ -1,12 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_toolchain_library", -) - -haskell_library( - name = "foo", - srcs = ["Baz.hs"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/b/Baz.hs b/third_party/bazel/rules_haskell/tests/package-id-clash-binary/b/Baz.hs deleted file mode 100644 index 3159fda6b0..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash-binary/b/Baz.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Baz where - -y = 2 diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash/BUILD.bazel b/third_party/bazel/rules_haskell/tests/package-id-clash/BUILD.bazel deleted file mode 100644 index 9c1b91cf9b..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash/BUILD.bazel +++ /dev/null @@ -1,24 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "sublib", - srcs = ["Foo.hs"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) - -haskell_library( - name = "lib", - srcs = ["Baz.hs"], - visibility = ["//visibility:public"], - deps = [ - ":sublib", - "//tests/hackage:base", - "//tests/package-id-clash/sublib", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash/Baz.hs b/third_party/bazel/rules_haskell/tests/package-id-clash/Baz.hs deleted file mode 100644 index 718a2dd992..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash/Baz.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Baz (baz) where - -import Foo (foo) -import Bar (bar) - -baz :: Int -baz = foo + bar diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash/Foo.hs b/third_party/bazel/rules_haskell/tests/package-id-clash/Foo.hs deleted file mode 100644 index f325b2efcf..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash/Foo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Foo (foo) where - -foo :: Int -foo = 5 diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash/sublib/BUILD.bazel b/third_party/bazel/rules_haskell/tests/package-id-clash/sublib/BUILD.bazel deleted file mode 100644 index e5d277c2a2..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash/sublib/BUILD.bazel +++ /dev/null @@ -1,13 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "sublib", - srcs = ["Bar.hs"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/package-id-clash/sublib/Bar.hs b/third_party/bazel/rules_haskell/tests/package-id-clash/sublib/Bar.hs deleted file mode 100644 index 6fbd9711f5..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-id-clash/sublib/Bar.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Bar (bar) where - -bar :: Int -bar = 6 diff --git a/third_party/bazel/rules_haskell/tests/package-name/BUILD.bazel b/third_party/bazel/rules_haskell/tests/package-name/BUILD.bazel deleted file mode 100644 index 9d187f0836..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-name/BUILD.bazel +++ /dev/null @@ -1,28 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -# Tests around our use of package names. -package(default_testonly = 1) - -haskell_library( - # The character "Z" should be untouched in the GHC package name. - # However, underscores (which are not legal) should be turned into dashes. - name = "lib-a_Z", - srcs = ["Lib.hs"], - version = "1.2.3.4", - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "bin", - size = "small", - srcs = ["Main.hs"], - version = "0.0.0", # This flags triggers the `MIN_VERSION` macro generation - deps = [ - ":lib-a_Z", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/package-name/Lib.hs b/third_party/bazel/rules_haskell/tests/package-name/Lib.hs deleted file mode 100644 index e5e06b414b..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-name/Lib.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE CPP #-} -module Lib (foo, libPackageKey) where - -foo :: Integer -foo = 42 - -libPackageKey :: String -libPackageKey = CURRENT_PACKAGE_KEY diff --git a/third_party/bazel/rules_haskell/tests/package-name/Main.hs b/third_party/bazel/rules_haskell/tests/package-name/Main.hs deleted file mode 100644 index b1e73dcbf7..0000000000 --- a/third_party/bazel/rules_haskell/tests/package-name/Main.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE PackageImports #-} -module Main (main) where - -import Control.Monad (when) - --- Test the PackageImports extension. -import "lib-a-Z" Lib - --- Test macros that GHC creates automatically based on the package version. -versionHighEnoughTest, versionTooLowTest :: Bool -#if MIN_VERSION_lib_a_Z(1,2,3) -versionHighEnoughTest = True -#else -versionHighEnoughTest = False -#endif - -#if MIN_VERSION_lib_a_Z(1,2,4) -versionTooLowTest = False -#else -versionTooLowTest = True -#endif - -check :: (Show a, Eq a) => a -> a -> IO () -check x y = when (x /= y) $ error $ "Failed check: " ++ show (x, y) - -main :: IO () -main = do - check foo 42 - check VERSION_lib_a_Z "1.2.3.4" - check libPackageKey "testsZSpackage-nameZSlib-a-ZZ" - check versionHighEnoughTest True - check versionTooLowTest True diff --git a/third_party/bazel/rules_haskell/tests/repl-flags/BUILD.bazel b/third_party/bazel/rules_haskell/tests/repl-flags/BUILD.bazel deleted file mode 100644 index 8fd099dc4d..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-flags/BUILD.bazel +++ /dev/null @@ -1,45 +0,0 @@ -load("@io_tweag_rules_haskell//haskell:haskell.bzl", "haskell_test") - -package(default_testonly = 1) - -# This test the `compiler` flags in many ways: -# - the test needs to be built with `-DTESTS_TOOLCHAIN_COMPILER_FLAGS`, provided by the toolchain attribute `compiler_flags` -# - the test needs `-XOverloadedStrings`, provided by this rule `compiler_flags` -# - toolchain and rule `compiler_flags` are additive, else one of the previous test will fail -# - the ordering is as such as rule flags are more important that toolchain flags - -# This rule must build correctly (using `bazel build`), but also as a repl (using `bazel run //tests/repl-flags:compiler_flags@repl`) -haskell_test( - name = "compiler_flags", - srcs = ["CompilerFlags.hs"], - - # This also ensure that local `compiler_flags` does not override the `global ones` - compiler_flags = ["-XOverloadedStrings"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) - -# This test the `repl_ghci_args` flags in a similar way -# - the test needs to be built with `-DTESTS_TOOLCHAIN_REPL_FLAGS`, provided by the toolchain attribute `compiler_flags` -# - the test needs `-XOverloadedStrings`, provided by toolchain `repl_ghci_args` -# - toolchain and rule `compiler_flags` are additive, else one of the previous test will fail -# - the ordering is as such as rule flags are more important that -# toolchain flags and that repl flags are more important that -# copmiler flags - -# This rule must build correctly (using `bazel build`), but also as a repl (using `bazel run //tests/repl-flags:compiler_flags@repl`). The final result between the repl and the binary must be different -haskell_test( - name = "repl_flags", - srcs = ["ReplFlags.hs"], - - # This also ensure that local `repl_flags` does not override the `global ones` - repl_ghci_args = ["-DTESTS_TOOLCHAIN_REPL_FLAGS"], - visibility = ["//visibility:public"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/repl-flags/CompilerFlags.hs b/third_party/bazel/rules_haskell/tests/repl-flags/CompilerFlags.hs deleted file mode 100644 index 5470fe11b5..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-flags/CompilerFlags.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# LANGUAGE CPP #-} - -module Main where - -import Data.ByteString - -#ifdef TESTS_TOOLCHAIN_COMPILER_FLAGS -main = print ("hello" :: ByteString) -#endif - diff --git a/third_party/bazel/rules_haskell/tests/repl-flags/ReplFlags.hs b/third_party/bazel/rules_haskell/tests/repl-flags/ReplFlags.hs deleted file mode 100644 index 137ec93a72..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-flags/ReplFlags.hs +++ /dev/null @@ -1,17 +0,0 @@ -{-# LANGUAGE CPP #-} -module Main where - -import Data.ByteString - --- Ensure that `compiler-flags` are correctly set -#ifdef TESTS_TOOLCHAIN_COMPILER_FLAGS -main = print "hello" -#endif - --- Ensure that `repl_ghci_args` are correctly set --- OverloadedString is passed by toolchain --- The CPP constant is unset by toolchain and set by rule, so ordering must be ensured -#ifdef TESTS_TOOLCHAIN_REPL_FLAGS -foo = ("world" :: ByteString) -#endif - diff --git a/third_party/bazel/rules_haskell/tests/repl-name-conflicts/BUILD.bazel b/third_party/bazel/rules_haskell/tests/repl-name-conflicts/BUILD.bazel deleted file mode 100644 index ea2366cf3e..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-name-conflicts/BUILD.bazel +++ /dev/null @@ -1,15 +0,0 @@ -load("@io_tweag_rules_haskell//haskell:haskell.bzl", "haskell_library") - -package(default_testonly = 1) - -# The module in this library hides a lot of identifiers from Prelude and other -# modules used in the repl init script. -# This shouldn't break the @repl target -haskell_library( - name = "lib", - srcs = ["PreludeShadowing.hs"], - deps = [ - "//tests/hackage:base", - "//tests/hackage:bytestring", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/repl-name-conflicts/PreludeShadowing.hs b/third_party/bazel/rules_haskell/tests/repl-name-conflicts/PreludeShadowing.hs deleted file mode 100644 index 02ecd02684..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-name-conflicts/PreludeShadowing.hs +++ /dev/null @@ -1,12 +0,0 @@ -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} - -module PreludeShadowing where - -import Data.ByteString - -(>>=) :: ByteString -> ByteString -> ByteString -_ >>= _ = "blah" - -stdin :: ByteString -stdin = "stdin" diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/BUILD.bazel b/third_party/bazel/rules_haskell/tests/repl-targets/BUILD.bazel deleted file mode 100644 index 2fd78bfd66..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/BUILD.bazel +++ /dev/null @@ -1,81 +0,0 @@ -load("@io_tweag_rules_haskell//haskell:c2hs.bzl", "c2hs_library") -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package(default_testonly = 1) - -genrule( - name = "codegen", - outs = [ - "Gen.hs", - ], - cmd = """ - echo "module Gen (gen) where" >> $(location :Gen.hs) - echo "gen :: String" >> $(location :Gen.hs) - echo "gen = \\"gen\\"" >> $(location :Gen.hs) -""", -) - -c2hs_library( - name = "chs", - srcs = ["Chs.chs"], - tags = ["requires_c2hs"], -) - -haskell_library( - name = "hs-lib", - srcs = [ - "Foo.hs", - "Hsc.hsc", - ":chs", - ":codegen", - ], - tags = [ - "requires_hackage", - "requires_zlib", - ], - visibility = ["//visibility:public"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:array", - "//tests/hackage:base", - "@zlib", - ], -) - -haskell_library( - name = "hs-lib-bad", - srcs = [ - "Bad.hs", - ], - tags = [ - "manual", - "requires_zlib", - ], - visibility = ["//visibility:public"], - deps = [ - "//tests/data:ourclibrary", - "//tests/hackage:base", - "@hackage//:array", - "@zlib", - ], -) - -haskell_library( - name = "QuuxLib", - srcs = ["QuuxLib.hs"], - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "hs-bin", - srcs = ["Quux.hs"], - visibility = ["//visibility:public"], - deps = [ - ":QuuxLib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/Bad.hs b/third_party/bazel/rules_haskell/tests/repl-targets/Bad.hs deleted file mode 100644 index 2889be2ba7..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/Bad.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Bad - ( bad ) -where - -bad :: Into -bad = "foo" diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/Chs.chs b/third_party/bazel/rules_haskell/tests/repl-targets/Chs.chs deleted file mode 100644 index c66bae7d60..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/Chs.chs +++ /dev/null @@ -1,6 +0,0 @@ -module Chs - ( baz ) -where - -baz :: String -baz = "baz" diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/Foo.hs b/third_party/bazel/rules_haskell/tests/repl-targets/Foo.hs deleted file mode 100644 index 5e5138418d..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/Foo.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} - -module Foo (foo) where - -foreign import ccall "c_add_one" - c_add_one :: Int -> Int - -foo :: Int -> Int -foo = (+ 5) . c_add_one diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/Hsc.hsc b/third_party/bazel/rules_haskell/tests/repl-targets/Hsc.hsc deleted file mode 100644 index d4e3d6605c..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/Hsc.hsc +++ /dev/null @@ -1,8 +0,0 @@ -module Hsc - ( bar ) -where - -#ifndef _INTERNAL_HSC_DO_NOT_DEFINE_ME -bar :: String -bar = "bar" -#endif diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/Quux.hs b/third_party/bazel/rules_haskell/tests/repl-targets/Quux.hs deleted file mode 100644 index 2e67d221fb..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/Quux.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main (main) where - -import QuuxLib (message) - -main :: IO () -main = putStrLn message diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/QuuxLib.hs b/third_party/bazel/rules_haskell/tests/repl-targets/QuuxLib.hs deleted file mode 100644 index d321de2add..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/QuuxLib.hs +++ /dev/null @@ -1,4 +0,0 @@ -module QuuxLib (message) where - -message :: String -message = "Hello GHCi!" diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/src/Bar.hs b/third_party/bazel/rules_haskell/tests/repl-targets/src/Bar.hs deleted file mode 100644 index 18fe359e0a..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/src/Bar.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Bar (bar) where - -bar :: Int -bar = 4 diff --git a/third_party/bazel/rules_haskell/tests/repl-targets/src/Baz.hsc b/third_party/bazel/rules_haskell/tests/repl-targets/src/Baz.hsc deleted file mode 100644 index 984ec4ff0a..0000000000 --- a/third_party/bazel/rules_haskell/tests/repl-targets/src/Baz.hsc +++ /dev/null @@ -1,4 +0,0 @@ -module Baz (baz) where - -baz :: Int -baz = 8 diff --git a/third_party/bazel/rules_haskell/tests/rule_test_exe.bzl b/third_party/bazel/rules_haskell/tests/rule_test_exe.bzl deleted file mode 100644 index fdecbb3858..0000000000 --- a/third_party/bazel/rules_haskell/tests/rule_test_exe.bzl +++ /dev/null @@ -1,14 +0,0 @@ -load("@bazel_tools//tools/build_rules:test_rules.bzl", "rule_test") - -def rule_test_exe(generates, **kwargs): - """ - Like 'rule_test' but appends ".exe" to the elements of - "generates". - """ - - new_generates = select({ - "@bazel_tools//src/conditions:windows": [e + ".exe" for e in generates], - "//conditions:default": generates, - }) - - rule_test(generates = new_generates, **kwargs) diff --git a/third_party/bazel/rules_haskell/tests/run-start-script.sh b/third_party/bazel/rules_haskell/tests/run-start-script.sh deleted file mode 100755 index 6803581f00..0000000000 --- a/third_party/bazel/rules_haskell/tests/run-start-script.sh +++ /dev/null @@ -1,30 +0,0 @@ -#!/bin/sh - -# Run the start script in its own workspace -# and build the example binary target. - -set -e - -pwd=$(pwd) -cd $(mktemp -d) -$pwd/start - -# Copy the bazel configuration, this is only useful for CI -mkdir tools -cp $pwd/.bazelrc .bazelrc - -# Set Nixpkgs in environment variable to avoid hardcoding it in -# start script itself. - -# overrides the used rules_haskell, because -# when we're testing the start on a feature branch (CI), -# the latest rules_haskell version doesn't always work. -# If on the branch we update Bazel to a version with breaking -# changes, then we need to adapt to those changes in the branch. -# Which in turn means the start script should pull in those changes too. - -NIX_PATH=nixpkgs=$pwd/nixpkgs/default.nix \ - bazel build \ - --config=ci \ - --override_repository=io_tweag_rules_haskell=$pwd \ - //:example diff --git a/third_party/bazel/rules_haskell/tests/scripts/exec.sh b/third_party/bazel/rules_haskell/tests/scripts/exec.sh deleted file mode 100755 index 2a6c2a8100..0000000000 --- a/third_party/bazel/rules_haskell/tests/scripts/exec.sh +++ /dev/null @@ -1,4 +0,0 @@ -#!/usr/bin/env bash -set -e - -exec "$1" diff --git a/third_party/bazel/rules_haskell/tests/textual-hdrs/BUILD.bazel b/third_party/bazel/rules_haskell/tests/textual-hdrs/BUILD.bazel deleted file mode 100644 index e66f497c77..0000000000 --- a/third_party/bazel/rules_haskell/tests/textual-hdrs/BUILD.bazel +++ /dev/null @@ -1,17 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_test", -) - -package(default_testonly = 1) - -haskell_test( - name = "textual-hdrs", - srcs = [ - "Main.hs", - "include/main_definition.h", - ], - compiler_flags = ["-Itests/textual-hdrs/include"], - visibility = ["//visibility:public"], - deps = ["//tests/hackage:base"], -) diff --git a/third_party/bazel/rules_haskell/tests/textual-hdrs/Main.hs b/third_party/bazel/rules_haskell/tests/textual-hdrs/Main.hs deleted file mode 100644 index f741091275..0000000000 --- a/third_party/bazel/rules_haskell/tests/textual-hdrs/Main.hs +++ /dev/null @@ -1,5 +0,0 @@ -{-# LANGUAGE CPP #-} - -module Main (main) where - -#include "main_definition.h" diff --git a/third_party/bazel/rules_haskell/tests/textual-hdrs/include/main_definition.h b/third_party/bazel/rules_haskell/tests/textual-hdrs/include/main_definition.h deleted file mode 100644 index 071eeddd87..0000000000 --- a/third_party/bazel/rules_haskell/tests/textual-hdrs/include/main_definition.h +++ /dev/null @@ -1,2 +0,0 @@ -main :: IO () -main = putStrLn "extras-included-during-comp" diff --git a/third_party/bazel/rules_haskell/tests/two-libs/BUILD.bazel b/third_party/bazel/rules_haskell/tests/two-libs/BUILD.bazel deleted file mode 100644 index d69dba515c..0000000000 --- a/third_party/bazel/rules_haskell/tests/two-libs/BUILD.bazel +++ /dev/null @@ -1,42 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) - -package( - default_testonly = 1, - default_visibility = ["//visibility:public"], -) - -haskell_library( - name = "one", - srcs = ["One.hs"], - deps = [ - "//tests/hackage:base", - ], -) - -haskell_library( - name = "two", - srcs = ["Two.hs"], - deps = [ - ":one", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "two-libs", - srcs = ["Main.hs"], - coverage_report_format = "html", - expected_covered_expressions_percentage = 55, - expected_uncovered_expression_count = 4, - experimental_coverage_source_patterns = [":two"], - strict_coverage_analysis = True, - tags = ["coverage-compatible"], - deps = [ - ":two", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/two-libs/Main.hs b/third_party/bazel/rules_haskell/tests/two-libs/Main.hs deleted file mode 100644 index 99ce449a52..0000000000 --- a/third_party/bazel/rules_haskell/tests/two-libs/Main.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Main where - -import Two (two) - -main :: IO () -main = putStrLn ("Two: " ++ show two) diff --git a/third_party/bazel/rules_haskell/tests/two-libs/One.hs b/third_party/bazel/rules_haskell/tests/two-libs/One.hs deleted file mode 100644 index f8f04ab264..0000000000 --- a/third_party/bazel/rules_haskell/tests/two-libs/One.hs +++ /dev/null @@ -1,4 +0,0 @@ -module One (one) where - -one :: Int -one = 1 diff --git a/third_party/bazel/rules_haskell/tests/two-libs/Two.hs b/third_party/bazel/rules_haskell/tests/two-libs/Two.hs deleted file mode 100644 index 5672263c3d..0000000000 --- a/third_party/bazel/rules_haskell/tests/two-libs/Two.hs +++ /dev/null @@ -1,14 +0,0 @@ -module Two (two) where - -import One (one) - -two :: Int -two = - if True then - one + one - else - if True then - 1 - else - 2 - \ No newline at end of file diff --git a/third_party/bazel/rules_haskell/tests/unit-tests/BUILD.bazel b/third_party/bazel/rules_haskell/tests/unit-tests/BUILD.bazel deleted file mode 100644 index 990035af68..0000000000 --- a/third_party/bazel/rules_haskell/tests/unit-tests/BUILD.bazel +++ /dev/null @@ -1,125 +0,0 @@ -load( - ":tests.bzl", - "create_rpath_entry_test", - "dedup_on_test", - "parent_dir_path_test", -) - -parent_dir_path_test( - name = "parent_dir_just_file", - filename = "foo", - output = ["."], -) - -parent_dir_path_test( - name = "parent_dir", - filename = "foo/", - output = ["foo"], -) - -parent_dir_path_test( - name = "parent_dir_file", - filename = "foo/bar", - output = ["foo"], -) - -parent_dir_path_test( - name = "parent_dir_file_dots", - filename = "foo/../bar", - output = [ - "foo", - "..", - ], -) - -parent_dir_path_test( - name = "parent_dir_rooted", - filename = "/foo/bar", - output = [ - "", - "foo", - ], -) - -create_rpath_entry_test( - name = "rpath_entry_simple", - binary_short_path = "foo/a.so", - dependency_short_path = "bar/b.so", - output = "../bar", -) - -# checks that a binary in //:bin works properly -create_rpath_entry_test( - name = "rpath_entry_binary_root", - binary_short_path = "bin", - dependency_short_path = "xyz/b.so", - output = "xyz", -) - -# same for dependency -create_rpath_entry_test( - name = "rpath_entry_dep_root", - binary_short_path = "lib/bin", - dependency_short_path = "b.so", - output = "..", -) - -create_rpath_entry_test( - name = "rpath_entry_simple_filename", - binary_short_path = "foo/a.so", - dependency_short_path = "bar/b.so", - keep_filename = True, - output = "../bar/b.so", -) - -create_rpath_entry_test( - name = "rpath_entry_prefix", - binary_short_path = "foo/a.so", - dependency_short_path = "bar/b.so", - output = "$ORIGIN/../bar", - prefix = "$ORIGIN", -) - -# if the short-paths have leading dots, they are in `external` - -create_rpath_entry_test( - name = "rpath_entry_binary_leading_dots_dep", - # non-external - binary_short_path = "foo/a.so", - # external dep - dependency_short_path = "../bar/b.so", - output = "../external/bar", -) - -create_rpath_entry_test( - name = "rpath_entry_binary_leading_dots_bin", - # external dep - binary_short_path = "../foo/a.so", - # non-external - dependency_short_path = "bar/b.so", - # back through `external` - output = "../../bar", -) - -create_rpath_entry_test( - name = "rpath_entry_binary_leading_dots_both", - # external dep - binary_short_path = "../foo/a.so", - # external dep - dependency_short_path = "../bar/b.so", - # stay in `external` - output = "../bar", -) - -# we have no idea how to handle internal dots, should they arise -# create_rpath_entry_test( -# name = "rpath_entry_binary_internal_dots", -# binary_short_path = "foo/../../a.so", -# dependency_short_path = "../bar/../b.so", -# # but that doesn’t change anything for the runpath -# output = "../bar", -# ) - -dedup_on_test( - name = "dedup_on_test", -) 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) diff --git a/third_party/bazel/rules_haskell/tests/version-macros/BUILD.bazel b/third_party/bazel/rules_haskell/tests/version-macros/BUILD.bazel deleted file mode 100644 index b2be1b7d15..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/BUILD.bazel +++ /dev/null @@ -1,59 +0,0 @@ -load( - "@io_tweag_rules_haskell//haskell:haskell.bzl", - "haskell_library", - "haskell_test", -) -load( - "@io_tweag_rules_haskell//haskell:c2hs.bzl", - "c2hs_library", -) - -package(default_testonly = 1) - -haskell_library( - name = "versioned-lib", - srcs = ["VersionedLib.hs"], - version = "1.2.3.4", - deps = ["//tests/hackage:base"], -) - -haskell_test( - name = "version_macros", - size = "small", - srcs = [ - "HsLib.hs", - "HscLib.hsc", - "Main.hs", - ], - version = "3.4.5.6", - deps = [ - ":versioned-lib", - "//tests/hackage:base", - ], -) - -c2hs_library( - name = "c2hs-lib", - srcs = ["C2hsLib.chs"], - tags = ["requires_c2hs"], - version = "4.5.6.7", - deps = [ - ":versioned-lib", - "//tests/hackage:base", - ], -) - -haskell_test( - name = "version_macros_c2hs", - size = "small", - srcs = [ - "MainC2hs.hs", - ":c2hs-lib", - ], - tags = ["requires_c2hs"], - version = "4.5.6.7", - deps = [ - ":versioned-lib", - "//tests/hackage:base", - ], -) diff --git a/third_party/bazel/rules_haskell/tests/version-macros/C2hsLib.chs b/third_party/bazel/rules_haskell/tests/version-macros/C2hsLib.chs deleted file mode 100644 index 4b484af2a3..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/C2hsLib.chs +++ /dev/null @@ -1,44 +0,0 @@ -module C2hsLib where - -import Control.Monad (unless) - -check_version_versioned_lib :: IO () -#ifndef VERSION_versioned_lib -check_version_versioned_lib = fail "c2hs: VERSION_versioned_lib missing" -#else -check_version_versioned_lib = - unless ({#const VERSION_versioned_lib#} == "1.2.3.4") $ - fail "c2hs: VERSION_versioned_lib invalid" -#endif - -check_min_version_versioned_lib :: IO () -#ifndef MIN_VERSION_versioned_lib -check_min_version_versioned_lib = fail "c2hs: MIN_VERSION_versioned_lib missing" -#elif !MIN_VERSION_versioned_lib(1,2,3) -check_min_version_versioned_lib = fail "c2hs: MIN_VERSION_versioned_lib invalid" -#else -check_min_version_versioned_lib = pure () -#endif - -check_version_base :: IO () -#ifndef VERSION_base -check_version_base = fail "c2hs: VERSION_base missing" -#else -check_version_base = pure () -#endif - -check_min_version_base :: IO () -#ifndef MIN_VERSION_base -check_min_version_base = fail "c2hs: MIN_VERSION_base missing" -#elif !MIN_VERSION_base(0,0,0) -check_min_version_base = fail "c2hs: MIN_VERSION_base invalid" -#else -check_min_version_base = pure () -#endif - -check :: IO () -check = do - check_version_versioned_lib - check_min_version_versioned_lib - check_version_base - check_min_version_base diff --git a/third_party/bazel/rules_haskell/tests/version-macros/HsLib.hs b/third_party/bazel/rules_haskell/tests/version-macros/HsLib.hs deleted file mode 100644 index ce61906c81..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/HsLib.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE CPP #-} - -module HsLib where - -import Control.Monad (unless) - -check_version_versioned_lib :: IO () -#ifndef VERSION_versioned_lib -check_version_versioned_lib = fail "hs: VERSION_versioned_lib missing" -#else -check_version_versioned_lib = - unless (VERSION_versioned_lib == "1.2.3.4") $ - fail "hs: VERSION_versioned_lib invalid" -#endif - -check_min_version_versioned_lib :: IO () -#ifndef MIN_VERSION_versioned_lib -check_min_version_versioned_lib = fail "hs: MIN_VERSION_versioned_lib missing" -#elif !MIN_VERSION_versioned_lib(1,2,3) -check_min_version_versioned_lib = fail "hs: MIN_VERSION_versioned_lib invalid" -#else -check_min_version_versioned_lib = pure () -#endif - -check_version_base :: IO () -#ifndef VERSION_base -check_version_base = fail "hs: VERSION_base missing" -#else -check_version_base = pure () -#endif - -check_min_version_base :: IO () -#ifndef MIN_VERSION_base -check_min_version_base = fail "hs: MIN_VERSION_base missing" -#elif !MIN_VERSION_base(0,0,0) -check_min_version_base = fail "hs: MIN_VERSION_base invalid" -#else -check_min_version_base = pure () -#endif - -check :: IO () -check = do - check_version_versioned_lib - check_min_version_versioned_lib - check_version_base - check_min_version_base diff --git a/third_party/bazel/rules_haskell/tests/version-macros/HscLib.hsc b/third_party/bazel/rules_haskell/tests/version-macros/HscLib.hsc deleted file mode 100644 index 387e73a089..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/HscLib.hsc +++ /dev/null @@ -1,44 +0,0 @@ -module HscLib where - -import Control.Monad (unless) - -check_version_versioned_lib :: IO () -#ifndef VERSION_versioned_lib -check_version_versioned_lib = fail "hsc2hs: VERSION_versioned_lib missing" -#else -check_version_versioned_lib = - unless (#{const_str VERSION_versioned_lib} == "1.2.3.4") $ - fail "hsc2hs: VERSION_versioned_lib invalid" -#endif - -check_min_version_versioned_lib :: IO () -#ifndef MIN_VERSION_versioned_lib -check_min_version_versioned_lib = fail "hsc2hs: MIN_VERSION_versioned_lib missing" -#elif !MIN_VERSION_versioned_lib(1,2,3) -check_min_version_versioned_lib = fail "hsc2hs: MIN_VERSION_versioned_lib invalid" -#else -check_min_version_versioned_lib = pure () -#endif - -check_version_base :: IO () -#ifndef VERSION_base -check_version_base = fail "hsc2hs: VERSION_base missing" -#else -check_version_base = pure () -#endif - -check_min_version_base :: IO () -#ifndef MIN_VERSION_base -check_min_version_base = fail "hsc2hs: MIN_VERSION_base missing" -#elif !MIN_VERSION_base(0,0,0) -check_min_version_base = fail "hsc2hs: MIN_VERSION_base invalid" -#else -check_min_version_base = pure () -#endif - -check :: IO () -check = do - check_version_versioned_lib - check_min_version_versioned_lib - check_version_base - check_min_version_base diff --git a/third_party/bazel/rules_haskell/tests/version-macros/Main.hs b/third_party/bazel/rules_haskell/tests/version-macros/Main.hs deleted file mode 100644 index bbcd108d0b..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/Main.hs +++ /dev/null @@ -1,9 +0,0 @@ -module Main where - -import qualified HscLib -import qualified HsLib - -main :: IO () -main = do - HscLib.check - HsLib.check diff --git a/third_party/bazel/rules_haskell/tests/version-macros/MainC2hs.hs b/third_party/bazel/rules_haskell/tests/version-macros/MainC2hs.hs deleted file mode 100644 index 82e4ec72e2..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/MainC2hs.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Main where - -import qualified C2hsLib - -main :: IO () -main = do - C2hsLib.check diff --git a/third_party/bazel/rules_haskell/tests/version-macros/VersionedLib.hs b/third_party/bazel/rules_haskell/tests/version-macros/VersionedLib.hs deleted file mode 100644 index 0dfd5577e7..0000000000 --- a/third_party/bazel/rules_haskell/tests/version-macros/VersionedLib.hs +++ /dev/null @@ -1 +0,0 @@ -module VersionedLib where |