in the middle of getting the repl tests in place.

dyoo · Apr 18, 2013 · 53adcce · 53adcce
1 parent c6b89c6
commit 53adcce
Show file tree

Hide file tree

Showing 4 changed files with 4,325 additions and 4 deletions.
diff --git a/whalesong/js-assembler/runtime-src/baselib-structs.js b/whalesong/js-assembler/runtime-src/baselib-structs.js
@@ -42,7 +42,6 @@
             node.append(params.recur(this._fields[i]));
         }
         node.append($('<span/>').text(")").addClass('rParen'));
-        console.log(node);
         return node.get(0);
     };
 

diff --git a/whalesong/repl-prototype/htdocs/repl.js b/whalesong/repl-prototype/htdocs/repl.js
@@ -172,7 +172,7 @@
                                  results.push(that.M.e[that.M.e.length - 1 - i]);
                              }
                              for (i = 0; i < results.length; i++) {
-                                 print(that, results[i]);
+                                 that.printlnIgnoringVoid(results[i]);
                              };
                              k();
                          };
@@ -204,10 +204,11 @@
     };
 
 
-    // Print: Repl racket-value -> void
+    // printlnIgnoringVoid: racket-value -> void
     // Prints the racket value out, followed by a newline,
     // unless VOID is being printed.
-    var print = function(that, elt) {
+    Repl.prototype.printlnIgnoringVoid = function(elt) {
+        var that = this;
 	var outputPort = that.M.params.currentOutputPort;
 	if (elt !== plt.runtime.VOID) {
 	    outputPort.writeDomNode(
@@ -218,6 +219,26 @@
 	}
     };
 
+    // print: racket-value -> void
+    Repl.prototype.print = function(elt) {
+        var that = this;
+	var outputPort = that.M.params.currentOutputPort;
+	outputPort.writeDomNode(
+            that.M,
+            plt.runtime.toDomNode(elt, that.M.params['print-mode']));
+    };
+
+    // println: racket-value -> void
+    // Displays the racket value out, followed by a newline,
+    Repl.prototype.display = function(elt) {
+        var that = this;
+	var outputPort = that.M.params.currentOutputPort;
+	outputPort.writeDomNode(
+            that.M,
+            plt.runtime.toDomNode(elt, 'display'));
+    };
+
+
 
     //////////////////////////////////////////////////////////////////////
     //////////////////////////////////////////////////////////////////////

diff --git a/whalesong/repl-prototype/htdocs/tests.html b/whalesong/repl-prototype/htdocs/tests.html
@@ -0,0 +1,20 @@
+<!DOCTYPE html>
+<html>
+<head>
+<script src="collects/runtime.js"></script>
+<script src="collects/library.js"></script>
+<script src="easyXDM-min.js"></script>
+<script src="repl.js"></script>
+<script src="tests.js"></script>
+</head>
+<body>
+
+<h1>Repl tests</h1>
+<p>This page tests the behavior of REPL compilation.</p>
+
+<div id="is-running"></div>
+<div id="failure-index">Failures: </div>
+
+
+</body>
+</html>