From 4ff94d240d0ef64cdc88a4a7df0431c53c98b7a1 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Tue, 29 Oct 2002 20:46:05 +0000
Subject: [PATCH]   * more fun testing :)

---
 tests/tbf/tb0131.pp |  6 ++++++
 tests/tbf/tb0132.pp |  6 ++++++
 tests/tbf/tb0133.pp |  5 +++++
 tests/tbf/tb0134.pp | 19 +++++++++++++++++++
 tests/tbf/tb0135.pp | 19 +++++++++++++++++++
 tests/tbf/tb0136.pp | 19 +++++++++++++++++++
 tests/tbf/tb0137.pp | 19 +++++++++++++++++++
 7 files changed, 93 insertions(+)
 create mode 100644 tests/tbf/tb0131.pp
 create mode 100644 tests/tbf/tb0132.pp
 create mode 100644 tests/tbf/tb0133.pp
 create mode 100644 tests/tbf/tb0134.pp
 create mode 100644 tests/tbf/tb0135.pp
 create mode 100644 tests/tbf/tb0136.pp
 create mode 100644 tests/tbf/tb0137.pp

diff --git a/tests/tbf/tb0131.pp b/tests/tbf/tb0131.pp
new file mode 100644
index 0000000000..a5a43d89dd
--- /dev/null
+++ b/tests/tbf/tb0131.pp
@@ -0,0 +1,6 @@
+{ %FAIL }
+{ This should normally fail compilation!}
+Begin
+{$ifndef}
+{$endif}
+end.
diff --git a/tests/tbf/tb0132.pp b/tests/tbf/tb0132.pp
new file mode 100644
index 0000000000..dd47fd9e65
--- /dev/null
+++ b/tests/tbf/tb0132.pp
@@ -0,0 +1,6 @@
+{ %FAIL }
+{ This should normally fail compilation!}
+Begin
+{$ifopt}
+{$endif}
+end.
diff --git a/tests/tbf/tb0133.pp b/tests/tbf/tb0133.pp
new file mode 100644
index 0000000000..3c0c8d5221
--- /dev/null
+++ b/tests/tbf/tb0133.pp
@@ -0,0 +1,5 @@
+{ %FAIL }
+{ This should normally fail compilation!}
+Begin
+{$ASSERTIONS}
+end.
diff --git a/tests/tbf/tb0134.pp b/tests/tbf/tb0134.pp
new file mode 100644
index 0000000000..3f0f5b4e38
--- /dev/null
+++ b/tests/tbf/tb0134.pp
@@ -0,0 +1,19 @@
+{ %FAIL }
+{ This shouldc not compile, cdecl'ed constructor are not allowed }
+
+{$mode objfpc}
+
+type
+  tmyclass = class
+    constructor create; cdecl;
+  end;
+  
+  
+  constructor tmyclass.create;cdecl;
+  begin
+  end;
+  
+
+Begin
+end.
+  
\ No newline at end of file
diff --git a/tests/tbf/tb0135.pp b/tests/tbf/tb0135.pp
new file mode 100644
index 0000000000..5ab60f8719
--- /dev/null
+++ b/tests/tbf/tb0135.pp
@@ -0,0 +1,19 @@
+{ %FAIL }
+{ This shouldc not compile, cdecl'ed constructor are not allowed }
+
+{$mode objfpc}
+
+type
+  tmyobject = object
+    constructor create; cdecl;
+  end;
+  
+  
+  constructor tmyobject.create;cdecl;
+  begin
+  end;
+  
+
+Begin
+end.
+  
\ No newline at end of file
diff --git a/tests/tbf/tb0136.pp b/tests/tbf/tb0136.pp
new file mode 100644
index 0000000000..a3d7befa9d
--- /dev/null
+++ b/tests/tbf/tb0136.pp
@@ -0,0 +1,19 @@
+{ %FAIL }
+{ This shouldc not compile, cdecl'ed constructor are not allowed }
+
+{$mode objfpc}
+
+type
+  tmyclass = class
+    destructor destroy; cdecl;
+  end;
+  
+  
+  destructor tmyclass.destroy;cdecl;
+  begin
+  end;
+  
+
+Begin
+end.
+  
\ No newline at end of file
diff --git a/tests/tbf/tb0137.pp b/tests/tbf/tb0137.pp
new file mode 100644
index 0000000000..93350ebf23
--- /dev/null
+++ b/tests/tbf/tb0137.pp
@@ -0,0 +1,19 @@
+{ %FAIL }
+{ This shouldc not compile, cdecl'ed constructor are not allowed }
+
+{$mode objfpc}
+
+type
+  tmyclass = object
+    destructor done; cdecl;
+  end;
+  
+  
+  destructor tmyclass.done;cdecl;
+  begin
+  end;
+  
+
+Begin
+end.
+  
\ No newline at end of file