Convert tests to Jasmine specs

.gitignore

@@ -4,8 +4,6 @@ docs/guide/_build/
 src/parser.js
 src/typeparser.js
 examples/*.js
-test/*.js
-!test/tarjan.js
 lib/*.js
 roy.brianmckenna.org
 bundled-roy.js

Makefile

@@ -28,5 +28,4 @@ optimise-bundle:
 # Tests
 
 test: all
-	./roy -r run-tests.roy
-	./node_modules/jasmine-node/bin/jasmine-node test/spec
+	./node_modules/jasmine-node/bin/jasmine-node --verbose test

test/CompileSpec.js

@@ -0,0 +1,85 @@
+describe('compiler', function(){
+    var roy = require('../src/compile'),
+        fs = require('fs'),
+        path = require('path'),
+        child_process = require('child_process'),
+        processBin = process.argv[0];
+
+    function compilerOutput(s) {
+        return roy.compile(s, {}, {}, {nodejs: true}).output;
+    }
+
+    function fixtureCompilerOutput(s) {
+        return compilerOutput(fs.readFileSync(path.join('test', 'fixtures', s + '.roy'), 'utf8'));
+    }
+
+    function fixtureExpectedOutput(s) {
+        return fs.readFileSync(path.join('test', 'fixtures', s + '.out'), 'utf8');
+    }
+
+    function expectExecutionToHaveExpectedOutput(s) {
+        var expected = fixtureExpectedOutput(s);
+        var compiled = fixtureCompilerOutput(s);
+
+        var child = child_process.spawn(processBin);
+        child.stdin.write(compiled, 'utf8');
+        child.stdin.end();
+        child.stdout.setEncoding('utf8');
+
+        var actual = '';
+        asyncSpecWait();
+        child.stdout.on('data', function(d) {
+            actual += d;
+        });
+        child.stdout.on('end', function() {
+            expect(actual).toEqual(expected);
+            asyncSpecDone();
+        });
+    }
+
+    it('should preserve comments', function(){
+        expect(compilerOutput('// HELLO')).toEqual('// HELLO\n');
+    });
+
+    describe('should execute', function() {
+        it('accessors.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/accessors');
+        });
+        it('coercing_native_to_any.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/coercing_native_to_any');
+        });
+        it('conditionals.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/conditionals');
+        });
+        it('deep_matching.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/deep_matching');
+        });
+        it('functions.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/functions');
+        });
+        it('map.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/map');
+        });
+        it('monoid.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/monoid');
+        });
+        it('option_monad.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/option_monad');
+        });
+        it('primitive_types.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/primitive_types');
+        });
+        it('tagged_unions.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/tagged_unions');
+        });
+        it('trace_monad.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/trace_monad');
+        });
+        it('unicode.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/unicode');
+        });
+        it('where.roy with expected output', function() {
+            expectExecutionToHaveExpectedOutput('good/where');
+        });
+    });
+});

test/TarjanSpec.js

@@ -0,0 +1,52 @@
+describe('tarjan', function(){
+    var tarjan = require('../src/tarjan.js'),
+        stronglyConnectedComponents = tarjan.stronglyConnectedComponents,
+        _ = require('underscore');
+
+    it('should identify strongly connected components', function() {
+        var a = {id: "a"};
+        var b = {id: "b"};
+        var c = {id: "c"};
+        var d = {id: "d"};
+        var e = {id: "e"};
+        var f = {id: "f"};
+        var g = {id: "g"};
+        var h = {id: "h"};
+        var vertices = [a, b, c, d, e, f, g, h];
+        var edges = {
+            "a": [b],
+            "b": [c, e, f],
+            "c": [d, g],
+            "d": [c, h],
+            "e": [a, f],
+            "f": [g],
+            "g": [f],
+            "h": [d, g]
+        };
+
+        var components = stronglyConnectedComponents({vertices: vertices, edges: edges});
+
+        var sortedComponents = _.map(components, function(component) {
+            return _.sortBy(component, function(vertex) {
+                return vertex.id;
+            });
+        });
+
+        expect(sortedComponents).toEqual([
+            [
+                {id: 'f'},
+                {id: 'g'}
+            ],
+            [
+                {id: 'c'},
+                {id: 'd'},
+                {id: 'h'},
+            ],
+            [
+                {id: 'a'},
+                {id: 'b'},
+                {id: 'e'}
+            ]
+        ]);
+    });
+});

test/spec/TypeInferenceSpec.js → test/TypeInferenceSpec.js

@@ -1,8 +1,8 @@
 describe('type inference', function(){
-    var typeinference = require('../../src/typeinference'),
-        types = require('../../src/types');
-        lexer = require('../../src/lexer');
-        parser = require('../../src/parser');
+    var typeinference = require('../src/typeinference'),
+        types = require('../src/types');
+        lexer = require('../src/lexer');
+        parser = require('../src/parser');
 
     beforeEach(function() {
         this.addMatchers({

test/deep_matching.roy → test/fixtures/good/deep_matching.roy

@@ -1,3 +1,5 @@
+data Either a b = Left a | Right b
+
 let xor e = match e
   case (Left (Left n)) = 0
   case (Left (Right n)) = n

test/option_monad.roy → test/fixtures/good/option_monad.roy

@@ -1,4 +1,4 @@
-// Uses `Option a` from stdlib
+data Option a = Some a | None
 
 let optionMonad = {
   return: λx →

test/where.roy → test/fixtures/good/where.roy

@@ -29,5 +29,5 @@ where
   id x = x
   data Even = Zero | SuccEven Odd
   data Odd = SuccOdd Even
- 
+
 console.log (g 0)