diff options
Diffstat (limited to 't/05_pysmobs.t')
| -rw-r--r-- | t/05_pysmobs.t | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/t/05_pysmobs.t b/t/05_pysmobs.t new file mode 100644 index 0000000..4ed2cca --- /dev/null +++ b/t/05_pysmobs.t @@ -0,0 +1,128 @@ +#!/usr/bin/guile -s +!# +; PyGuile tests - exercise pysmob handling. +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; +; 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)) + +(plan 12) +(python-eval "import sys;sys.path = ['']+sys.path\n") +(define t5smobs (python-import "t.scripts.t5smobs")) + +(is-ok 1 "Creation and repr" "opaq('abc')" + (python-apply '("__builtin__" "repr") + (list (python-apply '("t.scripts.t5smobs" "opaq") + '("abc") '())) + '())) + +(is-ok 2 "Creation and object->string" "(python-eval opaq('abcd') #t)" + (object->string + (python-apply '("t.scripts.t5smobs" "opaq") + '("abcd") + '()))) + +(define objt (python-apply '("t.scripts.t5smobs" "opaq") + '(37) + '())) +(is-ok 3 "Created opaq with numeric value" "(python-eval opaq(37) #t)" + (object->string objt)) + +(python-apply (list objt "transform") '() '()) +(is-ok 4 "After transforming opaq with numeric value" + "(python-eval opaq(74) #t)" + (object->string objt)) + +(define objl (python-apply '("t.scripts.t5smobs" "opaq") + '(("el1" "el2")) + '())) +(is-ok 5 "opaq with list value" + "(python-eval opaq(['el1', 'el2']) #t)" + (object->string objl)) + +(python-apply (list objl "transform") '() '()) +(is-ok 6 "opaq with list value" + "(python-eval opaq(['el1', 'el2', 'el1', 'el2']) #t)" + (object->string objl)) + +(define equalities3? + (lambda (obj1 obj2) + (list (eq? obj1 obj2) (eqv? obj1 obj2) (equal? obj1 obj2)))) + +(is-ok 7 "verify equalities3?" + '(#f #f #t) + (equalities3? '("a" "b") '("a" "b"))) + +(define nd1 (python-apply (list t5smobs 'noisydelete) '("nd1a") '())) +(define nd2 (python-apply (list t5smobs 'noisydelete) '("nd2b") '())) +(define nd1same nd1) +(define nd1equal (python-apply (list t5smobs 'noisydelete) '("nd1a") '())) + +(is-ok 8 "two different pysmobs" + '(#f #f #f) + (equalities3? nd1 nd2)) + +(is-ok 9 "two identical pysmobs" + '(#t #t #t) + (equalities3? nd1 nd1same)) + +(is-ok 10 "two equal pysmobs" + '(#f #f #t) + (equalities3? nd1 nd1equal)) + +(define nd-me (python-apply (list t5smobs 'noisydelete) '("me") '())) +(define nd-41 (python-apply (list t5smobs 'noisydelete) '(41) '())) +(define nd-42 (python-apply (list t5smobs 'noisydelete) '(42) '())) + +(is-ok 11 "'me'!=41 to validate t5smobs.noisydelete.__cmp__ test" + '(#f #f #f) + (equalities3? nd-me nd-41)) + +(is-ok 12 "'me'==42 to prove t5smobs.noisydelete.__cmp__ is being executed" + '(#f #f #t) + (equalities3? nd-me nd-42)) + + +; The following tests do not work as expected and I do not have yet +; a way to capture outputs. +; !!! Check strports.h (object->string, scm_object_to_string). + +; Garbage collection behavior of pysmobs. +(define noisydel (python-apply (list t5smobs 'noisydelete) '("BOO!") '())) +(diagprint 1001 "verify noisydel object" + "'BOO!'" + (python-apply '("__builtin__" repr) (list noisydel) '())) +(display "# Forcing garbage collection...") +(gc) +(display "Done")(newline) +(diagprint 1002 "verify noisydel object after gc" + "'BOO!'" + (python-apply '("__builtin__" repr) (list noisydel) '())) +(set! noisydel "losing reference") +(display "# Forcing another garbage collection...") +(gc) +(display "Done - should show deletion of noisydel") +(newline) +(display "# ")(display noisydel)(newline) +(python-eval "import gc\ngc.collect()\n") +; End of 05_pysmobs.t |