[uim-commit] r417 - in trunk: scm test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-01-31 03:42:52 -0800 (Mon, 31 Jan 2005)
New Revision: 417

Modified:
   trunk/scm/custom.scm
   trunk/test/test-custom.scm
Log:
* scm/custom.scm
  - (custom-group main): New custom group. This may have fixed the bug
    reported in r413. Thanks Kazuki
* test/test-custom.scm
  - (test custom-group-subgroups): Add existence check of 'main group


Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-01-31 11:09:23 UTC (rev 416)
+++ trunk/scm/custom.scm	2005-01-31 11:42:52 UTC (rev 417)
@@ -690,4 +690,8 @@
     (for-each load (reverse custom-required-custom-files))
     (custom-call-all-hook-procs custom-set-hooks)))
 
+(define-custom-group 'main
+		     (_ "")
+		     (_ "Main settings of this group"))
+
 (custom-reload-customs)

Modified: trunk/test/test-custom.scm
===================================================================
--- trunk/test/test-custom.scm	2005-01-31 11:09:23 UTC (rev 416)
+++ trunk/test/test-custom.scm	2005-01-31 11:42:52 UTC (rev 417)
@@ -756,6 +756,8 @@
 		 (uim '(custom-group-desc 'test-group3))))
 
   ("test custom-group-subgroups"
+   (assert-true  (uim-bool '(string? (custom-group-label 'main))))
+   (assert-true  (uim-bool '(string? (custom-group-desc 'main))))
    (assert-equal '(main test-group2 test-group3)
 		 (uim '(custom-group-subgroups 'test-group)))
    (assert-equal ()