Restore tests

Author: garyb

bower.json

@@ -18,5 +18,8 @@
     "bower.json",
     "gulpfile.js",
     "package.json"
-  ]
+  ],
+  "devDependencies": {
+    "purescript-assert": "^0.1.0"
+  }
 }

gulpfile.js

@@ -6,6 +6,7 @@ var jshint = require("gulp-jshint");
 var jscs = require("gulp-jscs");
 var plumber = require("gulp-plumber");
 var purescript = require("gulp-purescript");
+var run = require("gulp-run");
 var rimraf = require("rimraf");
 
 var sources = [
@@ -57,4 +58,11 @@ gulp.task("dotpsci", function () {
     .pipe(purescript.dotPsci());
 });
 
-gulp.task("default", ["make", "docs", "dotpsci"]);
+gulp.task("test", ["make"], function() {
+  return gulp.src(sources.concat(["test/**/*.purs"]))
+    .pipe(plumber())
+    .pipe(purescript.psc({ main: "Test.Main", ffi: foreigns }))
+    .pipe(run("node"));
+});
+
+gulp.task("default", ["make", "docs", "dotpsci", "test"]);

package.json

@@ -6,6 +6,7 @@
     "gulp-jshint": "^1.10.0",
     "gulp-plumber": "^1.0.0",
     "gulp-purescript": "^0.5.0-rc.1",
+    "gulp-run": "~1.6.7",
     "rimraf": "^2.3.3"
   }
 }

src/Node/Path.js

@@ -22,15 +22,15 @@ exports.relative = function (from) {
   };
 };
 
-exports.dirname = function (path) {
-  return path.normalize(path.dirname(path));
+exports.dirname = function (p) {
+  return path.normalize(path.dirname(p));
 };
 
 exports.basename = path.basename;
 
-exports.basenameWithoutExt = function (path) {
+exports.basenameWithoutExt = function (p) {
   return function (ext) {
-    return path.basename(path, ext);
+    return path.basename(p, ext);
   };
 };
 

test/Test/Main.purs

@@ -0,0 +1,20 @@
+module Test.Main where
+
+import Prelude
+import Node.Path
+import Test.Assert
+
+main = do
+  assert $ normalize "/foo/bar//baz/asdf/quux/.." == normalize "/foo/bar/baz/asdf"
+  assert $ concat ["/foo", "bar"] == normalize "/foo/bar"
+  assert $ relative "/data/orandea/test/aaa" "/data/orandea/impl/bbb" == normalize "../../impl/bbb"
+  assert $ dirname "/foo/bar/baz/asdf/quux" == normalize "/foo/bar/baz/asdf"
+  assert $ basename "/foo/bar/baz/asdf/quux.html" == "quux.html"
+  assert $ basenameWithoutExt "/foo/bar/baz/asdf/quux.html" ".html" == "quux"
+  assert $ basenameWithoutExt "/foo/bar/baz/asdf/quux.txt" ".html" == "quux.txt"
+  assert $ extname "index.html" == ".html"
+  assert $ extname "index.coffee.md" == ".md"
+  assert $ extname "index." == "."
+  assert $ extname "index" == ""
+  assert $ sep == normalize "/"
+  assert $ delimiter == ";" || delimiter == ":"