diff --git a/integration-tests/file-system/.gitignore b/integration-tests/file-system/.gitignore new file mode 100644 index 0000000..fe15217 --- /dev/null +++ b/integration-tests/file-system/.gitignore @@ -0,0 +1,3 @@ +app +.gren +node_modules/ diff --git a/integration-tests/file-system/Makefile b/integration-tests/file-system/Makefile new file mode 100644 index 0000000..f35ef35 --- /dev/null +++ b/integration-tests/file-system/Makefile @@ -0,0 +1,17 @@ +KERNEL_SOURCES := $(wildcard ../../src/Gren/Kernel/*.js) + +bin/app: Makefile gren.json src/Main.gren $(KERNEL_SOURCES) + gren make --optimize Main --output=bin/app + +.PHONY: test +test: bin/app node_modules + npm test + +node_modules: package.json package-lock.json + npm ci + +.PHONY: clean +clean: + rm -rf .gren + rm -rf node_modules + rm bin/app diff --git a/integration-tests/file-system/bin/.gitkeep b/integration-tests/file-system/bin/.gitkeep new file mode 100644 index 0000000..e69de29 diff --git a/integration-tests/file-system/gren.json b/integration-tests/file-system/gren.json new file mode 100644 index 0000000..9bf7c12 --- /dev/null +++ b/integration-tests/file-system/gren.json @@ -0,0 +1,17 @@ +{ + "type": "application", + "platform": "node", + "source-directories": [ + "src" + ], + "gren-version": "0.6.5", + "dependencies": { + "direct": { + "gren-lang/core": "7.0.0", + "gren-lang/node": "local:../.." + }, + "indirect": { + "gren-lang/url": "6.0.0" + } + } +} diff --git a/integration-tests/file-system/gren_packages/gren_lang_core__7_0_0.pkg.gz b/integration-tests/file-system/gren_packages/gren_lang_core__7_0_0.pkg.gz new file mode 100644 index 0000000..5ef93cb Binary files /dev/null and b/integration-tests/file-system/gren_packages/gren_lang_core__7_0_0.pkg.gz differ diff --git a/integration-tests/file-system/gren_packages/gren_lang_url__6_0_0.pkg.gz b/integration-tests/file-system/gren_packages/gren_lang_url__6_0_0.pkg.gz new file mode 100644 index 0000000..f6e28d8 Binary files /dev/null and b/integration-tests/file-system/gren_packages/gren_lang_url__6_0_0.pkg.gz differ diff --git a/integration-tests/file-system/package-lock.json b/integration-tests/file-system/package-lock.json new file mode 100644 index 0000000..7aaf5d6 --- /dev/null +++ b/integration-tests/file-system/package-lock.json @@ -0,0 +1,935 @@ +{ + "name": "file-system", + "lockfileVersion": 3, + "requires": true, + "packages": { + "": { + "devDependencies": { + "mocha": "^10.2.0" + } + }, + "node_modules/ansi-colors": { + "version": "4.1.3", + "resolved": "https://registry.npmjs.org/ansi-colors/-/ansi-colors-4.1.3.tgz", + "integrity": "sha512-/6w/C21Pm1A7aZitlI5Ni/2J6FFQN8i1Cvz3kHABAAbw93v/NlvKdVOqz7CCWz/3iv/JplRSEEZ83XION15ovw==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=6" + } + }, + "node_modules/ansi-regex": { + "version": "5.0.1", + "resolved": "https://registry.npmjs.org/ansi-regex/-/ansi-regex-5.0.1.tgz", + "integrity": "sha512-quJQXlTSUGL2LH9SUXo8VwsY4soanhgo6LNSm84E1LBcE8s3O0wpdiRzyR9z/ZZJMlMWv37qOOb9pdJlMUEKFQ==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + } + }, + "node_modules/ansi-styles": { + "version": "4.3.0", + "resolved": "https://registry.npmjs.org/ansi-styles/-/ansi-styles-4.3.0.tgz", + "integrity": "sha512-zbB9rCJAT1rbjiVDb2hqKFHNYLxgtk8NURxZ3IZwD3F6NtxbXZQCnnSi1Lkx+IDohdPlFp222wVALIheZJQSEg==", + "dev": true, + "license": "MIT", + "dependencies": { + "color-convert": "^2.0.1" + }, + "engines": { + "node": ">=8" + }, + "funding": { + "url": "https://github.com/chalk/ansi-styles?sponsor=1" + } + }, + "node_modules/anymatch": { + "version": "3.1.3", + "resolved": "https://registry.npmjs.org/anymatch/-/anymatch-3.1.3.tgz", + "integrity": "sha512-KMReFUr0B4t+D+OBkjR3KYqvocp2XaSzO55UcB6mgQMd3KbcE+mWTyvVV7D/zsdEbNnV6acZUutkiHQXvTr1Rw==", + "dev": true, + "license": "ISC", + "dependencies": { + "normalize-path": "^3.0.0", + "picomatch": "^2.0.4" + }, + "engines": { + "node": ">= 8" + } + }, + "node_modules/argparse": { + "version": "2.0.1", + "resolved": "https://registry.npmjs.org/argparse/-/argparse-2.0.1.tgz", + "integrity": "sha512-8+9WqebbFzpX9OR+Wa6O29asIogeRMzcGtAINdpMHHyAg10f05aSFVBbcEqGf/PXw1EjAZ+q2/bEBg3DvurK3Q==", + "dev": true, + "license": "Python-2.0" + }, + "node_modules/balanced-match": { + "version": "1.0.2", + "resolved": "https://registry.npmjs.org/balanced-match/-/balanced-match-1.0.2.tgz", + "integrity": "sha512-3oSeUO0TMV67hN1AmbXsK4yaqU7tjiHlbxRDZOpH0KW9+CeX4bRAaX0Anxt0tx2MrpRpWwQaPwIlISEJhYU5Pw==", + "dev": true, + "license": "MIT" + }, + "node_modules/binary-extensions": { + "version": "2.3.0", + "resolved": "https://registry.npmjs.org/binary-extensions/-/binary-extensions-2.3.0.tgz", + "integrity": "sha512-Ceh+7ox5qe7LJuLHoY0feh3pHuUDHAcRUeyL2VYghZwfpkNIy/+8Ocg0a3UuSoYzavmylwuLWQOf3hl0jjMMIw==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/brace-expansion": { + "version": "2.1.4", + "resolved": "https://registry.npmjs.org/brace-expansion/-/brace-expansion-2.1.4.tgz", + "integrity": "sha512-hGfVzPxthbf3+2yjg/RBs60cB0FhqBS/zvdV/4wn4/BmN0bNMMHPc4V/BbFieqf1TKAGGAHnY4eSjajCl0f2Xg==", + "dev": true, + "license": "MIT", + "dependencies": { + "balanced-match": "^1.0.0" + } + }, + "node_modules/braces": { + "version": "3.0.3", + "resolved": "https://registry.npmjs.org/braces/-/braces-3.0.3.tgz", + "integrity": "sha512-yQbXgO/OSZVD2IsiLlro+7Hf6Q18EJrKSEsdoMzKePKXct3gvD8oLcOQdIzGupr5Fj+EDe8gO/lxc1BzfMpxvA==", + "dev": true, + "license": "MIT", + "dependencies": { + "fill-range": "^7.1.1" + }, + "engines": { + "node": ">=8" + } + }, + "node_modules/browser-stdout": { + "version": "1.3.1", + "resolved": "https://registry.npmjs.org/browser-stdout/-/browser-stdout-1.3.1.tgz", + "integrity": "sha512-qhAVI1+Av2X7qelOfAIYwXONood6XlZE/fXaBSmW/T5SzLAmCgzi+eiWE7fUvbHaeNBQH13UftjpXxsfLkMpgw==", + "dev": true, + "license": "ISC" + }, + "node_modules/camelcase": { + "version": "6.3.0", + "resolved": "https://registry.npmjs.org/camelcase/-/camelcase-6.3.0.tgz", + "integrity": "sha512-Gmy6FhYlCY7uOElZUSbxo2UCDH8owEk996gkbrpsgGtrJLM3J7jGxl9Ic7Qwwj4ivOE5AWZWRMecDdF7hqGjFA==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/chalk": { + "version": "4.1.2", + "resolved": "https://registry.npmjs.org/chalk/-/chalk-4.1.2.tgz", + "integrity": "sha512-oKnbhFyRIXpUuez8iBMmyEa4nbj4IOQyuhc/wy9kY7/WVPcwIO9VA668Pu8RkO7+0G76SLROeyw9CpQ061i4mA==", + "dev": true, + "license": "MIT", + "dependencies": { + "ansi-styles": "^4.1.0", + "supports-color": "^7.1.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/chalk/chalk?sponsor=1" + } + }, + "node_modules/chalk/node_modules/supports-color": { + "version": "7.2.0", + "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-7.2.0.tgz", + "integrity": "sha512-qpCAvRl9stuOHveKsn7HncJRvv501qIacKzQlO/+Lwxc9+0q2wLyv4Dfvt80/DPn2pqOBsJdDiogXGR9+OvwRw==", + "dev": true, + "license": "MIT", + "dependencies": { + "has-flag": "^4.0.0" + }, + "engines": { + "node": ">=8" + } + }, + "node_modules/chokidar": { + "version": "3.6.0", + "resolved": "https://registry.npmjs.org/chokidar/-/chokidar-3.6.0.tgz", + "integrity": "sha512-7VT13fmjotKpGipCW9JEQAusEPE+Ei8nl6/g4FBAmIm0GOOLMua9NDDo/DWp0ZAxCr3cPq5ZpBqmPAQgDda2Pw==", + "dev": true, + "license": "MIT", + "dependencies": { + "anymatch": "~3.1.2", + "braces": "~3.0.2", + "glob-parent": "~5.1.2", + "is-binary-path": "~2.1.0", + "is-glob": "~4.0.1", + "normalize-path": "~3.0.0", + "readdirp": "~3.6.0" + }, + "engines": { + "node": ">= 8.10.0" + }, + "funding": { + "url": "https://paulmillr.com/funding/" + }, + "optionalDependencies": { + "fsevents": "~2.3.2" + } + }, + "node_modules/cliui": { + "version": "7.0.4", + "resolved": "https://registry.npmjs.org/cliui/-/cliui-7.0.4.tgz", + "integrity": "sha512-OcRE68cOsVMXp1Yvonl/fzkQOyjLSu/8bhPDfQt0e0/Eb283TKP20Fs2MqoPsr9SwA595rRCA+QMzYc9nBP+JQ==", + "dev": true, + "license": "ISC", + "dependencies": { + "string-width": "^4.2.0", + "strip-ansi": "^6.0.0", + "wrap-ansi": "^7.0.0" + } + }, + "node_modules/color-convert": { + "version": "2.0.1", + "resolved": "https://registry.npmjs.org/color-convert/-/color-convert-2.0.1.tgz", + "integrity": "sha512-RRECPsj7iu/xb5oKYcsFHSppFNnsj/52OVTRKb4zP5onXwVF3zVmmToNcOfGC+CRDpfK/U584fMg38ZHCaElKQ==", + "dev": true, + "license": "MIT", + "dependencies": { + "color-name": "~1.1.4" + }, + "engines": { + "node": ">=7.0.0" + } + }, + "node_modules/color-name": { + "version": "1.1.4", + "resolved": "https://registry.npmjs.org/color-name/-/color-name-1.1.4.tgz", + "integrity": "sha512-dOy+3AuW3a2wNbZHIuMZpTcgjGuLU/uBL/ubcZF9OXbDo8ff4O8yVp5Bf0efS8uEoYo5q4Fx7dY9OgQGXgAsQA==", + "dev": true, + "license": "MIT" + }, + "node_modules/debug": { + "version": "4.4.3", + "resolved": "https://registry.npmjs.org/debug/-/debug-4.4.3.tgz", + "integrity": "sha512-RGwwWnwQvkVfavKVt22FGLw+xYSdzARwm0ru6DhTVA3umU5hZc28V3kO4stgYryrTlLpuvgI9GiijltAjNbcqA==", + "dev": true, + "license": "MIT", + "dependencies": { + "ms": "^2.1.3" + }, + "engines": { + "node": ">=6.0" + }, + "peerDependenciesMeta": { + "supports-color": { + "optional": true + } + } + }, + "node_modules/decamelize": { + "version": "4.0.0", + "resolved": "https://registry.npmjs.org/decamelize/-/decamelize-4.0.0.tgz", + "integrity": "sha512-9iE1PgSik9HeIIw2JO94IidnE3eBoQrFJ3w7sFuzSX4DpmZ3v5sZpUiV5Swcf6mQEF+Y0ru8Neo+p+nyh2J+hQ==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/diff": { + "version": "5.2.2", + "resolved": "https://registry.npmjs.org/diff/-/diff-5.2.2.tgz", + "integrity": "sha512-vtcDfH3TOjP8UekytvnHH1o1P4FcUdt4eQ1Y+Abap1tk/OB2MWQvcwS2ClCd1zuIhc3JKOx6p3kod8Vfys3E+A==", + "dev": true, + "license": "BSD-3-Clause", + "engines": { + "node": ">=0.3.1" + } + }, + "node_modules/emoji-regex": { + "version": "8.0.0", + "resolved": "https://registry.npmjs.org/emoji-regex/-/emoji-regex-8.0.0.tgz", + "integrity": "sha512-MSjYzcWNOA0ewAHpz0MxpYFvwg6yjy1NG3xteoqz644VCo/RPgnr1/GGt+ic3iJTzQ8Eu3TdM14SawnVUmGE6A==", + "dev": true, + "license": "MIT" + }, + "node_modules/escalade": { + "version": "3.2.0", + "resolved": "https://registry.npmjs.org/escalade/-/escalade-3.2.0.tgz", + "integrity": "sha512-WUj2qlxaQtO4g6Pq5c29GTcWGDyd8itL8zTlipgECz3JesAiiOKotd8JU6otB3PACgG6xkJUyVhboMS+bje/jA==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=6" + } + }, + "node_modules/escape-string-regexp": { + "version": "4.0.0", + "resolved": "https://registry.npmjs.org/escape-string-regexp/-/escape-string-regexp-4.0.0.tgz", + "integrity": "sha512-TtpcNJ3XAzx3Gq8sWRzJaVajRs0uVxA2YAkdb1jm2YkPz4G6egUFAyA3n5vtEIZefPk5Wa4UXbKuS5fKkJWdgA==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/fill-range": { + "version": "7.1.1", + "resolved": "https://registry.npmjs.org/fill-range/-/fill-range-7.1.1.tgz", + "integrity": "sha512-YsGpe3WHLK8ZYi4tWDg2Jy3ebRz2rXowDxnld4bkQB00cc/1Zw9AWnC0i9ztDJitivtQvaI9KaLyKrc+hBW0yg==", + "dev": true, + "license": "MIT", + "dependencies": { + "to-regex-range": "^5.0.1" + }, + "engines": { + "node": ">=8" + } + }, + "node_modules/find-up": { + "version": "5.0.0", + "resolved": "https://registry.npmjs.org/find-up/-/find-up-5.0.0.tgz", + "integrity": "sha512-78/PXT1wlLLDgTzDs7sjq9hzz0vXD+zn+7wypEe4fXQxCmdmqfGsEPQxmiCSQI3ajFV91bVSsvNtrJRiW6nGng==", + "dev": true, + "license": "MIT", + "dependencies": { + "locate-path": "^6.0.0", + "path-exists": "^4.0.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/flat": { + "version": "5.0.2", + "resolved": "https://registry.npmjs.org/flat/-/flat-5.0.2.tgz", + "integrity": "sha512-b6suED+5/3rTpUBdG1gupIl8MPFCAMA0QXwmljLhvCUKcUvdE4gWky9zpuGCcXHOsz4J9wPGNWq6OKpmIzz3hQ==", + "dev": true, + "license": "BSD-3-Clause", + "bin": { + "flat": "cli.js" + } + }, + "node_modules/fs.realpath": { + "version": "1.0.0", + "resolved": "https://registry.npmjs.org/fs.realpath/-/fs.realpath-1.0.0.tgz", + "integrity": "sha512-OO0pH2lK6a0hZnAdau5ItzHPI6pUlvI7jMVnxUQRtw4owF2wk8lOSabtGDCTP4Ggrg2MbGnWO9X8K1t4+fGMDw==", + "dev": true, + "license": "ISC" + }, + "node_modules/fsevents": { + "version": "2.3.3", + "resolved": "https://registry.npmjs.org/fsevents/-/fsevents-2.3.3.tgz", + "integrity": "sha512-5xoDfX+fL7faATnagmWPpbFtwh/R77WmMMqqHGS65C3vvB0YHrgF+B1YmZ3441tMj5n63k0212XNoJwzlhffQw==", + "dev": true, + "hasInstallScript": true, + "license": "MIT", + "optional": true, + "os": [ + "darwin" + ], + "engines": { + "node": "^8.16.0 || ^10.6.0 || >=11.0.0" + } + }, + "node_modules/get-caller-file": { + "version": "2.0.5", + "resolved": "https://registry.npmjs.org/get-caller-file/-/get-caller-file-2.0.5.tgz", + "integrity": "sha512-DyFP3BM/3YHTQOCUL/w0OZHR0lpKeGrxotcHWcqNEdnltqFwXVfhEBQ94eIo34AfQpo0rGki4cyIiftY06h2Fg==", + "dev": true, + "license": "ISC", + "engines": { + "node": "6.* || 8.* || >= 10.*" + } + }, + "node_modules/glob": { + "version": "8.1.0", + "resolved": "https://registry.npmjs.org/glob/-/glob-8.1.0.tgz", + "integrity": "sha512-r8hpEjiQEYlF2QU0df3dS+nxxSIreXQS1qRhMJM0Q5NDdR386C7jb7Hwwod8Fgiuex+k0GFjgft18yvxm5XoCQ==", + "deprecated": "Old versions of glob are not supported, and contain widely publicized security vulnerabilities, which have been fixed in the current version. Please update. Support for old versions may be purchased (at exorbitant rates) by contacting i@izs.me", + "dev": true, + "license": "ISC", + "dependencies": { + "fs.realpath": "^1.0.0", + "inflight": "^1.0.4", + "inherits": "2", + "minimatch": "^5.0.1", + "once": "^1.3.0" + }, + "engines": { + "node": ">=12" + }, + "funding": { + "url": "https://github.com/sponsors/isaacs" + } + }, + "node_modules/glob-parent": { + "version": "5.1.2", + "resolved": "https://registry.npmjs.org/glob-parent/-/glob-parent-5.1.2.tgz", + "integrity": "sha512-AOIgSQCepiJYwP3ARnGx+5VnTu2HBYdzbGP45eLw1vr3zB3vZLeyed1sC9hnbcOc9/SrMyM5RPQrkGz4aS9Zow==", + "dev": true, + "license": "ISC", + "dependencies": { + "is-glob": "^4.0.1" + }, + "engines": { + "node": ">= 6" + } + }, + "node_modules/has-flag": { + "version": "4.0.0", + "resolved": "https://registry.npmjs.org/has-flag/-/has-flag-4.0.0.tgz", + "integrity": "sha512-EykJT/Q1KjTWctppgIAgfSO0tKVuZUjhgMr17kqTumMl6Afv3EISleU7qZUzoXDFTAHTDC4NOoG/ZxU3EvlMPQ==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + } + }, + "node_modules/he": { + "version": "1.2.0", + "resolved": "https://registry.npmjs.org/he/-/he-1.2.0.tgz", + "integrity": "sha512-F/1DnUGPopORZi0ni+CvrCgHQ5FyEAHRLSApuYWMmrbSwoN2Mn/7k+Gl38gJnR7yyDZk6WLXwiGod1JOWNDKGw==", + "dev": true, + "license": "MIT", + "bin": { + "he": "bin/he" + } + }, + "node_modules/inflight": { + "version": "1.0.6", + "resolved": "https://registry.npmjs.org/inflight/-/inflight-1.0.6.tgz", + "integrity": "sha512-k92I/b08q4wvFscXCLvqfsHCrjrF7yiXsQuIVvVE7N82W3+aqpzuUdBbfhWcy/FZR3/4IgflMgKLOsvPDrGCJA==", + "deprecated": "This module is not supported, and leaks memory. Do not use it. Check out lru-cache if you want a good and tested way to coalesce async requests by a key value, which is much more comprehensive and powerful.", + "dev": true, + "license": "ISC", + "dependencies": { + "once": "^1.3.0", + "wrappy": "1" + } + }, + "node_modules/inherits": { + "version": "2.0.4", + "resolved": "https://registry.npmjs.org/inherits/-/inherits-2.0.4.tgz", + "integrity": "sha512-k/vGaX4/Yla3WzyMCvTQOXYeIHvqOKtnqBduzTHpzpQZzAskKMhZ2K+EnBiSM9zGSoIFeMpXKxa4dYeZIQqewQ==", + "dev": true, + "license": "ISC" + }, + "node_modules/is-binary-path": { + "version": "2.1.0", + "resolved": "https://registry.npmjs.org/is-binary-path/-/is-binary-path-2.1.0.tgz", + "integrity": "sha512-ZMERYes6pDydyuGidse7OsHxtbI7WVeUEozgR/g7rd0xUimYNlvZRE/K2MgZTjWy725IfelLeVcEM97mmtRGXw==", + "dev": true, + "license": "MIT", + "dependencies": { + "binary-extensions": "^2.0.0" + }, + "engines": { + "node": ">=8" + } + }, + "node_modules/is-extglob": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/is-extglob/-/is-extglob-2.1.1.tgz", + "integrity": "sha512-SbKbANkN603Vi4jEZv49LeVJMn4yGwsbzZworEoyEiutsN3nJYdbO36zfhGJ6QEDpOZIFkDtnq5JRxmvl3jsoQ==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=0.10.0" + } + }, + "node_modules/is-fullwidth-code-point": { + "version": "3.0.0", + "resolved": "https://registry.npmjs.org/is-fullwidth-code-point/-/is-fullwidth-code-point-3.0.0.tgz", + "integrity": "sha512-zymm5+u+sCsSWyD9qNaejV3DFvhCKclKdizYaJUuHA83RLjb7nSuGnddCHGv0hk+KY7BMAlsWeK4Ueg6EV6XQg==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + } + }, + "node_modules/is-glob": { + "version": "4.0.3", + "resolved": "https://registry.npmjs.org/is-glob/-/is-glob-4.0.3.tgz", + "integrity": "sha512-xelSayHH36ZgE7ZWhli7pW34hNbNl8Ojv5KVmkJD4hBdD3th8Tfk9vYasLM+mXWOZhFkgZfxhLSnrwRr4elSSg==", + "dev": true, + "license": "MIT", + "dependencies": { + "is-extglob": "^2.1.1" + }, + "engines": { + "node": ">=0.10.0" + } + }, + "node_modules/is-number": { + "version": "7.0.0", + "resolved": "https://registry.npmjs.org/is-number/-/is-number-7.0.0.tgz", + "integrity": "sha512-41Cifkg6e8TylSpdtTpeLVMqvSBEVzTttHvERD741+pnZ8ANv0004MRL43QKPDlK9cGvNp6NZWZUBlbGXYxxng==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=0.12.0" + } + }, + "node_modules/is-plain-obj": { + "version": "2.1.0", + "resolved": "https://registry.npmjs.org/is-plain-obj/-/is-plain-obj-2.1.0.tgz", + "integrity": "sha512-YWnfyRwxL/+SsrWYfOpUtz5b3YD+nyfkHvjbcanzk8zgyO4ASD67uVMRt8k5bM4lLMDnXfriRhOpemw+NfT1eA==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + } + }, + "node_modules/is-unicode-supported": { + "version": "0.1.0", + "resolved": "https://registry.npmjs.org/is-unicode-supported/-/is-unicode-supported-0.1.0.tgz", + "integrity": "sha512-knxG2q4UC3u8stRGyAVJCOdxFmv5DZiRcdlIaAQXAbSfJya+OhopNotLQrstBhququ4ZpuKbDc/8S6mgXgPFPw==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/js-yaml": { + "version": "4.3.0", + "resolved": "https://registry.npmjs.org/js-yaml/-/js-yaml-4.3.0.tgz", + "integrity": "sha512-1td788aAnnZ5qs7V2QIRl1owjtYpbKt749Y3xauqQgwIIGF/xXWz1wMTEBx5O3LK3lXLVuqXPdPxj2BoFHaW9Q==", + "dev": true, + "funding": [ + { + "type": "github", + "url": "https://github.com/sponsors/puzrin" + }, + { + "type": "github", + "url": "https://github.com/sponsors/nodeca" + } + ], + "license": "MIT", + "dependencies": { + "argparse": "^2.0.1" + }, + "bin": { + "js-yaml": "bin/js-yaml.js" + } + }, + "node_modules/locate-path": { + "version": "6.0.0", + "resolved": "https://registry.npmjs.org/locate-path/-/locate-path-6.0.0.tgz", + "integrity": "sha512-iPZK6eYjbxRu3uB4/WZ3EsEIMJFMqAoopl3R+zuq0UjcAm/MO6KCweDgPfP3elTztoKP3KtnVHxTn2NHBSDVUw==", + "dev": true, + "license": "MIT", + "dependencies": { + "p-locate": "^5.0.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/log-symbols": { + "version": "4.1.0", + "resolved": "https://registry.npmjs.org/log-symbols/-/log-symbols-4.1.0.tgz", + "integrity": "sha512-8XPvpAA8uyhfteu8pIvQxpJZ7SYYdpUivZpGy6sFsBuKRY/7rQGavedeB8aK+Zkyq6upMFVL/9AW6vOYzfRyLg==", + "dev": true, + "license": "MIT", + "dependencies": { + "chalk": "^4.1.0", + "is-unicode-supported": "^0.1.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/minimatch": { + "version": "5.1.9", + "resolved": "https://registry.npmjs.org/minimatch/-/minimatch-5.1.9.tgz", + "integrity": "sha512-7o1wEA2RyMP7Iu7GNba9vc0RWWGACJOCZBJX2GJWip0ikV+wcOsgVuY9uE8CPiyQhkGFSlhuSkZPavN7u1c2Fw==", + "dev": true, + "license": "ISC", + "dependencies": { + "brace-expansion": "^2.0.1" + }, + "engines": { + "node": ">=10" + } + }, + "node_modules/mocha": { + "version": "10.8.2", + "resolved": "https://registry.npmjs.org/mocha/-/mocha-10.8.2.tgz", + "integrity": "sha512-VZlYo/WE8t1tstuRmqgeyBgCbJc/lEdopaa+axcKzTBJ+UIdlAB9XnmvTCAH4pwR4ElNInaedhEBmZD8iCSVEg==", + "dev": true, + "license": "MIT", + "dependencies": { + "ansi-colors": "^4.1.3", + "browser-stdout": "^1.3.1", + "chokidar": "^3.5.3", + "debug": "^4.3.5", + "diff": "^5.2.0", + "escape-string-regexp": "^4.0.0", + "find-up": "^5.0.0", + "glob": "^8.1.0", + "he": "^1.2.0", + "js-yaml": "^4.1.0", + "log-symbols": "^4.1.0", + "minimatch": "^5.1.6", + "ms": "^2.1.3", + "serialize-javascript": "^6.0.2", + "strip-json-comments": "^3.1.1", + "supports-color": "^8.1.1", + "workerpool": "^6.5.1", + "yargs": "^16.2.0", + "yargs-parser": "^20.2.9", + "yargs-unparser": "^2.0.0" + }, + "bin": { + "_mocha": "bin/_mocha", + "mocha": "bin/mocha.js" + }, + "engines": { + "node": ">= 14.0.0" + } + }, + "node_modules/ms": { + "version": "2.1.3", + "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.3.tgz", + "integrity": "sha512-6FlzubTLZG3J2a/NVCAleEhjzq5oxgHyaCU9yYXvcLsvoVaHJq/s5xXI6/XXP6tz7R9xAOtHnSO/tXtF3WRTlA==", + "dev": true, + "license": "MIT" + }, + "node_modules/normalize-path": { + "version": "3.0.0", + "resolved": "https://registry.npmjs.org/normalize-path/-/normalize-path-3.0.0.tgz", + "integrity": "sha512-6eZs5Ls3WtCisHWp9S2GUy8dqkpGi4BVSz3GaqiE6ezub0512ESztXUwUB6C6IKbQkY2Pnb/mD4WYojCRwcwLA==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=0.10.0" + } + }, + "node_modules/once": { + "version": "1.4.0", + "resolved": "https://registry.npmjs.org/once/-/once-1.4.0.tgz", + "integrity": "sha512-lNaJgI+2Q5URQBkccEKHTQOPaXdUxnZZElQTZY0MFUAuaEqe1E+Nyvgdz/aIyNi6Z9MzO5dv1H8n58/GELp3+w==", + "dev": true, + "license": "ISC", + "dependencies": { + "wrappy": "1" + } + }, + "node_modules/p-limit": { + "version": "3.1.0", + "resolved": "https://registry.npmjs.org/p-limit/-/p-limit-3.1.0.tgz", + "integrity": "sha512-TYOanM3wGwNGsZN2cVTYPArw454xnXj5qmWF1bEoAc4+cU/ol7GVh7odevjp1FNHduHc3KZMcFduxU5Xc6uJRQ==", + "dev": true, + "license": "MIT", + "dependencies": { + "yocto-queue": "^0.1.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/p-locate": { + "version": "5.0.0", + "resolved": "https://registry.npmjs.org/p-locate/-/p-locate-5.0.0.tgz", + "integrity": "sha512-LaNjtRWUBY++zB5nE/NwcaoMylSPk+S+ZHNB1TzdbMJMny6dynpAGt7X/tl/QYq3TIeE6nxHppbo2LGymrG5Pw==", + "dev": true, + "license": "MIT", + "dependencies": { + "p-limit": "^3.0.2" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/path-exists": { + "version": "4.0.0", + "resolved": "https://registry.npmjs.org/path-exists/-/path-exists-4.0.0.tgz", + "integrity": "sha512-ak9Qy5Q7jYb2Wwcey5Fpvg2KoAc/ZIhLSLOSBmRmygPsGwkVVt0fZa0qrtMz+m6tJTAHfZQ8FnmB4MG4LWy7/w==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + } + }, + "node_modules/picomatch": { + "version": "2.3.2", + "resolved": "https://registry.npmjs.org/picomatch/-/picomatch-2.3.2.tgz", + "integrity": "sha512-V7+vQEJ06Z+c5tSye8S+nHUfI51xoXIXjHQ99cQtKUkQqqO1kO/KCJUfZXuB47h/YBlDhah2H3hdUGXn8ie0oA==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8.6" + }, + "funding": { + "url": "https://github.com/sponsors/jonschlinkert" + } + }, + "node_modules/randombytes": { + "version": "2.1.0", + "resolved": "https://registry.npmjs.org/randombytes/-/randombytes-2.1.0.tgz", + "integrity": "sha512-vYl3iOX+4CKUWuxGi9Ukhie6fsqXqS9FE2Zaic4tNFD2N2QQaXOMFbuKK4QmDHC0JO6B1Zp41J0LpT0oR68amQ==", + "dev": true, + "license": "MIT", + "dependencies": { + "safe-buffer": "^5.1.0" + } + }, + "node_modules/readdirp": { + "version": "3.6.0", + "resolved": "https://registry.npmjs.org/readdirp/-/readdirp-3.6.0.tgz", + "integrity": "sha512-hOS089on8RduqdbhvQ5Z37A0ESjsqz6qnRcffsMU3495FuTdqSm+7bhJ29JvIOsBDEEnan5DPu9t3To9VRlMzA==", + "dev": true, + "license": "MIT", + "dependencies": { + "picomatch": "^2.2.1" + }, + "engines": { + "node": ">=8.10.0" + } + }, + "node_modules/require-directory": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/require-directory/-/require-directory-2.1.1.tgz", + "integrity": "sha512-fGxEI7+wsG9xrvdjsrlmL22OMTTiHRwAMroiEeMgq8gzoLC/PQr7RsRDSTLUg/bZAZtF+TVIkHc6/4RIKrui+Q==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=0.10.0" + } + }, + "node_modules/safe-buffer": { + "version": "5.2.1", + "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.2.1.tgz", + "integrity": "sha512-rp3So07KcdmmKbGvgaNxQSJr7bGVSVk5S9Eq1F+ppbRo70+YeaDxkw5Dd8NPN+GD6bjnYm2VuPuCXmpuYvmCXQ==", + "dev": true, + "funding": [ + { + "type": "github", + "url": "https://github.com/sponsors/feross" + }, + { + "type": "patreon", + "url": "https://www.patreon.com/feross" + }, + { + "type": "consulting", + "url": "https://feross.org/support" + } + ], + "license": "MIT" + }, + "node_modules/serialize-javascript": { + "version": "6.0.2", + "resolved": "https://registry.npmjs.org/serialize-javascript/-/serialize-javascript-6.0.2.tgz", + "integrity": "sha512-Saa1xPByTTq2gdeFZYLLo+RFE35NHZkAbqZeWNd3BpzppeVisAqpDjcp8dyf6uIvEqJRd46jemmyA4iFIeVk8g==", + "dev": true, + "license": "BSD-3-Clause", + "dependencies": { + "randombytes": "^2.1.0" + } + }, + "node_modules/string-width": { + "version": "4.2.3", + "resolved": "https://registry.npmjs.org/string-width/-/string-width-4.2.3.tgz", + "integrity": "sha512-wKyQRQpjJ0sIp62ErSZdGsjMJWsap5oRNihHhu6G7JVO/9jIB6UyevL+tXuOqrng8j/cxKTWyWUwvSTriiZz/g==", + "dev": true, + "license": "MIT", + "dependencies": { + "emoji-regex": "^8.0.0", + "is-fullwidth-code-point": "^3.0.0", + "strip-ansi": "^6.0.1" + }, + "engines": { + "node": ">=8" + } + }, + "node_modules/strip-ansi": { + "version": "6.0.1", + "resolved": "https://registry.npmjs.org/strip-ansi/-/strip-ansi-6.0.1.tgz", + "integrity": "sha512-Y38VPSHcqkFrCpFnQ9vuSXmquuv5oXOKpGeT6aGrr3o3Gc9AlVa6JBfUSOCnbxGGZF+/0ooI7KrPuUSztUdU5A==", + "dev": true, + "license": "MIT", + "dependencies": { + "ansi-regex": "^5.0.1" + }, + "engines": { + "node": ">=8" + } + }, + "node_modules/strip-json-comments": { + "version": "3.1.1", + "resolved": "https://registry.npmjs.org/strip-json-comments/-/strip-json-comments-3.1.1.tgz", + "integrity": "sha512-6fPc+R4ihwqP6N/aIv2f1gMH8lOVtWQHoqC4yK6oSDVVocumAsfCqjkXnqiYMhmMwS/mEHLp7Vehlt3ql6lEig==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=8" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, + "node_modules/supports-color": { + "version": "8.1.1", + "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-8.1.1.tgz", + "integrity": "sha512-MpUEN2OodtUzxvKQl72cUF7RQ5EiHsGvSsVG0ia9c5RbWGL2CI4C7EpPS8UTBIplnlzZiNuV56w+FuNxy3ty2Q==", + "dev": true, + "license": "MIT", + "dependencies": { + "has-flag": "^4.0.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/chalk/supports-color?sponsor=1" + } + }, + "node_modules/to-regex-range": { + "version": "5.0.1", + "resolved": "https://registry.npmjs.org/to-regex-range/-/to-regex-range-5.0.1.tgz", + "integrity": "sha512-65P7iz6X5yEr1cwcgvQxbbIw7Uk3gOy5dIdtZ4rDveLqhrdJP+Li/Hx6tyK0NEb+2GCyneCMJiGqrADCSNk8sQ==", + "dev": true, + "license": "MIT", + "dependencies": { + "is-number": "^7.0.0" + }, + "engines": { + "node": ">=8.0" + } + }, + "node_modules/workerpool": { + "version": "6.5.1", + "resolved": "https://registry.npmjs.org/workerpool/-/workerpool-6.5.1.tgz", + "integrity": "sha512-Fs4dNYcsdpYSAfVxhnl1L5zTksjvOJxtC5hzMNl+1t9B8hTJTdKDyZ5ju7ztgPy+ft9tBFXoOlDNiOT9WUXZlA==", + "dev": true, + "license": "Apache-2.0" + }, + "node_modules/wrap-ansi": { + "version": "7.0.0", + "resolved": "https://registry.npmjs.org/wrap-ansi/-/wrap-ansi-7.0.0.tgz", + "integrity": "sha512-YVGIj2kamLSTxw6NsZjoBxfSwsn0ycdesmc4p+Q21c5zPuZ1pl+NfxVdxPtdHvmNVOQ6XSYG4AUtyt/Fi7D16Q==", + "dev": true, + "license": "MIT", + "dependencies": { + "ansi-styles": "^4.0.0", + "string-width": "^4.1.0", + "strip-ansi": "^6.0.0" + }, + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/chalk/wrap-ansi?sponsor=1" + } + }, + "node_modules/wrappy": { + "version": "1.0.2", + "resolved": "https://registry.npmjs.org/wrappy/-/wrappy-1.0.2.tgz", + "integrity": "sha512-l4Sp/DRseor9wL6EvV2+TuQn63dMkPjZ/sp9XkghTEbV9KlPS1xUsZ3u7/IQO4wxtcFB4bgpQPRcR3QCvezPcQ==", + "dev": true, + "license": "ISC" + }, + "node_modules/y18n": { + "version": "5.0.8", + "resolved": "https://registry.npmjs.org/y18n/-/y18n-5.0.8.tgz", + "integrity": "sha512-0pfFzegeDWJHJIAmTLRP2DwHjdF5s7jo9tuztdQxAhINCdvS+3nGINqPd00AphqJR/0LhANUS6/+7SCb98YOfA==", + "dev": true, + "license": "ISC", + "engines": { + "node": ">=10" + } + }, + "node_modules/yargs": { + "version": "16.2.2", + "resolved": "https://registry.npmjs.org/yargs/-/yargs-16.2.2.tgz", + "integrity": "sha512-Nt9ZJjXTv5R8MHbqby/wXQ6Gi0Bb3TcYZkR1bzuL4yB2OxWPkXknz513gEF0GoA6tn00UpbPvERW8rzCuWCA6w==", + "dev": true, + "license": "MIT", + "dependencies": { + "cliui": "^7.0.2", + "escalade": "^3.1.1", + "get-caller-file": "^2.0.5", + "require-directory": "^2.1.1", + "string-width": "^4.2.0", + "y18n": "^5.0.5", + "yargs-parser": "^20.2.2" + }, + "engines": { + "node": ">=10" + } + }, + "node_modules/yargs-parser": { + "version": "20.2.9", + "resolved": "https://registry.npmjs.org/yargs-parser/-/yargs-parser-20.2.9.tgz", + "integrity": "sha512-y11nGElTIV+CT3Zv9t7VKl+Q3hTQoT9a1Qzezhhl6Rp21gJ/IVTW7Z3y9EWXhuUBC2Shnf+DX0antecpAwSP8w==", + "dev": true, + "license": "ISC", + "engines": { + "node": ">=10" + } + }, + "node_modules/yargs-unparser": { + "version": "2.0.0", + "resolved": "https://registry.npmjs.org/yargs-unparser/-/yargs-unparser-2.0.0.tgz", + "integrity": "sha512-7pRTIA9Qc1caZ0bZ6RYRGbHJthJWuakf+WmHK0rVeLkNrrGhfoabBNdue6kdINI6r4if7ocq9aD/n7xwKOdzOA==", + "dev": true, + "license": "MIT", + "dependencies": { + "camelcase": "^6.0.0", + "decamelize": "^4.0.0", + "flat": "^5.0.2", + "is-plain-obj": "^2.1.0" + }, + "engines": { + "node": ">=10" + } + }, + "node_modules/yocto-queue": { + "version": "0.1.0", + "resolved": "https://registry.npmjs.org/yocto-queue/-/yocto-queue-0.1.0.tgz", + "integrity": "sha512-rVksvsnNCdJ/ohGc6xgPwyN8eheCxsiLM8mxuE/t/mOVqJewPuO1miLpTHQiRgTKCLexL4MeAFVagts7HmNZ2Q==", + "dev": true, + "license": "MIT", + "engines": { + "node": ">=10" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + } + } +} diff --git a/integration-tests/file-system/package.json b/integration-tests/file-system/package.json new file mode 100644 index 0000000..b482f21 --- /dev/null +++ b/integration-tests/file-system/package.json @@ -0,0 +1,8 @@ +{ + "scripts": { + "test": "mocha" + }, + "devDependencies": { + "mocha": "^10.2.0" + } +} diff --git a/integration-tests/file-system/src/Main.gren b/integration-tests/file-system/src/Main.gren new file mode 100644 index 0000000..399cc86 --- /dev/null +++ b/integration-tests/file-system/src/Main.gren @@ -0,0 +1,266 @@ +module Main exposing (main) + +import Bytes exposing (Bytes) +import FileSystem +import FileSystem.Path as Path +import Init +import Node +import Stream +import Stream.Log +import Task exposing (Task) + + +type alias Model = + { } + + +type Msg + = NoOp + + +main : Node.Program Model Msg +main = + Node.defineProgram + { init = init + , update = update + , subscriptions = \_ -> Sub.none + } + + +init : Node.Environment -> Init.Task { model : Model, command : Cmd Msg } +init env = + let + toCmd : Task String a -> Cmd Msg + toCmd task = + task + |> Task.map (\_ -> Cmd.none) + |> Task.onError + (\err -> + Stream.Log.line env.stdout ("FAIL: " ++ err) + |> Task.map (\_ -> Node.exitWithCode 1) + ) + |> Task.executeCmd + in + Init.await FileSystem.initialize <| \fsPerm -> + Node.startProgram <| + when Array.get 2 env.args is + Just "WriteFile" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-write.txt" + |> Task.andThen + (\target -> + FileSystem.writeFile fsPerm (Bytes.fromString "write-content\n") target + |> Task.mapError FileSystem.errorToString + ) + |> toCmd + } + + Just "AppendToFile" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-appendto.txt" + |> Task.andThen + (\target -> + FileSystem.appendToFile fsPerm (Bytes.fromString "tail\n") target + |> Task.mapError FileSystem.errorToString + ) + |> toCmd + } + + Just "WriteFileStreamReplace" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-wfs-replace.txt" + |> Task.andThen (writeFileStreamTest fsPerm FileSystem.Replace "replace\n") + |> toCmd + } + + Just "WriteFileStreamReplaceFrom" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-wfs-replacefrom.txt" + |> Task.andThen (writeFileStreamTest fsPerm (FileSystem.ReplaceFrom 3) "XY") + |> toCmd + } + + Just "Append" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-file-system-append.txt" + |> Task.andThen (writeFileStreamTest fsPerm FileSystem.Append "second\n") + |> toCmd + } + + Just "TruncateFile" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-truncate.txt" + |> Task.andThen + (\target -> + FileSystem.truncateFile fsPerm 4 target + |> Task.mapError FileSystem.errorToString + ) + |> toCmd + } + + Just "TruncateFilePad" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-truncate-pad.txt" + |> Task.andThen + (\target -> + FileSystem.truncateFile fsPerm 4 target + |> Task.mapError FileSystem.errorToString + ) + |> toCmd + } + + Just "CopyFile" -> + { model = {} + , command = + FileSystem.tmpDirectory fsPerm + |> Task.mapError (\_ -> "Unable to resolve tmp directory") + |> Task.map + (\dir -> + { src = Path.appendPosixString "gren-fs-copy-src.txt" dir + , dest = Path.appendPosixString "gren-fs-copy-dst.txt" dir + } + ) + |> Task.andThen + (\{ src, dest } -> + FileSystem.copyFile fsPerm dest src + |> Task.mapError FileSystem.errorToString + ) + |> toCmd + } + + Just "Remove" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-remove.txt" + |> Task.andThen + (\target -> + FileSystem.remove fsPerm { recursive = False } target + |> Task.mapError FileSystem.errorToString + ) + |> toCmd + } + + Just "ReadFile" -> + { model = {} + , command = + getTempFilePath fsPerm "gren-fs-read.txt" + |> Task.andThen + (\target -> + FileSystem.readFile fsPerm target + |> Task.mapError FileSystem.errorToString + ) + |> Task.andThen + (\bytes -> + when Bytes.toString bytes is + Just s -> + writeStdout env s + + Nothing -> + Task.fail "Failed to decode bytes to string" + ) + |> toCmd + } + + Just "ReadFileStreamBeginning" -> + { model = {}, command = testReadFileStream env fsPerm FileSystem.Beginning |> toCmd } + + Just "ReadFileStreamFrom" -> + { model = {}, command = testReadFileStream env fsPerm (FileSystem.From 2) |> toCmd } + + Just "ReadFileStreamBetween" -> + { model = {}, command = testReadFileStream env fsPerm (FileSystem.Between { start = 1, end = 3 }) |> toCmd } + + _ -> + { model = {} + , command = + Stream.Log.line env.stdout "Invalid start argument" + |> Task.execute + } + + +update : Msg -> Model -> { model : Model, command : Cmd Msg } +update _msg model = + { model = model + , command = Cmd.none + } + + + +-- TEST RUNNER +-- +-- Each test is selected by a start argument (e.g. `node app WriteFile`). The +-- target file(s) live in the OS temp directory; their names are baked into the +-- test and mirrored by the runner (see test/requests.mjs), which sets up the +-- preconditions and verifies the outcome. +-- +-- Write-style tests succeed by reaching the end of their task (the program then +-- exits 0 once the event loop drains). Read-style tests report their result by +-- writing it to stdout, which the runner captures. Any failure is mapped to a +-- logged message and exit code 1. + + +getTempFilePath : FileSystem.Permission -> String -> Task String Path.Path +getTempFilePath fsPerm name = + FileSystem.tmpDirectory fsPerm + |> Task.map (Path.appendPosixString name) + |> Task.mapError (\_ -> "Unable to resolve tmp directory") + + +writeStdout : Node.Environment -> String -> Task String {} +writeStdout env str = + Stream.writeStringAsBytes str env.stdout + |> Task.map (\_ -> {}) + |> Task.mapError Stream.errorToString + + +{-| Shared by the three `writeFileStream` modes: open the stream, write the +payload, then close it. +-} +writeFileStreamTest : FileSystem.Permission -> FileSystem.WriteFileStreamMode -> String -> Path.Path -> Task String {} +writeFileStreamTest fsPerm mode payload target = + FileSystem.writeFileStream fsPerm mode target + |> Task.mapError FileSystem.errorToString + |> Task.andThen + (\writable -> + Stream.write (Bytes.fromString payload) writable + |> Task.andThen (\_ -> Stream.closeWritable writable) + |> Task.mapError Stream.errorToString + ) + + +{-| Shared by the three `readFileStream` modes: open the stream, drain it to a +string, then report it on stdout. +-} +testReadFileStream : Node.Environment -> FileSystem.Permission -> FileSystem.ReadFileStreamMode -> Task String {} +testReadFileStream env fsPerm mode = + getTempFilePath fsPerm "gren-fs-readstream.txt" + |> Task.andThen + (\target -> + FileSystem.readFileStream fsPerm mode target + |> Task.mapError FileSystem.errorToString + ) + |> Task.andThen readAllToString + |> Task.andThen (writeStdout env) + + +readAllToString : Stream.Readable Bytes -> Task String String +readAllToString stream = + Stream.readUntilClosed + (\bytes acc -> + when Bytes.toString bytes is + Just s -> + Ok (acc ++ s) + + Nothing -> + Err "Failed to decode bytes to string" + ) + "" + stream + |> Task.mapError Stream.errorToString diff --git a/integration-tests/file-system/test/requests.mjs b/integration-tests/file-system/test/requests.mjs new file mode 100644 index 0000000..9b76227 --- /dev/null +++ b/integration-tests/file-system/test/requests.mjs @@ -0,0 +1,189 @@ +import assert from "node:assert/strict"; +import { fork } from "node:child_process"; +import * as fs from "node:fs"; +import * as os from "node:os"; +import * as path from "node:path"; + +const app = path.resolve("bin/app"); +const tmp = os.tmpdir(); + +// File names baked into the Gren app (see src/Main.gren). Mirrored here so the +// runner can set up preconditions and verify outcomes. +const file = { + writeFile: path.join(tmp, "gren-fs-write.txt"), + appendToFile: path.join(tmp, "gren-fs-appendto.txt"), + wfsReplace: path.join(tmp, "gren-fs-wfs-replace.txt"), + wfsReplaceFrom: path.join(tmp, "gren-fs-wfs-replacefrom.txt"), + append: path.join(tmp, "gren-file-system-append.txt"), + truncate: path.join(tmp, "gren-fs-truncate.txt"), + truncatePad: path.join(tmp, "gren-fs-truncate-pad.txt"), + copySrc: path.join(tmp, "gren-fs-copy-src.txt"), + copyDst: path.join(tmp, "gren-fs-copy-dst.txt"), + remove: path.join(tmp, "gren-fs-remove.txt"), + readFile: path.join(tmp, "gren-fs-read.txt"), + readStream: path.join(tmp, "gren-fs-readstream.txt"), +}; + +// Fork the app with the given test argument, collecting all output. Resolves on +// "close" so every stdout/stderr byte is captured before we assert. +function run(arg) { + return new Promise((resolve) => { + const child = fork(app, [arg], { silent: true }); + let stdout = ""; + let stderr = ""; + child.stdout.on("data", (d) => (stdout += d.toString())); + child.stderr.on("data", (d) => (stderr += d.toString())); + child.on("close", (code) => resolve({ code, stdout, stderr })); + }); +} + +function cleanup(...files) { + for (const f of files) if (fs.existsSync(f)) fs.unlinkSync(f); +} + +describe("FileSystem", () => { + it("writeFile writes bytes to a file", async () => { + const { code, stderr } = await run("WriteFile"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.writeFile, "utf8"), "write-content\n"); + } finally { + cleanup(file.writeFile); + } + }); + + it("appendToFile adds bytes after existing content", async () => { + fs.writeFileSync(file.appendToFile, "head\n"); + const { code, stderr } = await run("AppendToFile"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.appendToFile, "utf8"), "head\ntail\n"); + } finally { + cleanup(file.appendToFile); + } + }); + + it("writeFileStream Replace overwrites the whole file", async () => { + fs.writeFileSync(file.wfsReplace, "XXXXXXXXXX"); + const { code, stderr } = await run("WriteFileStreamReplace"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.wfsReplace, "utf8"), "replace\n"); + } finally { + cleanup(file.wfsReplace); + } + }); + + it("writeFileStream ReplaceFrom keeps the prefix then writes", async () => { + fs.writeFileSync(file.wfsReplaceFrom, "abcdef"); + const { code, stderr } = await run("WriteFileStreamReplaceFrom"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.wfsReplaceFrom, "utf8"), "abcXY"); + } finally { + cleanup(file.wfsReplaceFrom); + } + }); + + it("writeFileStream Append writes after existing content", async () => { + fs.writeFileSync(file.append, "first\n"); + const { code, stderr } = await run("Append"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.append, "utf8"), "first\nsecond\n"); + } finally { + cleanup(file.append); + } + }); + + it("truncateFile shrinks the file to the given length", async () => { + fs.writeFileSync(file.truncate, "12345678"); + const { code, stderr } = await run("TruncateFile"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.truncate, "utf8"), "1234"); + } finally { + cleanup(file.truncate); + } + }); + + it("truncateFile pads a short file with zeroes", async () => { + fs.writeFileSync(file.truncatePad, "ab"); + const { code, stderr } = await run("TruncateFilePad"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.deepEqual( + fs.readFileSync(file.truncatePad), + Buffer.from([0x61, 0x62, 0x00, 0x00]), + ); + } finally { + cleanup(file.truncatePad); + } + }); + + it("copyFile copies bytes from src to dest", async () => { + fs.writeFileSync(file.copySrc, "copy-data\n"); + const { code, stderr } = await run("CopyFile"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.readFileSync(file.copyDst, "utf8"), "copy-data\n"); + } finally { + cleanup(file.copySrc, file.copyDst); + } + }); + + it("remove deletes the file", async () => { + fs.writeFileSync(file.remove, "anything"); + const { code, stderr } = await run("Remove"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(fs.existsSync(file.remove), false); + } finally { + cleanup(file.remove); + } + }); + + it("readFile reads the entire file", async () => { + fs.writeFileSync(file.readFile, "read-content\n"); + const { code, stdout, stderr } = await run("ReadFile"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(stdout, "read-content\n"); + } finally { + cleanup(file.readFile); + } + }); + + it("readFileStream Beginning reads the whole file", async () => { + fs.writeFileSync(file.readStream, "abcdef"); + const { code, stdout, stderr } = await run("ReadFileStreamBeginning"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(stdout, "abcdef"); + } finally { + cleanup(file.readStream); + } + }); + + it("readFileStream From reads from an offset to the end", async () => { + fs.writeFileSync(file.readStream, "abcdef"); + const { code, stdout, stderr } = await run("ReadFileStreamFrom"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(stdout, "cdef"); + } finally { + cleanup(file.readStream); + } + }); + + it("readFileStream Between reads an inclusive range", async () => { + fs.writeFileSync(file.readStream, "abcdef"); + const { code, stdout, stderr } = await run("ReadFileStreamBetween"); + try { + assert.equal(code, 0, `app exited ${code}\n${stderr}`); + assert.equal(stdout, "bcd"); + } finally { + cleanup(file.readStream); + } + }); +}); diff --git a/integration-tests/run-tests.sh b/integration-tests/run-tests.sh index c552428..6d30690 100755 --- a/integration-tests/run-tests.sh +++ b/integration-tests/run-tests.sh @@ -17,6 +17,11 @@ pushd signals make test || exit 1 popd +echo -e "Running file-system tests...\n\n" +pushd file-system +make test || exit 1 +popd + echo -e "Running child-process tests...\n\n" pushd child-process make test || exit 1 diff --git a/src/Gren/Kernel/FileSystem.js b/src/Gren/Kernel/FileSystem.js index 73598c9..c41cad2 100644 --- a/src/Gren/Kernel/FileSystem.js +++ b/src/Gren/Kernel/FileSystem.js @@ -663,10 +663,25 @@ var _FileSystem_writeFile = F2(function (data, path) { var _FileSystem_writeFileStream = F2(function (pos, path) { return __Scheduler_binding(function (callback) { try { - var fstream = fs.createWriteStream(__FilePath_toString(path), { + var filePath = __FilePath_toString(path); + var fstream = fs.createWriteStream(filePath, { flags: pos === 0 ? "w" : pos === -1 ? "a" : "r+", - start: pos === 0 ? undefined : pos, + start: pos <= 0 ? undefined : pos, }); + // pos > 0 means the ReplaceFrom option was used, so we keep the first + // `pos` bytes and replace everything after with the streamed data. + // `createWriteStream` with "r+" and `start` writes at the offset but + // does not truncate trailing bytes, so once the stream has drained we + // truncate the file to the prefix length plus what was written. + if (pos > 0) { + fstream.on("finish", function () { + fs.truncate( + filePath, + pos + fstream.bytesWritten, + (_) => {}, // the handler is ignored because there is currently no way to propogate an error through a custom Writable + ); + }); + } callback(__Scheduler_succeed(stream.Writable.toWeb(fstream))); } catch (err) { callback(__Scheduler_fail(_FileSystem_constructError(path, err)));