diff --git a/Lib/test/test_array.py b/Lib/test/test_array.py
new file mode 100755
index 00000000000..74fcd45a603
--- /dev/null
+++ b/Lib/test/test_array.py
@@ -0,0 +1,40 @@
+#! /usr/bin/env python
+"""Test the arraymodule.
+Roger E. Masse
+"""
+import array
+
+def testtype(type, example):
+
+    
+	a = array.array(type)
+	a.append(example)
+	#print 40*'*'
+	#print 'array after append: ', a
+	a.typecode
+	a.itemsize
+	if a.typecode in ('i', 'b', 'h', 'l'):
+	    a.byteswap()
+
+	if a.typecode == 'c':
+	    f = open('/etc/passwd', 'r')
+	    a.fromfile(f, 10)
+	    #print 'char array with 10 bytes of /etc/passwd appended: ', a
+	    a.fromlist(['a', 'b', 'c'])
+	    #print 'char array with list appended: ', a
+
+	a.insert(0, example)
+	#print 'array of %s after inserting another:' % a.typecode, a
+	f = open('/dev/null', 'w')
+	a.tofile(f)
+	a.tolist()
+	a.tostring()
+	#print 'array of %s converted to a list: ' % a.typecode, a.tolist()
+	#print 'array of %s converted to a string: ' % a.typecode, a.tostring()
+
+testtype('c', 'c')
+
+for type in (['b', 'h', 'i', 'l', 'f', 'd']):
+    testtype(type, 1)
+
+	
diff --git a/Lib/test/testall.py b/Lib/test/testall.py
index aef9cdcd0ae..f85ac8aa653 100644
--- a/Lib/test/testall.py
+++ b/Lib/test/testall.py
@@ -4,7 +4,7 @@
 # Remember to add new tests when new features are added!
 
 from test_support import *
-
+		  
 print 'test_grammar'
 forget('test_grammar')
 import test_grammar
@@ -37,4 +37,8 @@ print 'test_time'
 unload('test_time')
 import test_time
 
+print 'test_array'
+unload('test_array')
+import test_array
+
 print 'Passed all tests.'