From 2ef440562c34c0a556be0b861c993a4578b6c1fb Mon Sep 17 00:00:00 2001 From: Didrik Munther Date: Fri, 22 Nov 2024 12:26:32 -0800 Subject: [PATCH] Rename tests for externals --- stdlib/ext/file-ext.mc | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/stdlib/ext/file-ext.mc b/stdlib/ext/file-ext.mc index 3443d8ba4..a38795de3 100644 --- a/stdlib/ext/file-ext.mc +++ b/stdlib/ext/file-ext.mc @@ -120,12 +120,12 @@ with ("Hello", "Next string", "Final", "EOF") in -- Test reading x amount of characters from the file utest - match readOpen filename with Some rc then - let l1 = match readBytes rc 3 with Some s then s else "" in - let l2 = match readBytes rc 4 with Some s then s else "" in - let l3 = match readBytes rc 0 with Some s then s else "" in - let l4 = match readBytes rc 1 with Some s then s else "" in - readClose rc; + match fileReadOpen filename with Some rc then + let l1 = match fileReadBytes rc 3 with Some s then s else "" in + let l2 = match fileReadBytes rc 4 with Some s then s else "" in + let l3 = match fileReadBytes rc 0 with Some s then s else "" in + let l4 = match fileReadBytes rc 1 with Some s then s else "" in + fileReadClose rc; (l1,l2,l3,l4) else ("Error reading file","","","") with ("Hel", "lo\nN", "", "e") in