genodepkgs/tests/solo5/solo5.dhall

48 行
1.3 KiB
Plaintext

let Test = ../test.dhall ? env:DHALL_GENODE_TEST
let Genode = Test.Genode
let Prelude = Genode.Prelude
let Init = Genode.Init
let Child = Init.Child
let Config = Init.Config
let toSimple =
λ(testName : Text) →
Child.flat
Child.Attributes::{
, binary = "solo5-test_${testName}"
, resources = Init.Resources::{ caps = 256, ram = Genode.units.MiB 3 }
, config = Config::{
, content =
[ Prelude.XML.element
{ name = "cmdline"
, attributes = Prelude.XML.emptyAttributes
, content = [ Prelude.XML.text "Hello_Solo5" ]
}
]
}
}
in λ(params : { isAarch64 : Bool }) →
let tests
: Prelude.Map.Type Text Child.Type
= toMap
{ quiet = toSimple "quiet"
, hello = toSimple "hello"
, globals = toSimple "globals"
, time = ./time.dhall
, blk = ./blk.dhall
, net = ./net.dhall
, net_2if = ./net_2if.dhall
}
# ( if params.isAarch64
then Prelude.Map.empty Text Child.Type
else toMap { fpu = toSimple "fpu" }
)
in Test::{ children = tests }