From 7bb81a7890782cbce2d952f290acbb844bd39c58 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 24 Dec 2020 02:16:53 +1100
Subject: Polling pragma added to help with async select

---
 src/unit_tests.ads | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/unit_tests.ads b/src/unit_tests.ads
index adb10f9..d1c5980 100644
--- a/src/unit_tests.ads
+++ b/src/unit_tests.ads
@@ -68,6 +68,12 @@ package Unit_Tests is
         renames Ada.Strings.Unbounded.To_String;
 
 
+private
+
+
+    pragma Polling (On);
+
+
 end Unit_Tests;
 
 
-- 
cgit