From 4c1f0aca7af9eaedd66ce1244557358d9d36411c Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sun, 22 Jul 2018 16:30:49 -0700 Subject: Moving all the rest of the tests over to inline versions. --- lib/os.nom | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'lib/os.nom') diff --git a/lib/os.nom b/lib/os.nom index 1acc41f..223c139 100644 --- a/lib/os.nom +++ b/lib/os.nom @@ -4,6 +4,9 @@ use "core" +test: + path of Nomsu file "lib/os.nom" + action [path of Nomsu file %filename]: lua> "for i,f in Files.walk(\%filename) do return f end" barf "Could not find file: \%filename" @@ -15,7 +18,13 @@ action [sh> %cmd]: result:close() return contents +test: + read file "lib/os.nom" + action [read file %filename] (=lua "Files.read(\%filename)") +test: + for file %f in "core": do nothing + compile [for file %f in %path %body] to (..) Lua ".." for i,\(%f as lua expr) in Files.walk(\(%path as lua expr)) do @@ -43,8 +52,18 @@ action [..] file:write(\%text) file:close() +test: + assume ((line number of 3 in "x\ny") == 2) + action [line number of %pos in %str] (=lua "Files.get_line_number(\%str, \%pos)") +test: + assume ((line 2 in "one\ntwo\nthree") == "two") + action [line %line_num in %str] (=lua "Files.get_line(\%str, \%line_num)") + +test: + assume (source lines of \(this)) + action [source lines of %tree]: %source = (%tree.source if (%tree is syntax tree) else %tree) %file = (read file %source.filename) -- cgit v1.2.3