diff options
| author | yury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-06-21 23:05:20 +0000 |
|---|---|---|
| committer | yury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-06-21 23:05:20 +0000 |
| commit | 2b2022dad6067df51a0be10f386ca43a322d0aaf (patch) | |
| tree | accd61bb284a2a48edd3b67a6166b350fdabbdc1 /tests/webtbs/tw7391.pp | |
| parent | 796b7b8181c9ead9717a8da3d29bb00f9b562ffd (diff) | |
| download | fpc-2b2022dad6067df51a0be10f386ca43a322d0aaf.tar.gz | |
* fixed test.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@7766 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbs/tw7391.pp')
| -rw-r--r-- | tests/webtbs/tw7391.pp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/webtbs/tw7391.pp b/tests/webtbs/tw7391.pp index fd37622fd9..452eff8e24 100644 --- a/tests/webtbs/tw7391.pp +++ b/tests/webtbs/tw7391.pp @@ -1,7 +1,7 @@ program stored; {$mode objfpc}{$h+} uses - Classes; + SysUtils, Classes; const ShowTheException = true; //set this to false for halt(128) instead of exception @@ -106,4 +106,3 @@ begin writeln('ok. done.'); DeleteFile('testfile.tmp'); end. - |