From 1f483baf37359032ca3224a5d07853aaf725def4 Mon Sep 17 00:00:00 2001
From: Rr42
Date: Mon, 4 Jun 2018 15:25:44 +0530
Subject: Commented all GUI code for core test

---
 test/ldTest/run-tests.pl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 test/ldTest/run-tests.pl

(limited to 'test/ldTest/run-tests.pl')

diff --git a/test/ldTest/run-tests.pl b/test/ldTest/run-tests.pl
new file mode 100644
index 0000000..91e81b8
--- /dev/null
+++ b/test/ldTest/run-tests.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+if (not -d 'results/') {
+    mkdir 'results';
+}
+
+$c = 0;
+for $test (<tests/*.ld>) {
+    $output = $test;
+    $output =~ s/^tests/results/;
+    $output =~ s/\.ld$/.hex/;
+
+    unlink $output;
+
+    $cmd = "../ldmicro.exe /c $test $output";
+    system $cmd;
+    $c++;
+}
+
+print "\ndifferences follow:\n";
+@diff = `diff -q results expected`;
+for(@diff) {
+    print "    $_";
+}
+$fc = scalar @diff;
+print "($fc difference(s)/$c)\n";
+if($fc == 0) {
+    print "pass!\n";
+    exit(0);
+} else {
+    print "FAIL\n";
+    exit(-1);
+}
-- 
cgit