aboutsummaryrefslogtreecommitdiff
path: root/t/13_hashes.t
diff options
context:
space:
mode:
Diffstat (limited to 't/13_hashes.t')
-rw-r--r--t/13_hashes.t167
1 files changed, 167 insertions, 0 deletions
diff --git a/t/13_hashes.t b/t/13_hashes.t
new file mode 100644
index 0000000..881039c
--- /dev/null
+++ b/t/13_hashes.t
@@ -0,0 +1,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
generated by cgit v1.2.3 (git 2.25.4) at 2024-05-05 18:38:40 +0000