diff --git a/Lib/test/test_fcntl.py b/Lib/test/test_fcntl.py
new file mode 100755
index 0000000..7639134
--- /dev/null
+++ b/Lib/test/test_fcntl.py
@@ -0,0 +1,31 @@
+#! /usr/bin/env python
+"""Test program for the fcntl C module.
+   Roger E. Masse
+"""
+import struct
+import fcntl
+import FCNTL
+import os
+
+verbose = 0
+if __name__ == '__main__':
+    verbose = 1
+
+filename = '/tmp/delete-me'
+
+# the example from the library docs
+f = open(filename,'w')
+rv = fcntl.fcntl(f.fileno(), FCNTL.O_NDELAY, 1)
+if verbose:
+    print 'Status from fnctl with O_NDELAY: ', rv
+    
+lockdata = struct.pack('hhllhh', FCNTL.F_WRLCK, 0, 0, 0, 0, 0)
+if verbose:
+    print 'struct.pack: ', lockdata
+    
+rv = fcntl.fcntl(f.fileno(), FCNTL.F_SETLKW, lockdata)
+if verbose:
+    print 'String from fcntl with F_SETLKW: ', rv
+
+f.close()
+os.unlink(filename)
diff --git a/Lib/test/testall.py b/Lib/test/testall.py
index d1a70bd..fa7c5ea7 100644
--- a/Lib/test/testall.py
+++ b/Lib/test/testall.py
@@ -26,6 +26,7 @@
 	 'test_dl',
 	 'test_thread',
 	 'test_xdr',
+	 'test_fcntl',
 	 ]
 
 if __name__ == '__main__':