add check for expected contents

roc-lang · Nov 22, 2023 · 9d60e91 · 9d60e91
1 parent b2572a9
commit 9d60e91
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/examples/dir.roc b/examples/dir.roc
@@ -28,12 +28,16 @@ main =
         createChildShouldSucceed == Ok {}
 
     # List the contents of a directory
-    _ <- 
+    paths <-
         Path.fromStr "a"
-        |> Dir.list 
+        |> Dir.list
         |> Task.onErr \_ -> crash "Failed to list directory"
         |> Task.await
 
+    # Check the contents of the directory
+    expect
+        (List.map paths Path.display) == ["b", "child"]
+
     # Try to create a directory without a parent
     createWithoutParentShouldFail <- Task.attempt (Dir.create (Path.fromStr "d/child"))
     expect