no message

tests/Makefile

@@ -975,6 +975,16 @@ ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
 endif
 endif
+ifeq ($(OS_TARGET),netbsd)
+ifeq ($(CPU_TARGET),powerpc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),netbsd)
+ifeq ($(CPU_TARGET),sparc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
 ifeq ($(OS_TARGET),amiga)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
@@ -1399,7 +1409,7 @@ makefiles: fpc_makefiles
 ifneq ($(wildcard fpcmake.loc),)
 include fpcmake.loc
 endif
-TESTSUBDIRS=cg cg/cdecl units/system units/dos units/crt units/objects units/strings
+TESTSUBDIRS=cg cg/cdecl units/system units/dos units/crt units/objects units/strings units/sysutils
 TESTDIRS:=test $(addprefix test/,$(TESTSUBDIRS))
 ifeq ($(OS_TARGET),linux)
 INUNIX=1

tests/Makefile.fpc

@@ -15,7 +15,7 @@ packages_linux=mysql
 
 [rules]
 # Subdirs available in the test subdir
-TESTSUBDIRS=cg cg/cdecl units/system units/dos units/crt units/objects units/strings
+TESTSUBDIRS=cg cg/cdecl units/system units/dos units/crt units/objects units/strings units/sysutils
 
 # All full dirnames in the test/ dir including the subdir self
 TESTDIRS:=test $(addprefix test/,$(TESTSUBDIRS))

tests/tbs/tb0467.pp

@@ -0,0 +1,9 @@
+type
+  tmyobject = class
+      fs : single;
+    published
+      property s : single read fs write fs default 3.1415;
+  end;
+
+begin
+end.

tests/test/units/sysutils/execansi.pp

@@ -0,0 +1,26 @@
+{$mode objfpc}
+{$h+}
+
+Uses Sysutils;
+
+var cmd,cmdline : String;
+    i           : Longint;
+
+begin
+  cmd:='execedbya';
+  cmdline:='';
+  for i:=0 to 10 do
+   cmdline:=cmdline+'-Fu/usr/local/lib/fpc/1.0.10/units/freebsd/rtl/* ';
+
+  if ExecuteProcess(cmd,cmdline)<>0 Then
+    halt(1);
+  // test illegal command
+  try
+    ExecuteProcess('afsdfdas',cmdline)
+  except
+    // unknown command should raise an exception
+    halt(0);
+  end;
+  // we should never get here
+  halt(1);
+end.

tests/test/units/sysutils/execedbya.pp

@@ -0,0 +1,19 @@
+{ %fail }
+{ this test fails when it isn't called by execansi }
+  uses
+    sysutils;
+
+  const
+    comparestr='-Fu/usr/local/lib/fpc/1.0.10/units/freebsd/rtl/*';
+
+  var
+    i : Longint;
+
+begin
+   for i:=1 to 11 do
+     if ParamStr(i)<>comparestr Then
+       halt(1);
+   if paramstr(12)<>'' then
+     halt(1);
+end.
+