diff --git a/tests/webtbs/tbug735.pp b/tests/webtbs/tbug735.pp
index 1e566442ca..4cee5bc853 100644
--- a/tests/webtbs/tbug735.pp
+++ b/tests/webtbs/tbug735.pp
@@ -1,4 +1,5 @@
 {$asmmode intel}
+{$inline on}
 
 procedure DoIt;
 begin
diff --git a/tests/webtbs/tbug856.pp b/tests/webtbs/tbug856.pp
new file mode 100644
index 0000000000..ab69897aad
--- /dev/null
+++ b/tests/webtbs/tbug856.pp
@@ -0,0 +1,5 @@
+{$MODE objfpc}
+uses tbug856u;
+begin
+  TMyClass.Create(1);
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug856u.pp b/tests/webtbs/tbug856u.pp
new file mode 100644
index 0000000000..4cfa11a7cd
--- /dev/null
+++ b/tests/webtbs/tbug856u.pp
@@ -0,0 +1,16 @@
+{$MODE objfpc}
+unit tbug856u;
+interface
+type
+  TMyClass = class
+  protected
+    constructor Create(x: Integer);
+  end;
+
+implementation
+
+constructor TMyClass.Create(x: Integer);
+begin
+end;
+
+end.
diff --git a/tests/webtbs/tbug873.pp b/tests/webtbs/tbug873.pp
new file mode 100644
index 0000000000..20937840ee
--- /dev/null
+++ b/tests/webtbs/tbug873.pp
@@ -0,0 +1,41 @@
+{$mode objfpc}
+program Teste;
+
+// Compile it using the Delphi extensions
+// directive.
+
+type
+    TObject = class
+      private
+        procedure SetValue(v: integer);
+      public
+        fx: integer;
+        Constructor Create;
+        Destructor Destroy;
+        property x: integer read fx write SetValue;
+    end;
+
+var
+    Obj: TObject;
+
+Constructor TObject.Create;
+begin
+    fx := 0;
+end;
+
+Destructor TObject.Destroy;
+begin
+end;
+
+procedure TObject.SetValue(v: integer);
+begin
+    fx := v + 2;
+end;
+
+begin
+    writeln('This will be printed');
+    Obj := TObject.Create;
+    writeln('This won''t.');
+end.
+
+
diff --git a/tests/webtbs/tbug873a.pp b/tests/webtbs/tbug873a.pp
new file mode 100644
index 0000000000..3a1fc61a70
--- /dev/null
+++ b/tests/webtbs/tbug873a.pp
@@ -0,0 +1,40 @@
+{$mode objfpc}
+program Teste;
+
+// Compile it using the Delphi extensions
+// directive.
+
+type
+    TObjectB = class
+      private
+        procedure SetValue(v: integer);
+      public
+        fx: integer;
+        Constructor Create;
+        Destructor Destroy;
+        property x: integer read fx write SetValue;
+    end;
+
+var
+    Obj: TObjectB;
+
+Constructor TObjectB.Create;
+begin
+    fx := 0;
+end;
+
+Destructor TObjectB.Destroy;
+begin
+end;
+
+procedure TObjectB.SetValue(v: integer);
+begin
+    fx := v + 2;
+end;
+
+begin
+    writeln('This will be printed');
+    Obj := TObjectB.Create;
+    writeln('This won''t.');
+end.
+