perl spec

Author: VibhorCodecianGupta

config.js

@@ -53,6 +53,11 @@ exports = module.exports = {
       SOURCE_FILE: 'script.rb',
       CPU_SHARE: "0.8",
       MEM_LIMIT: '300m'
+    },
+    'perl': {
+      SOURCE_FILE: 'script.pl',
+      CPU_SHARE: "0.8",
+      MEM_LIMIT: '300m'
     }
   }
-}
+}

test/run.perl.spec.ts

@@ -0,0 +1,19 @@
+import {execRun} from '../src/tasks/run'
+import {expect} from 'chai'
+
+
+describe('run - perl', () => {
+  it('.pl file runs correctly', () => {
+    execRun({
+      id: 28,
+      lang: 'perl',
+      source: (new Buffer(`
+        $input = <STDIN>;
+        print "Hello ${input}";
+      `)).toString('base64'),
+      stdin: (new Buffer('World')).toString('base64')
+    }, (runResult) => {
+      expect(new Buffer(runResult.stdout, 'base64').toString('ascii')).to.eq('Hello World\n')
+    })
+  })
+})