mirror of
https://github.com/roc-lang/roc.git
synced 2025-12-15 21:23:57 +00:00
Support multiple modules in uitest
This commit is contained in:
parent
0ec0568ef9
commit
014ec8c092
5 changed files with 192 additions and 30 deletions
|
|
@ -1,9 +1,23 @@
|
|||
# +emit:mono
|
||||
app "test" provides [main] to "./platform"
|
||||
# +opt mono:no_check
|
||||
|
||||
main = ""
|
||||
## module Dep
|
||||
interface Dep exposes [defaultRequest] imports []
|
||||
|
||||
defaultRequest = {
|
||||
url: "",
|
||||
body: "",
|
||||
}
|
||||
|
||||
## module Test
|
||||
app "test" imports [Dep.{ defaultRequest }] provides [main] to "./platform"
|
||||
|
||||
main =
|
||||
{ defaultRequest & url: "http://www.example.com" }
|
||||
|
||||
# -emit:mono
|
||||
procedure Test.0 ():
|
||||
let Test.1 : Str = "";
|
||||
let Test.3 : Str = "http://www.example.com";
|
||||
let Test.2 : Str = StructAtIndex 0 Dep.0;
|
||||
let Test.1 : {Str, Str} = Struct {Test.2, Test.3};
|
||||
ret Test.1;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue