2020-04-19 18:01:37 +00:00
|
|
|
|
import ./make-test-python.nix ({ pkgs, ... }:
|
|
|
|
|
|
|
|
|
|
let
|
|
|
|
|
hello-world = pkgs.writeText "hello-world" ''
|
2021-07-15 06:47:25 +00:00
|
|
|
|
{-# OPTIONS --guardedness #-}
|
2020-04-19 18:01:37 +00:00
|
|
|
|
open import IO
|
2021-03-17 22:01:59 +00:00
|
|
|
|
open import Level
|
2020-04-19 18:01:37 +00:00
|
|
|
|
|
2021-03-17 22:01:59 +00:00
|
|
|
|
main = run {0ℓ} (putStrLn "Hello World!")
|
2020-04-19 18:01:37 +00:00
|
|
|
|
'';
|
|
|
|
|
in
|
|
|
|
|
{
|
|
|
|
|
name = "agda";
|
2021-01-10 19:08:30 +00:00
|
|
|
|
meta = with pkgs.lib.maintainers; {
|
2020-04-19 18:01:37 +00:00
|
|
|
|
maintainers = [ alexarice turion ];
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
machine = { pkgs, ... }: {
|
|
|
|
|
environment.systemPackages = [
|
|
|
|
|
(pkgs.agda.withPackages {
|
|
|
|
|
pkgs = p: [ p.standard-library ];
|
|
|
|
|
})
|
|
|
|
|
];
|
|
|
|
|
virtualisation.memorySize = 2000; # Agda uses a lot of memory
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
testScript = ''
|
2021-01-18 19:01:31 +00:00
|
|
|
|
assert (
|
|
|
|
|
"${pkgs.agdaPackages.lib.interfaceFile "Everything.agda"}" == "Everything.agdai"
|
|
|
|
|
), "wrong interface file for Everything.agda"
|
|
|
|
|
assert (
|
|
|
|
|
"${pkgs.agdaPackages.lib.interfaceFile "tmp/Everything.agda.md"}" == "tmp/Everything.agdai"
|
|
|
|
|
), "wrong interface file for tmp/Everything.agda.md"
|
|
|
|
|
|
2020-04-19 18:01:37 +00:00
|
|
|
|
# Minimal script that typechecks
|
|
|
|
|
machine.succeed("touch TestEmpty.agda")
|
|
|
|
|
machine.succeed("agda TestEmpty.agda")
|
|
|
|
|
|
2020-09-16 09:59:30 +00:00
|
|
|
|
# Hello world
|
2020-04-19 18:01:37 +00:00
|
|
|
|
machine.succeed(
|
|
|
|
|
"cp ${hello-world} HelloWorld.agda"
|
|
|
|
|
)
|
|
|
|
|
machine.succeed("agda -l standard-library -i . -c HelloWorld.agda")
|
2021-01-22 16:25:29 +00:00
|
|
|
|
# Check execution
|
|
|
|
|
assert "Hello World!" in machine.succeed(
|
|
|
|
|
"./HelloWorld"
|
|
|
|
|
), "HelloWorld does not run properly"
|
2020-04-19 18:01:37 +00:00
|
|
|
|
'';
|
|
|
|
|
}
|
|
|
|
|
)
|