* add cblock directive so that the test fails for the correct reason

tests/webtbf/tw30022.pp

@@ -7,7 +7,7 @@
 {$modeswitch cblocks}
 
 type
-  treadabilityHandler = reference to procedure (l :longint); cdecl;
+  treadabilityHandler = reference to procedure (l :longint); cdecl; cblock;
 
 procedure setReadabilityHandler(ahandler: treadabilityHandler);
   begin