* test should fail

tests/webtbf/tw2972.pp

@@ -0,0 +1,12 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2972 }
+{ Submitted by "Michalis Kamburelis" on  2004-02-13 }
+{ e-mail: [email protected] }
+type
+  TEnum = (one, two);
+
+var s:String;
+begin
+ s:=one;
+end.

tests/webtbf/tw2972b.pp

@@ -0,0 +1,12 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2972 }
+{ Submitted by "Michalis Kamburelis" on  2004-02-13 }
+{ e-mail: [email protected] }
+type
+  TEnum = (one, two);
+
+var s:String;
+begin
+  if s<>one then;
+end.