From 83a88988a99d37b850cb4658456f4850832c4272 Mon Sep 17 00:00:00 2001
From: Alina Banerjee <alina@glitchgirl.us>
Date: Wed, 2 Jun 2021 22:55:53 -0500
Subject: validate: run stage1 tests using stage1 compiler when BINSTIST is
 false

---
 validate | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'validate')

diff --git a/validate b/validate
index b38f31f3c9..e3b68cecd6 100755
--- a/validate
+++ b/validate
@@ -422,8 +422,19 @@ if [ $testsuite_only -eq 1 ] ||
             --summary=$basedir/testsuite_summary.txt \
             --summary-junit=$basedir/testsuite.xml"
         sh -c "$hadrian $hadrian_test_with_args \"$test_perf_args\""
-        # TODO: Run testsuite/tests/stage1 using the stage 1 compiler when
-        # BINDIST=NO.
+
+        # Use stage1 compiler when BINDIST=NO
+        if [ "$BINDIST" = "NO" ] && [ ! -d "bindisttest/install   dir" ]; then
+            hadrian_test_with_args_stage1="test --test-speed=$HADRIAN_TEST_SPEED \
+                --test-root-dirs=\"$basedir/testsuite/tests/stage1\" \
+                --test-compiler=\"$testghc\" \
+                --summary=$basedir/testsuite_summary_stage1.txt \
+                --summary-junit=$basedir/testsuite_stage1.xml"
+            sh -c "$hadrian $hadrian_test_with_args_stage1 \"$test_perf_args\""
+
+            echo '==== STAGE 1 TESTS (using Hadrian) ==== '
+            cat testsuite_summary_stage1.txt
+        fi
 
         echo '==== STAGE 2 TESTS (using Hadrian) ==== '
         cat testsuite_summary.txt
-- 
cgit v1.2.1