[PATCH] testuite: fix dg-output strings for constraint exceptions

[Mohammad-Reza Nabipoor]

2023-01-01  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * testsuite/poke.map/maps-structs-constraints-2.pk: Fix expected
        string.
        * testsuite/poke.map/maps-structs-constraints-3.pk: Likewise.
        * testsuite/poke.pkl/scons-constraints-1.pk: Likewise.
        * testsuite/poke.pkl/scons-constraints-2.pk: Likewise.
---

Hello Jose and poke people!

Happy New Year!

This is weird that we had this problem since Dec 10. Why the buildbot
didn't catch this?


Regards,
Mohammad-Reza


 ChangeLog                                        | 8 ++++++++
 testsuite/poke.map/maps-structs-constraints-2.pk | 2 +-
 testsuite/poke.map/maps-structs-constraints-3.pk | 2 +-
 testsuite/poke.pkl/scons-constraints-1.pk        | 2 +-
 testsuite/poke.pkl/scons-constraints-2.pk        | 2 +-
 5 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f9a5f58a..26e229fd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2023-01-01  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
+
+       * testsuite/poke.map/maps-structs-constraints-2.pk: Fix expected
+       string.
+       * testsuite/poke.map/maps-structs-constraints-3.pk: Likewise.
+       * testsuite/poke.pkl/scons-constraints-1.pk: Likewise.
+       * testsuite/poke.pkl/scons-constraints-2.pk: Likewise.
+
 2022-12-22  Darshit Shah  <darnir@gnu.org>
 
        * doc/poke.texi: Simplify Hyperlink setup by calling `make install`
diff --git a/testsuite/poke.map/maps-structs-constraints-2.pk 
b/testsuite/poke.map/maps-structs-constraints-2.pk
index 5485af85..dbf0f0ff 100644
--- a/testsuite/poke.map/maps-structs-constraints-2.pk
+++ b/testsuite/poke.map/maps-structs-constraints-2.pk
@@ -4,4 +4,4 @@
 type Packet = struct { byte a; byte b : b == a; };
 
 /* { dg-command { try Packet @ 0#B; catch (Exception e) { if (e.code == 
EC_constraint) print e.msg + "\n"; } } } */
-/* { dg-output "in field Packet\\.b" } */
+/* { dg-output "for field Packet\\.b" } */
diff --git a/testsuite/poke.map/maps-structs-constraints-3.pk 
b/testsuite/poke.map/maps-structs-constraints-3.pk
index fe3b2e43..e90ed03b 100644
--- a/testsuite/poke.map/maps-structs-constraints-3.pk
+++ b/testsuite/poke.map/maps-structs-constraints-3.pk
@@ -4,4 +4,4 @@
 type Packet = struct { byte a; struct { byte b : b == a; } s; };
 
 /* { dg-command { try Packet @ 0#B; catch (Exception e) { if (e.code == 
EC_constraint) print e.msg + "\n"; } } } */
-/* { dg-output "in field b" } */
+/* { dg-output "for field b" } */
diff --git a/testsuite/poke.pkl/scons-constraints-1.pk 
b/testsuite/poke.pkl/scons-constraints-1.pk
index 26db5cfc..9f76764e 100644
--- a/testsuite/poke.pkl/scons-constraints-1.pk
+++ b/testsuite/poke.pkl/scons-constraints-1.pk
@@ -3,4 +3,4 @@
 type Packet = struct { byte a; byte b : b != a; };
 
 /* { dg-command { try Packet {}; catch (Exception e) { if (e.code == 
EC_constraint) print e.msg + "\n"; } } } */
-/* { dg-output "in field Packet\\.b" } */
+/* { dg-output "for field Packet\\.b" } */
diff --git a/testsuite/poke.pkl/scons-constraints-2.pk 
b/testsuite/poke.pkl/scons-constraints-2.pk
index ec00afd3..616ae3e8 100644
--- a/testsuite/poke.pkl/scons-constraints-2.pk
+++ b/testsuite/poke.pkl/scons-constraints-2.pk
@@ -3,4 +3,4 @@
 type Packet = struct { byte a; struct { byte b : b != a; } s; };
 
 /* { dg-command { try Packet {}; catch (Exception e) { if (e.code == 
EC_constraint) print e.msg + "\n"; } } } */
-/* { dg-output "in field b" } */
+/* { dg-output "for field b" } */
-- 
2.39.0