--- /dev/null
+# This Makefile runs the tests using GHC's testsuite framework. It
+# assumes the package is part of a GHC build tree with the testsuite
+# installed in ../../../testsuite.
+
+TOP=../../../testsuite
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
--- /dev/null
+# This is a test script for use with GHC's testsuite framework, see
+# http://darcs.haskell.org/testsuite
+
+test('datamap001', normal, compile_and_run, [''])
+
--- /dev/null
+
+{-
+In the 6.6 era this printed [(5,"x")]; should be [(3,"b"),(5,"a")]
+-}
+
+module Main (main) where
+
+import Data.Map
+
+main :: IO ()
+main = do let m = fromList [(3,"b"),(5,"a")]
+ f k a = Just "x"
+ m' = updateAt f 1 m
+ print m'
--- /dev/null
+fromList [(3,"b"),(5,"x")]