Changeset 14305 for lang/gauche

Timestamp:

06/20/08 21:41:38 (5 months ago)

Author:

kiyoka

Message:

Improved unit test of plain text layouter.

Files:

• lang/gauche/oldtype/trunk/src/test.scm (modified) (3 diffs)

lang/gauche/oldtype/trunk/src/test.scm

@@ -36 +36 @@
     (let ((oldtype-page #f)
           (oldtype-timeline #f)
-          (loaded        #?=(with-input-from-file "Test.sexp.master"
+          (loaded        (with-input-from-file "Test.sexp.master"
                            (lambda ()
                              (read)))))
@@ -77 +77 @@
 
       (test "ago string of lineno 1 <oldtype-timeline>"
-            "  (2 months ago)" 
+            "  (3 months ago)" 
             (lambda ()
               (get-ago (log-by-lineno oldtype-timeline 1))))
       (test "ago string of lineno 1 <oldtype-page>"
-            "  (2 months ago)"
+            "  (3 months ago)"
             (lambda ()
               (get-ago oldtype-page 1)))
@@ -105 +105 @@
       (test "date,ago,rank,committer of lineno 1 <oldtype-page>"
             '((date  . "2008-03-20 21:36 (+0900)")
-              (ago   . "  (2 months ago)")
+              (ago   . "  (3 months ago)")
               (rank  . 5)
               (committer . "kiyoka"))