From 17d4e0c5003b035d3a594780c38de46afabe502b Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 17 Mar 2000 11:25:38 +0000
Subject: [PATCH]  * source error fixed

---
 tests/ts/ts010022.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/ts/ts010022.pp b/tests/ts/ts010022.pp
index c3264d4671..7a96624682 100644
--- a/tests/ts/ts010022.pp
+++ b/tests/ts/ts010022.pp
@@ -41,6 +41,6 @@ begin
    readln(f,st);
    if st<>'Alone test' then halt(1);
    readln(f,st);
-   if st<>'Invalid opcode' then halt(1);
+   if st<>'Invalid Opcode' then halt(1);
    close(f);
-end.
+end.
\ No newline at end of file