← Back to branch summary

~ubuntu-branches/ubuntu/hardy/uim/hardy

« back to all changes in this revision

Viewing changes to test/test-plugin.scm

  • Committer: Bazaar Package Importer
  • Author(s): Masahito Omote
  • Date: 2007-04-21 03:46:09 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20070421034609-gpcurkutp8vaysqj
Tags: 1:1.4.1-3
* Switch to dh_gtkmodules for the gtk 2.10 transition (Closes:
  #419318)
  - debian/control: Add ${misc:Depends} and remove libgtk2.0-bin on
    uim-gtk2.0.
  - debian/uim-gtk2.0.post{inst,rm}: Removed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/test-plugin.scm
1
1
#!/usr/bin/env gosh
2
2
 
3
 
;;; Copyright (c) 2005-2006 uim Project http://uim.freedesktop.org/
 
3
;;; Copyright (c) 2005-2007 uim Project http://uim.freedesktop.org/
4
4
;;;
5
5
;;; All rights reserved.
6
6
;;;
29
29
;;; SUCH DAMAGE.
30
30
;;;;
31
31
 
32
 
;; This file is tested with revision 327 of new repository
 
32
;; These tests are passed at revision 4331 (new repository)
33
33
 
34
34
(use test.unit)
35
35
 
38
38
(define-uim-test-case "testcase module"
39
39
  (setup
40
40
   (lambda ()
 
41
     ;; Cancels LIBUIM_VANILLA=1. See init.scm for further details.
 
42
     (uim '(load-enabled-modules))
 
43
 
 
44
     (uim-define-siod-compatible-require)
41
45
     (uim '(begin
42
46
             ))))
43
47
 
63
67
                 (uim '(im-module-name (retrieve-im 'hangul2))))
64
68
   ;; raw require does not set im-module-name
65
69
   (uim '(set! im-list ()))
 
70
 
66
71
   (uim '(undefine *tcode.scm-loaded*))
67
72
   (assert-false (uim-bool '(symbol-bound? '*tcode.scm-loaded*)))
68
73
   (assert-false (uim-bool '(retrieve-im 'tcode)))
69
74
   (assert-true  (uim-bool '(require "tcode.scm")))
 
75
 
70
76
   (assert-equal 'tcode
71
77
                 (uim '(im-name (retrieve-im 'tcode))))
72
78
   (assert-false (uim-bool '(im-module-name (retrieve-im 'tcode))))