base procedures test

meltourme · Sep 5, 2021 · 7bba0cb · 7bba0cb
1 parent 7a1e600
commit 7bba0cb
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/tests/__tests__/custom_subprograms/procedures/procedure_base/procedure_base.js b/tests/__tests__/custom_subprograms/procedures/procedure_base/procedure_base.js
@@ -0,0 +1,15 @@
+import { expect, test } from '@jest/globals';
+import { getOneVarOutputStreamConfig, TESTING_NEW_LINE_SYMBOL } from '../../../../helpers/output_stream/OneVarOutputStream ';
+
+
+import { runFile } from '../../../../helpers/testsHelper';
+
+const config  = getOneVarOutputStreamConfig();
+let pjs = runFile(import.meta.url, 'procedure_base.pas', false, config);
+
+test("check output", () => {
+  expect(config.outputStream.value).toBe('123' + TESTING_NEW_LINE_SYMBOL);
+});
+
+
+
diff --git a/tests/__tests__/custom_subprograms/procedures/procedure_base/procedure_base.pas b/tests/__tests__/custom_subprograms/procedures/procedure_base/procedure_base.pas
@@ -0,0 +1,9 @@
+
+procedure  echo(s: string);
+begin
+   writeln(s);
+end;
+
+begin  
+   echo('123');
+end.