From da1d6ed305458f1035e7220f42f5df566ec054aa Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 19 Sep 2000 23:52:06 +0000
Subject: [PATCH]  new check

---
 tests/webtbs/tbug1041.pp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tests/webtbs/tbug1041.pp

diff --git a/tests/webtbs/tbug1041.pp b/tests/webtbs/tbug1041.pp
new file mode 100644
index 0000000000..49148609fd
--- /dev/null
+++ b/tests/webtbs/tbug1041.pp
@@ -0,0 +1,14 @@
+uses
+  sysutils,dos;
+
+begin
+Writeln('Dos DiskSize = ',Dos.DiskSize(0));
+Writeln('Sysutils DiskSize = ',SysUtils.DiskSize(0));
+Writeln('Dos DiskFree = ',Dos.DiskFree(0));
+Writeln('Sysutils DiskFree = ',SysUtils.DiskFree(0));
+if Dos.DiskSize(0)<>SysUtils.DiskSize(0) then
+  Begin
+    Writeln('Error with DiskSize');
+    Halt(1);
+  End;
+end.
\ No newline at end of file