perform factorial, with retursion, test

ajlopez · Dec 24, 2012 · 7d55040 · 7d55040
1 parent 4a6959e
commit 7d55040
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/lib/cobolscript.js b/lib/cobolscript.js
@@ -213,6 +213,11 @@ var cobolscript = (function() {
     function IntegerExpression(text)    {        this.compile = function() {            return text;        };    }
 
     function BinaryExpression(left, oper, right) {
+        if (oper == '=')
+            oper = '==';
+        else if (oper == '<>')
+            oper = '!=';
+
         this.compile = function(program, context) {
             return left.compile(program, context) + ' ' + oper + ' ' + right.compile(program.context);
         }

diff --git a/test/perform.js b/test/perform.js
@@ -56,3 +56,15 @@ run('perform procedure1 using k varying k from 1 to 4. procedure1 using x. add x
 assert.equal(ws.a, 10);
 assert.equal(ws.k, 5);
 
+// perform with giving and return
+
+var ws = { result: 0 };
+run('perform procedure1 using 3 giving result. procedure1 using n. add 1 to n. return n.', ws);
+assert.equal(ws.result, 4);
+
+// perform factorial with auxiliary parameters
+
+var ws = { result: 0 };
+run('perform factorial using 3 giving result. factorial using n, m. if n = 1 then return n. subtract 1 from n giving m. perform factorial using m giving m. multiply n by m. return m.', ws);
+assert.equal(ws.result, 6);
+