From 67c5131fb6c03cc4ec4a378b0f124bdeec71ed93 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Fri, 25 Jan 2013 01:29:44 +0000
Subject: Rename tests to not start with a digit

---
 tests/1185.hs      | 24 ------------------------
 tests/1185.stdout  |  2 --
 tests/3816.hs      |  4 ----
 tests/3816.stdout  |  2 --
 tests/T1185.hs     | 24 ++++++++++++++++++++++++
 tests/T1185.stdout |  2 ++
 tests/T3816.hs     |  4 ++++
 tests/T3816.stdout |  2 ++
 tests/all.T        |  4 ++--
 9 files changed, 34 insertions(+), 34 deletions(-)
 delete mode 100644 tests/1185.hs
 delete mode 100644 tests/1185.stdout
 delete mode 100644 tests/3816.hs
 delete mode 100644 tests/3816.stdout
 create mode 100644 tests/T1185.hs
 create mode 100644 tests/T1185.stdout
 create mode 100644 tests/T3816.hs
 create mode 100644 tests/T3816.stdout

(limited to 'tests')

diff --git a/tests/1185.hs b/tests/1185.hs
deleted file mode 100644
index 4948417..0000000
--- a/tests/1185.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-module Main where
-
-import Control.Concurrent
-import System.Posix
-import System.IO
-import System.Exit
-
-main =
-    do putStrLn "running..."
-       (stdinr, stdinw) <- createPipe
-       (stdoutr, stdoutw) <- createPipe
-       pid <- forkProcess $ do hw <- fdToHandle stdoutw
-                               hr <- fdToHandle stdinr
-                               closeFd stdinw
-                               hGetContents hr >>= hPutStr hw
-                               hClose hr
-                               hClose hw
-                               exitImmediately ExitSuccess
-       threadDelay 100000
-       closeFd stdoutw
-       closeFd stdinw
-       hr2 <- fdToHandle stdoutr
-       hGetContents hr2 >>= putStr
-       getProcessStatus True False pid >>= print
diff --git a/tests/1185.stdout b/tests/1185.stdout
deleted file mode 100644
index 7062314..0000000
--- a/tests/1185.stdout
+++ /dev/null
@@ -1,2 +0,0 @@
-running...
-Just (Exited ExitSuccess)
diff --git a/tests/3816.hs b/tests/3816.hs
deleted file mode 100644
index cda272f..0000000
--- a/tests/3816.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-import System.Posix
-main = do
-  getAllGroupEntries >>= print . (>0) . length
-  getAllGroupEntries >>= print . (>0) . length
diff --git a/tests/3816.stdout b/tests/3816.stdout
deleted file mode 100644
index dbde422..0000000
--- a/tests/3816.stdout
+++ /dev/null
@@ -1,2 +0,0 @@
-True
-True
diff --git a/tests/T1185.hs b/tests/T1185.hs
new file mode 100644
index 0000000..4948417
--- /dev/null
+++ b/tests/T1185.hs
@@ -0,0 +1,24 @@
+module Main where
+
+import Control.Concurrent
+import System.Posix
+import System.IO
+import System.Exit
+
+main =
+    do putStrLn "running..."
+       (stdinr, stdinw) <- createPipe
+       (stdoutr, stdoutw) <- createPipe
+       pid <- forkProcess $ do hw <- fdToHandle stdoutw
+                               hr <- fdToHandle stdinr
+                               closeFd stdinw
+                               hGetContents hr >>= hPutStr hw
+                               hClose hr
+                               hClose hw
+                               exitImmediately ExitSuccess
+       threadDelay 100000
+       closeFd stdoutw
+       closeFd stdinw
+       hr2 <- fdToHandle stdoutr
+       hGetContents hr2 >>= putStr
+       getProcessStatus True False pid >>= print
diff --git a/tests/T1185.stdout b/tests/T1185.stdout
new file mode 100644
index 0000000..7062314
--- /dev/null
+++ b/tests/T1185.stdout
@@ -0,0 +1,2 @@
+running...
+Just (Exited ExitSuccess)
diff --git a/tests/T3816.hs b/tests/T3816.hs
new file mode 100644
index 0000000..cda272f
--- /dev/null
+++ b/tests/T3816.hs
@@ -0,0 +1,4 @@
+import System.Posix
+main = do
+  getAllGroupEntries >>= print . (>0) . length
+  getAllGroupEntries >>= print . (>0) . length
diff --git a/tests/T3816.stdout b/tests/T3816.stdout
new file mode 100644
index 0000000..dbde422
--- /dev/null
+++ b/tests/T3816.stdout
@@ -0,0 +1,2 @@
+True
+True
diff --git a/tests/all.T b/tests/all.T
index 455f373..e6aaefc 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -52,14 +52,14 @@ test('fileStatusByteString',
      ['-package unix'])
 
 
-test('1185', normal, compile_and_run, ['-package unix'])
+test('T1185', normal, compile_and_run, ['-package unix'])
 
 # This test fails for me on x86/Linux with a "does not exist" error.
 # Running with strace shows it is trying to talk to winbindd (part of
 # Samba), so I think the failure has nothing to do with GHC.  Also it
 # works on a different machine that doesn't have Samba installed.
 #  --SDM 18/05/2010
-test('3816', normal, compile_and_run, ['-package unix'])
+test('T3816', normal, compile_and_run, ['-package unix'])
 
 test('processGroup001', normal, compile_and_run, ['-package unix'])
 test('processGroup002', normal, compile_and_run, ['-package unix'])
-- 
cgit v1.2.3