1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
#!/usr/bin/guile -s
!#
; Pyguile hash tests - keyword arguments to functions and general Dicts.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Copyright (C) 2008 Omer Zak.
; This library is free software; you can redistribute it and/or
; modify it under the terms of the GNU Lesser General Public
; License as published by the Free Software Foundation; either
; version 2.1 of the License, or (at your option) any later version.
;
; This library is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
; Lesser General Public License for more details.
;
; You should have received a copy of the GNU Lesser General Public License
; along with this library, in a file named COPYING; if not, write to the
; Free Software Foundation, Inc., 59 Temple Place, Suite 330,
; Boston, MA 02111-1307 USA
;
; For licensing issues, contact <w1@zak.co.il>.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
(use-modules (guiletap))
(use-modules (pyguile))
(python-eval "import sys;sys.path = ['']+sys.path\n")
(python-eval "from t.scripts.t4apply import return_args\n")
(define check-kw-conversion
(lambda (keywords kwtemplate)
(python-apply '("__main__" "return_args") '() keywords
(list g2p_list2Tuple guile2python)
kwtemplate)))
(define catch-test-kw-conversion
(lambda (keywords kwtemplate)
(catch #t
(lambda () (check-kw-conversion keywords kwtemplate))
(lambda (key . args2) (object->string (list key args2))))))
(plan 20)
(is-ok 1 "validate test"
"positional: () keywords: {'a': 'argument A'}"
(catch-test-kw-conversion '((#:a . "argument A"))
(make-hash-table 2)))
(is-ok 2 "no kw template"
"positional: () keywords: {'bob': 'buba'}"
(python-apply '("__main__" "return_args")
'()
'((#:bob . "buba"))))
(is-ok 3 "no kw template 2"
"positional: () keywords: {'n': None}"
(python-apply '("__main__" "return_args")
'()
'((#:n . ()))
(list g2p_list2Tuple guile2python)))
(is-ok 4 "not a list of pairs"
"(wrong-type-arg (\"guileassoc2pythondict\" \"Wrong type argument in position ~A: ~S\" (1 not-a-list) #f))"
(catch-test-kw-conversion 'not-a-list
(make-hash-table 2)))
(is-ok 5 "not a list of pairs 2"
"(wrong-type-arg (\"guileassoc2pythondict\" \"Wrong type argument in position ~A: ~S\" (1 not-list-either) #f))"
(catch-test-kw-conversion '(not-list-either)
(make-hash-table 2)))
(is-ok 6 "bad key"
"(wrong-type-arg (\"guileassoc2pythondict\" \"Wrong type argument in position ~A: ~S\" (1 bad-key) #f))"
(catch-test-kw-conversion '((bad-key . 'val))
(make-hash-table 2)))
; Our own hash table for keywords
(define kwhash (make-hash-table 7))
(hashq-set! kwhash #:inpstr (list g2p_apply g2p_string2String))
(hashq-set! kwhash #:inpkw (list g2p_apply g2p_keyword2String))
(hashq-set! kwhash #:mynum (list g2p_apply g2p_num2Int))
(is-ok 7 "our own conversions"
"positional: () keywords: {'inpkw': 'must-be-kw', 'mynum': -3, 'inpstr': 'must be string', 'unverified': ['a', 'b', 'c']}"
(catch-test-kw-conversion '((#:unverified . (a b c)) (#:inpstr . "must be string") (#:inpkw . #:must-be-kw) (#:mynum . -3))
kwhash))
(is-ok 8 "bad conversion"
"(misc-error (\"python-apply\" \"keyword arguments conversion failure (~S)\" (((#:unverified . -3) (#:inpstr . 7) (#:inpkw . #:must-be-kw) (#:mynum . -3))) #f))"
(catch-test-kw-conversion '((#:unverified . -3) (#:inpstr . 7) (#:inpkw . #:must-be-kw) (#:mynum . -3))
kwhash))
; Passing a Dict argument to Python function
(define catch-python-apply
(lambda (args keywords argtemplate)
(catch #t
(lambda () (python-apply '("__main__" "return_args") args keywords argtemplate))
(lambda (key . args2) (object->string (list key args2))))))
(is-ok 9 "basic Dict"
"positional: ({1: 2},) keywords: {}"
(catch-python-apply '(((1 . 2))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python))))))
(is-ok 10 "more complicated Dict"
"positional: ({1: 2, '3': 4.0},) keywords: {}"
(catch-python-apply '(((1 . 2) ("3" . 4.0))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python)) (cons (list g2p_apply g2p_string2String) (list g2p_apply g2p_real2Float))))))
(is-ok 11 "bad conversion"
"(misc-error (\"python-apply\" \"positional arguments conversion failure (~S)\" ((((1 . 2) (\"3\" four-dot-zero)))) #f))"
(catch-python-apply '(((1 . 2) ("3" . (four-dot-zero)))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python)) (cons (list g2p_apply g2p_string2String) (list g2p_apply g2p_real2Float))))))
(is-ok 12 "no alist template"
"positional: ([[1, 3, 1, 4], ['2', '6', '2', '8']],) keywords: {}"
(python-apply '("__main__" "return_args")
'(((1 . (3 1 4)) ("2" . ("6" "2" "8"))))
'()))
(is-ok 13 "default template 2"
"positional: ({1: [3, 1, 4], '2': ['6', '2', '8']},) keywords: {}"
(python-apply '("__main__" "return_args")
'(((1 . (3 1 4)) ("2" . ("6" "2" "8"))))
'()
(list g2p_list2Tuple (list g2p_apply g2p_alist2Dict))))
(is-ok 14 "Dict template with non-list argument"
"(misc-error (\"python-apply\" \"positional arguments conversion failure (~S)\" ((\"not-a-list\")) #f))"
(catch-python-apply '("not-a-list") '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python))))))
(is-ok 15 "basic Dict with non-list template"
"(wrong-type-arg (\"g2p_alist2Dict\" \"Wrong type argument in position ~A: ~S\" (2 'guile2python) #f))"
(catch-python-apply '(((1 . 2))) '()
(list g2p_list2Tuple (list g2p_apply g2p_alist2Dict guile2python))))
(is-ok 16 "Dict with malformed template"
"(wrong-type-arg (\"g2p_alist2Dict\" \"Wrong type argument in position ~A: ~S\" (2 \"notapair\") #f))"
(catch-python-apply '(((1 . 2) ("3" . 4.0))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python)) "notapair"))))
(is-ok 17 "malformed alist"
"(misc-error (\"python-apply\" \"positional arguments conversion failure (~S)\" ((((1 . 2) conjugate (\"3\" . 4.0)))) #f))"
(catch-python-apply '(((1 . 2) conjugate ("3" . 4.0))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python)) (cons (list g2p_apply g2p_string2String) (list g2p_apply g2p_real2Float))))))
(is-ok 18 "Dict with keys matching template"
"positional: ({1: '2', '3': 4.0},) keywords: {}"
(catch-python-apply '(((1 . "2") ("3" . 4.0))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply g2p_num2Int) (list g2p_apply g2p_string2String)) (cons (list g2p_apply g2p_string2String) (list g2p_apply g2p_real2Float))))))
(is-ok 19 "Dict with keys not matching template"
"(misc-error (\"python-apply\" \"positional arguments conversion failure (~S)\" ((((1.5 . 2) (\"3\" . 4.0)))) #f))"
(catch-python-apply '(((1.5 . 2) ("3" . 4.0))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply g2p_num2Int) (list g2p_apply g2p_string2String)) (cons (list g2p_apply g2p_string2String) (list g2p_apply g2p_real2Float))))))
(is-ok 20 "alist with duplicate key"
"(misc-error (\"g2p_alist2Dict\" \"duplicate key (~S)\" (1) #f))"
(catch-python-apply '(((1 . 2) ("3" . 4.0) (1 . a55))) '()
(list g2p_list2Tuple (list g2p_alist2Dict (cons (list g2p_apply guile2python) (list g2p_apply guile2python)) (cons (list g2p_apply guile2python) (list g2p_apply guile2python))))))
; End of 13_hashes.t
|