← Back to branch summary

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

« back to all changes in this revision

Viewing changes to test/test-slib.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-slib.scm
1
1
#!/usr/bin/env gosh
2
2
 
3
 
;;; Copyright (c) 2003-2006 uim Project http://uim.freedesktop.org/
 
3
;;; Copyright (c) 2003-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
;; These tests are passed at revision 4331 (new repository)
 
33
 
32
34
(use test.unit)
33
35
 
34
36
(require "test/uim-test-utils")
81
83
                              ((2) #f))))))
82
84
 
83
85
(define-uim-test-case "testcase procedures"
84
 
  ("test precedure?"
 
86
  ("test procedure?"
85
87
   (assert-true  (uim-bool '(procedure? eof-val)))            ;; 0
86
88
   (assert-true  (uim-bool '(procedure? car)))                ;; 1
87
89
   (assert-true  (uim-bool '(procedure? cons)))               ;; 2
90
92
   (assert-true  (uim-bool '(procedure? dcngettext)))         ;; 5
91
93
   (assert-true  (uim-bool '(procedure? +)))                  ;; 2n
92
94
   (assert-true  (uim-bool '(procedure? append)))             ;; lsubr
93
 
   (assert-true  (uim-bool '(procedure? define)))             ;; fsubr
94
 
   (assert-true  (uim-bool '(procedure? cond)))               ;; msubr
 
95
 
 
96
   ;; SIOD
 
97
   ;;(assert-true  (uim-bool '(procedure? define)))             ;; fsubr
 
98
   ;;(assert-true  (uim-bool '(procedure? cond)))               ;; msubr
 
99
   ;; SigScheme: syntactic keyword cannot be evaluated as value
 
100
   ;;(assert-false (uim-bool '(procedure? define)))             ;; fsubr
 
101
   ;;(assert-false (uim-bool '(procedure? cond)))               ;; msubr
 
102
 
95
103
   (assert-true  (uim-bool '(procedure? (lambda (x) x))))     ;; closure
96
104
 
97
105
   (assert-false (uim-bool '(procedure? 0)))