diff --git a/harbour/tests/working/os.prg b/harbour/tests/working/os.prg
new file mode 100644
index 0000000000..23afbe1504
--- /dev/null
+++ b/harbour/tests/working/os.prg
@@ -0,0 +1,7 @@
+// Testing the OS function
+
+function Main()
+
+   QOUT( OS() )
+
+return nil