New pascal tests

Author: partouf

Diff for: test/pascal-tests.js

@@ -23,11 +23,15 @@
 // POSSIBILITY OF SUCH DAMAGE.
 
 const chai = require('chai');
+const chaiAsPromised = require("chai-as-promised");
 const PascalDemangler = require('../lib/pascal-support').demangler;
 const PascalCompiler = require('../lib/compilers/pascal');
-
 const CompilationEnvironment = require('../lib/compilation-env');
+const fs = require('fs-extra');
+const utils = require('../lib/utils');
+const logger = require('../lib/logger').logger;
 
+chai.use(chaiAsPromised);
 chai.should();
 
 const props = function (key, deflt) {
@@ -49,7 +53,11 @@ describe('Basic compiler setup', function () {
 
     const compiler = new PascalCompiler(info, ce);
 
-    compiler.getOutputFilename("/tmp/", "output.pas").should.equal("/tmp/output.s");
+    if (process.platform == "win32") {
+        compiler.getOutputFilename("/tmp/", "output.pas").should.equal("\\tmp\\output.s");
+    } else {
+        compiler.getOutputFilename("/tmp/", "output.pas").should.equal("/tmp/output.s");
+    }
 });
 
 describe('Pascal signature composer function', function () {
@@ -296,3 +304,52 @@ describe('Pascal Ignored Symbols', function () {
         demangler.shouldIgnoreSymbol("Rtti_Output_UserFunction").should.equal(false);
     });
 });
+
+describe('Pascal ASM line number injection', function () {
+    const ce = new CompilationEnvironment(props);
+    const info = {
+        "exe": null,
+        "remote": true,
+        "unitTestMode": true,
+        "lang": "pascal"
+    };
+
+    ce.compilerPropsL = function (lang, property, defaultValue) {
+        return "";
+    };
+
+    const compiler = new PascalCompiler(info, ce);
+
+    it('Should have line numbering', function() {
+        return new Promise(function(resolve, reject) {
+            fs.readFile("test/pascal/asm-example.s", function(err, buffer) {
+                const asmLines = utils.splitLines(buffer.toString());
+                compiler.preProcessLines(asmLines);
+
+                resolve(Promise.all([
+                    asmLines.should.include("# [output.pas]"),
+                    asmLines.should.include("  .file 1 \"<stdin>\""),
+                    asmLines.should.include("# [13] Square := num * num + 14;"),
+                    asmLines.should.include("  .loc 1 13 0"),
+                    asmLines.should.include(".Le0:"),
+                    asmLines.should.include("  .cfi_endproc")
+                ]));
+            });
+        });
+    });
+});
+
+describe('Pascal objdump filtering', function () {
+    it('Should filter out most of the runtime', function() {
+        return new Promise(function(resolve, reject) {
+            fs.readFile("test/pascal/objdump-example.s", function(err, buffer) {
+                const output = PascalCompiler.preProcessBinaryAsm(buffer.toString());
+                resolve(Promise.all([
+                    utils.splitLines(output).length.should.be.below(500),
+                    output.should.not.include("fpc_zeromem():"),
+                    output.should.include("SQUARE():")
+                ]));
+            });
+        });
+    });
+});