[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 4a6b8ee14bb524b772181f475c78874f232c3dda
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Oct 7 08:19:34 2004 +0100

    Finished string tests
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--1.0--patch-39)

diff --git a/ChangeLog b/ChangeLog
index 37d9fa4..a2aff95 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--1.0
 #
 
+2004-10-07 02:19:34 GMT	John Goerzen <jgoerzen at complete.org>	patch-39
+
+    Summary:
+      Finished string tests
+    Revision:
+      missingh--head--1.0--patch-39
+
+
+    modified files:
+     ChangeLog testsrc/Strtest.hs
+
+
 2004-10-07 02:16:05 GMT	John Goerzen <jgoerzen at complete.org>	patch-38
 
     Summary:
diff --git a/testsrc/Strtest.hs b/testsrc/Strtest.hs
index b456579..05606f7 100644
--- a/testsrc/Strtest.hs
+++ b/testsrc/Strtest.hs
@@ -30,7 +30,29 @@ test_lstrip =
                         ("\n\t fdsa", "fdsa"),
                         ("abc def", "abc def")]
 
-tests = TestList [TestLabel "lstrip" (TestCase test_lstrip)
+test_rstrip =
+    mapassertEqual "rstrip" rstrip
+                   [("", ""),
+                    ("a", "a"),
+                    (" a ", " a"),
+                    ("abas  ", "abas"),
+                    ("fdsa \n\t", "fdsa"),
+                    ("abc def", "abc def")]
+
+test_strip =
+    mapassertEqual "strip" strip
+                   [("", ""),
+                    ("a", "a"),
+                    (" a ", "a"),
+                    ("abas  ", "abas"),
+                    ("  abas", "abas"),
+                    ("asdf\n\t ", "asdf"),
+                    ("\nbas", "bas"),
+                    ("abc def", "abc def")]
+
+tests = TestList [TestLabel "lstrip" (TestCase test_lstrip),
+                  TestCase test_rstrip,
+                  TestCase test_strip
                   ]
 
 

-- 
haskell-testpack