From eb012fc86f5aa01f5ddadd5f64752fd2b8e212eb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 9 Mar 2005 22:30:06 +0000
Subject: [PATCH] depends on FV

---
 tests/webtbs/tw3657.pp | 66 ------------------------------------------
 1 file changed, 66 deletions(-)
 delete mode 100644 tests/webtbs/tw3657.pp

diff --git a/tests/webtbs/tw3657.pp b/tests/webtbs/tw3657.pp
deleted file mode 100644
index a6f6272b0c..0000000000
--- a/tests/webtbs/tw3657.pp
+++ /dev/null
@@ -1,66 +0,0 @@
-{ Source provided for Free Pascal Bug Report 3657 }
-{ Submitted by "Sergey@michint" on  2005-02-15 }
-{ e-mail:  }
-// Title: Crash when text of tlabel is empty 
-{$mode objfpc}
-{$C+}
-PROGRAM TestApp;
-USES SysUtils, Objects, Video, Drivers, fvcommon, Views, App, Dialogs, FVConsts;
-
-TYPE
-   PTVDemo = ^TTVDemo;
-   TTVDemo = OBJECT (TApplication)
-      pc: Integer; // "program counter"
-      l: PLabel;
-      PROCEDURE Idle; virtual;
-    End;
-
-
-PROCEDURE TTVDemo.Idle; 
-var
-  Event: TEvent;
-  R: TRect;
-begin
-  inherited;
-  inc(pc); 
-  case pc of  // test script
-    1: begin
-      R.Assign(5, 5, 10, 1);
-      New(L, Init(R, '', nil));
-      Desktop^.Insert(L); 
-      Event.What:=evKeyDown; 
-      Event.KeyCode:=kbAltC;
-      Event.InfoPtr := Nil;
-      PutEvent(Event);
-    end;
-    2: begin
-      Event.What:=evCommand;
-      Event.Command:=cmQuit;
-      Event.InfoPtr := Nil;
-      PutEvent(Event);
-    end;
-    3: Assert(False, 'Quit fail');
-  end;
-end;
-
-var
-  MyApp: TTVDemo;
-
-BEGIN
-  try  Assert(False, 'assert test');
-    raise Exception.Create('assertions don''t not work');
-  except on E: EAssertionFailed do {nothing} else raise; end;
-  try
-    MyApp.Init;                                        { Initialize app }
-    MyApp.pc:=0;
-    try
-      MyApp.Run;                                         { Run the app }
-    finally
-      MyApp.Done;                                        { Dispose of app }
-    end;
-    Writeln('fv_label.pas - Ok');
-  except
-    Writeln('fv_label.pas - Error');
-    raise;
-  end;
-END.
\ No newline at end of file