Merge branch 'master' of ssh://git.eclipse.org/gitroot/koneki/org.eclipse.koneki...

[metalua.git] / src / tests / reweave.mlua

diff --git a/src/tests/reweave.mlua b/src/tests/reweave.mlua
deleted file mode 100644 (file)
index 9cf2258..0000000
--- a/src/tests/reweave.mlua
+++ /dev/null
@@ -1,25 +0,0 @@
--{ extension 'xloop' }
-
-ls = io.popen ( (os.getenv("OS") or "") :match "^Windows" and "dir /b reweave" or "ls reweave")
-this_script = arg[1]
-
-local errors = {}
-
-for filename in ls :lines() if filename :strmatch  "%.m?lua$" do
-   printf ("--- weaver check %s ---", filename)
-   local ret = os.execute ("metalua ../samples/weaver.mlua reweave/"..filename.." | diff -q reweave/"..filename.." -")
-   if ret ~= 0 then
-      print("================================================================================") 
-      print("Reweaved source does not match original:") 
-      print("================================================================================") 
-      os.execute ("metalua ../samples/weaver.mlua reweave/"..filename.." | diff reweave/"..filename.." -")
-      errors[#errors + 1] = "Reweaving of "..filename.." failed, returned "..ret
-   end
-end
-
-ls :close()
-
-if #errors > 0 then
-   print("================================================================================") 
-   error("REWEAVING ERRORS DETECTED:\n * " .. table.concat(errors, "\n * ")) 
-end