From a5a815c133cfb16a337b836e41f82c94fe8bba93 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 7 Jan 2003 15:48:14 +0000
Subject: [PATCH]   * test should fail

---
 tests/{webtbs => webtbf}/tw2273.pp | 2 ++
 1 file changed, 2 insertions(+)
 rename tests/{webtbs => webtbf}/tw2273.pp (95%)

diff --git a/tests/webtbs/tw2273.pp b/tests/webtbf/tw2273.pp
similarity index 95%
rename from tests/webtbs/tw2273.pp
rename to tests/webtbf/tw2273.pp
index 2207855abd..a339be0609 100644
--- a/tests/webtbs/tw2273.pp
+++ b/tests/webtbf/tw2273.pp
@@ -1,3 +1,5 @@
+{ %fail }
+
 { Source provided for Free Pascal Bug Report 2273 }
 { Submitted by "Sergey Kosarevsky" on  2002-12-21 }
 { e-mail: netsurfer@au.ru }