Changeset 16053 for lang/gauche

Timestamp:

07/21/08 09:46:38 (4 months ago)

Author:

kiyoka

Message:

Added remove method to <svn-work> class.

Location:

lang/gauche/oldtype/trunk

Files:

• Kahua/oldtype/oldtype/svn.scm (modified) (2 diffs)
• bin/batch.sh (modified) (1 diff)
• src/test.scm (modified) (6 diffs)

lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/svn.scm

@@ -39 +39 @@
   (export init
           commit
+          remove
           status
           get-fullpath
@@ -122 +123 @@
 
 
+(define-method remove ((self <svn-work>))
+  ;; mkdir 
+  (remove-directory* (get-fullpath self))
+  #t)
+
+
 (define-method save-text-list ((self <svn-work>) wikiname text-list)
   (with-output-to-file (format "~a/edit/~a.ot" (get-fullpath self) wikiname)

lang/gauche/oldtype/trunk/bin/batch.sh

@@ -45 +45 @@
 }
 
-force=1
+cnt=0
 while :
 do
-  task ${force}
-  force=0
+  if [ "${cnt}" = "0" ] ; then
+    task 1
+  else
+    task 0
+  fi
+
+  cnt=`expr ${cnt} + 1`
+  if [ "${cnt}" -gt "10" ] ; then
+    cnt=0
+  fi
 done

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

@@ -91 +91 @@
 
       (test "ago string of lineno 1 <oldtype-timeline>"
-            "  (3 months ago)" 
+            "  (4 months ago)" 
             (lambda ()
               (get-ago (log-by-lineno oldtype-timeline 1))))
       (test "ago string of lineno 1 <oldtype-page>"
-            "  (3 months ago)"
+            "  (4 months ago)"
             (lambda ()
               (get-ago oldtype-page 1)))
@@ -119 +119 @@
       (test "date,ago,rank,committer of lineno 1 <oldtype-page>"
             '((date  . "2008-03-20 21:36 (+0900)")
-              (ago   . "  (3 months ago)")
+              (ago   . "  (4 months ago)")
               (rank  . 5)
               (committer . "kiyoka"))
@@ -185 +185 @@
 
       (let1 work
-            (make <svn-work> :url "http://genkan.sumibi.org/svn/newtype" :user "anonymous" :pass "anonymous" :basepath "/Users/kiyoka/work/tmp")
+            (make <svn-work> :url "http://genkan.sumibi.org/svn/newtype" :user "kahua" :pass "kahua" :basepath "/Users/kiyoka/work/tmp")
             
             (test "Initialize svn work directory"
@@ -195 +195 @@
                   '("" "")
                   (lambda ()
-                    (status work "_kiyoka")))
+                    (begin
+                      (display (get-fullpath work))
+                      (newline)
+                      (status work "_kiyoka"))))
 
             (test "status of wikiname (some changes)"
@@ -202 +205 @@
                     (save-text-list work
                                     "test"
-                                    '("UnitTest用ページ。" "----" "##(comment)"))
+                                    `("UnitTest用ページ。" ,(number->string (sys-time))))
                     (car (status work "test"))))
             
@@ -210 +213 @@
                     #t
                     (lambda ()
-                      (commit work)))))
-      
+                      (commit work)
+                      (remove work)))))
       (test-end)