From 2df1d1a73046a0a7b6523552b53f407651ed36df Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 14 May 2021 08:17:14 -0700
Subject: .

---
 linux/test_apps          | 31 ++-----------------------------
 linux/test_apps_emulated | 26 ++------------------------
 2 files changed, 4 insertions(+), 53 deletions(-)

diff --git a/linux/test_apps b/linux/test_apps
index 42dd7da3..9d8e5683 100755
--- a/linux/test_apps
+++ b/linux/test_apps
@@ -216,25 +216,7 @@ bootstrap/bootstrap translate [01]*.subx random.subx  -o random
 
 # Phases of the self-hosted SubX translator.
 
-for phase in hex survey_elf pack assort dquotes tests
-do
-  echo $phase
-  bootstrap/bootstrap translate [01]*.subx subx-params.subx $phase.subx -o $phase
-  test "$1" = 'record'  ||  git diff --exit-code $phase
-  {
-    bootstrap/bootstrap run $phase test
-    echo
-  }
-  {
-    chmod +x $phase
-    ./$phase test
-    echo
-  }
-done
-
-# One phase variant for translating SubX to baremetal. (Other phases are reused.)
-
-for phase in survey_baremetal
+for phase in hex survey_elf survey_baremetal pack assort dquotes tests
 do
   echo $phase
   bootstrap/bootstrap translate [01]*.subx subx-params.subx $phase.subx -o $phase
@@ -332,16 +314,7 @@ done
 
 # Phases of the self-hosted SubX translator.
 
-for app in hex survey_elf pack assort dquotes tests
-do
-  echo $app
-  ./translate_subx [01]*.subx subx-params.subx $app.subx
-  diff $app a.elf
-done
-
-# One phase variant for translating SubX to baremetal. (Other phases are reused.)
-
-for app in survey_baremetal
+for app in hex survey_elf survey_baremetal pack assort dquotes tests
 do
   echo $app
   ./translate_subx [01]*.subx subx-params.subx $app.subx
diff --git a/linux/test_apps_emulated b/linux/test_apps_emulated
index 2945a992..cb74c1ae 100755
--- a/linux/test_apps_emulated
+++ b/linux/test_apps_emulated
@@ -137,20 +137,7 @@ bootstrap/bootstrap translate [01]*.subx random.subx  -o random
 
 # Phases of the self-hosted SubX translator.
 
-for phase in hex survey_elf pack assort dquotes tests
-do
-  echo $phase
-  bootstrap/bootstrap translate [01]*.subx subx-params.subx $phase.subx -o $phase
-  test "$1" = 'record'  ||  git diff --exit-code $phase
-  {
-    bootstrap/bootstrap run $phase test
-    echo
-  }
-done
-
-# One phase variant for translating SubX to baremetal. (Other phases are reused.)
-
-for phase in survey_baremetal
+for phase in hex survey_elf survey_baremetal pack assort dquotes tests
 do
   echo $phase
   bootstrap/bootstrap translate [01]*.subx subx-params.subx $phase.subx -o $phase
@@ -224,16 +211,7 @@ done
 
 # Phases of the self-hosted SubX translator.
 
-for app in hex survey_elf pack assort dquotes tests
-do
-  echo $app
-  ./translate_subx_emulated [01]*.subx subx-params.subx $app.subx
-  diff $app a.elf
-done
-
-# One phase variant for translating SubX to baremetal. (Other phases are reused.)
-
-for app in survey_baremetal
+for app in hex survey_elf survey_baremetal pack assort dquotes tests
 do
   echo $app
   ./translate_subx_emulated [01]*.subx subx-params.subx $app.subx
-- 
cgit 1.4.1-2-gfad0