Changeset 13080 for lang/gauche/oldtype/trunk/src

Timestamp:

06/02/08 20:54:53 (5 years ago)

Author:

kiyoka

Message:

Bugfix: name of oldtype-page was not initialized.

Location:

lang/gauche/oldtype/trunk/src

Files:

• oldtype_to (modified) (2 diffs)
• test.scm (modified) (2 diffs)

lang/gauche/oldtype/trunk/src/oldtype_to

@@ -127 +127 @@
                          (display-help)
                          (cadr _)))
+         (wikiname (regexp-replace #/.ot$/
+                                   (sys-basename input-file)
+                                   ""))
          (type (string->symbol (car _)))
          (rest (cddr _))
@@ -142 +145 @@
     (case type
       ('internal
-       (let1 oldtype-page   (parse (make <oldtype-page>) input-port (car rest) (cadr rest))
+       (let1 oldtype-page   (parse (make <oldtype-page> :name wikiname) input-port (car rest) (cadr rest))
              (pretty-print-sexp (serialize oldtype-page))))
       ('sxml

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

@@ -39 +39 @@
       (test-section "oldtype-timeline")
       (let1 oldtype-timeline 
-            (parse (make <oldtype-timeline>) log-file ann-file)
+            (parse (make <oldtype-timeline> :name "Test") log-file ann-file)
             (let* ((serialized     (serialize oldtype-timeline))
                    (deserialized   (deserialize (make <oldtype-timeline>) serialized)))
               (test "serialized == DATA        "
-                    '((name . "none") (revision . 8208)
+                    '((name . "Test") (revision . 8208)
                       (log
                        (8208 (revision . 8208) (committer . kiyoka) (utc . 1206016615) (rank . 4))
@@ -61 +61 @@
 
       (test-section "oldtype-page")
-      (set! oldtype-page (parse (make <oldtype-page>) input-port log-file ann-file))
+      (set! oldtype-page (parse (make <oldtype-page> :name "Test") input-port log-file ann-file))
       (let1 serialized     (serialize oldtype-page)
             (test "serialized == DATA        "
-                  '((name . "none")
+                  '((name . "Test")
                     (sxml
                      (div
                       ((lineno . 1))
                       (h2 "UnitTest用のサンプルファイル" "\n")))
-                    (timeline (name . "none") (revision . 8208)
+                    (timeline (name . "Test") (revision . 8208)
                               (log
                                (8208 (revision . 8208) (committer . kiyoka) (utc . 1206016615) (rank . 4))