blob: 9dbfaad7952bf3eaad3fd85f77c5ba7e55763d17 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;; Tests for pg-pgip.el
;;
;; $Id$
(pg-clear-test-suite "pg-pgip")
(pg-set-test-suite "pg-pgip")
(pg-test-eval (pg-pgip-interpret-value "true" 'boolean) t)
(pg-test-eval (pg-pgip-interpret-value "false" 'boolean) nil)
(pg-test-eval (pg-pgip-interpret-value "27" 'integer) 27)
(pg-test-eval (pg-pgip-interpret-value "true" (list 'choice 'boolean 'integer)) t)
(pg-test-eval (pg-pgip-interpret-value "27" (list 'choice 'boolean 'integer)) 27)
(provide 'pg-pgip-test)
;; End of `pg-pgip-test.el'
|
