Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 6 additions & 5 deletions ci/expect_scripts/file.exp
Original file line number Diff line number Diff line change
Expand Up @@ -64,12 +64,13 @@ expect "Testing some File functions..." {
expect "✓ File.exists! returns true for a file that exists" {
expect "✓ File.exists! returns false for a file that does not exist" {

# Cleanup phase
expect "Cleaning up test files..." {
expect "✓ Deleted all files." {
expect "I ran all file function tests." {

expect "Cleaning up test files..." {
expect "✓ Deleted all files." {

# Final completion message

# Final completion message
expect "I ran all file function tests." {
expect eof {
check_exit_and_segfault
}
Expand Down
32 changes: 15 additions & 17 deletions ci/expect_scripts/path-test.exp
Original file line number Diff line number Diff line change
Expand Up @@ -91,24 +91,23 @@ expect "Testing Path functions..." {
expect "✓ Path.exists! returns true for a file that exists" {
expect "✓ Path.exists! returns false for a file that does not exist" {
expect "" {

# Cleanup phase
expect "Cleaning up test files..." {
expect "Files to clean up:" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_bytes\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_hardlink\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_json\\.json" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_original\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_rename_new\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_utf8\\.txt" {
expect "" {
expect "Files remaining after cleanup: Bool.false" {
expect "I ran all Path function tests." {
expect "" {

# Cleanup phase
expect "Cleaning up test files..." {
expect "Files to clean up:" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_bytes\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_hardlink\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_json\\.json" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_original\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_rename_new\\.txt" {
expect -re "-rw-r--r-- \\d+ \\w+ \\w+ \\d+ \\w+ +\\d+ \\d+:\\d+ test_path_utf8\\.txt" {
expect "" {

# Final completion message
expect "I ran all Path function tests." {
expect "Files remaining after cleanup: Bool.false" {
expect eof {
check_exit_and_segfault
check_exit_and_segfault
}
}
}
}
Expand All @@ -121,7 +120,6 @@ expect "Testing Path functions..." {
}
}
}
}
}
}
}
Expand Down
4 changes: 2 additions & 2 deletions examples/http.roc
Original file line number Diff line number Diff line change
Expand Up @@ -48,7 +48,7 @@ main! = |_args|
{
method: GET,
headers: [],
uri: "https://github.com",
uri: "https://www.example.com",
body: [],
timeout_ms: TimeoutMilliseconds(5000),
},
Expand All @@ -63,7 +63,7 @@ main! = |_args|

response_2 =
Http.default_request
|> &uri "https://github.com"
|> &uri "https://www.example.com"
|> &headers [Http.header(("Accept", "text/html"))]
|> Http.send!()?

Expand Down
Loading