Lines Matching full:is
10 ;;;; distributed under the License is distributed on an "AS IS" BASIS,
18 ;;;; this is handled in make-test-client.lisp.
68 (is (null (thrift.test.thrift-test:test-void thrift-cross::*prot*))))
71 (is (thrift.test.thrift-test:test-bool thrift-cross::*prot* t))
72 (is (not (thrift.test.thrift-test:test-bool thrift-cross::*prot* nil))))
75 (is (= (thrift.test.thrift-test:test-byte thrift-cross::*prot* 127) 127))
76 (is (= (thrift.test.thrift-test:test-byte thrift-cross::*prot* -128) -128))
77 (is (= (thrift.test.thrift-test:test-byte thrift-cross::*prot* 42) 42))
78 (is (= (thrift.test.thrift-test:test-byte thrift-cross::*prot* 0) 0))
79 (is (= (thrift.test.thrift-test:test-i32 thrift-cross::*prot* 0) 0))
80 (is (= (thrift.test.thrift-test:test-i32 thrift-cross::*prot* 2147483647) 2147483647))
81 (is (= (thrift.test.thrift-test:test-i32 thrift-cross::*prot* -2147483648) -2147483648))
82 (is (= (thrift.test.thrift-test:test-i64 thrift-cross::*prot* 0) 0))
83 …(is (= (thrift.test.thrift-test:test-i64 thrift-cross::*prot* 9223372036854775807) 922337203685477…
84 …(is (= (thrift.test.thrift-test:test-i64 thrift-cross::*prot* -9223372036854775808) -9223372036854…
87 (is (= (thrift.test.thrift-test:test-double thrift-cross::*prot* 0.0) 0))
88 (is (= (thrift.test.thrift-test:test-double thrift-cross::*prot* 42.0) 42))
89 (is (= (thrift.test.thrift-test:test-double thrift-cross::*prot* -555.0) -555))
90 (is (= (thrift.test.thrift-test:test-double thrift-cross::*prot* -52.3678) -52.3678)))
93 (is (string= (thrift.test.thrift-test:test-string thrift-cross::*prot* "") ""))
94 …(is (string= (thrift.test.thrift-test:test-string thrift-cross::*prot* "(defun botsbuildbots () (b…
96 …(is (string= (thrift.test.thrift-test:test-string thrift-cross::*prot* *lang-string*) *lang-string…
97 …(is (string= (thrift.test.thrift-test:test-string thrift-cross::*prot* *trick-string*) *trick-stri…
100 (is (equalp (thrift.test.thrift-test:test-binary thrift-cross::*prot* #()) #()))
101 …(is (equalp (thrift.test.thrift-test:test-binary thrift-cross::*prot* *binary-sequence*) *binary-s…
104 …(is (= (thrift.test.thrift-test:test-enum thrift-cross::*prot* thrift.test:numberz.five) thrift.te…
105 …(is (= (thrift.test.thrift-test:test-enum thrift-cross::*prot* thrift.test:numberz.eight) thrift.t…
106 …(is (= (thrift.test.thrift-test:test-enum thrift-cross::*prot* thrift.test:numberz.one) thrift.tes…
109 …(is (= (thrift.test.thrift-test:test-typedef thrift-cross::*prot* 309858235082523) 309858235082523…
115 (defparameter *test-struct* (thrift.test:make-xtruct :string-thing "Hell is empty."
126 (is (string= (thrift.test:xtruct-string-thing *test-struct*)
128 (is (= (thrift.test:xtruct-byte-thing *test-struct*)
130 (is (= (thrift.test:xtruct-i32-thing *test-struct*)
132 (is (= (thrift.test:xtruct-i64-thing *test-struct*)
138 (is (string= (thrift.test:xtruct-string-thing *test-struct*)
140 (is (= (thrift.test:xtruct-byte-thing *test-struct*)
142 (is (= (thrift.test:xtruct-i32-thing *test-struct*)
144 (is (= (thrift.test:xtruct-i64-thing *test-struct*)
146 (is (= (thrift.test:xtruct2-byte-thing *test-nest*)
148 (is (= (thrift.test:xtruct2-i32-thing *test-nest*)
156 (is (null (thrift.test.thrift-test:test-list thrift-cross::*prot* nil)))
157 (is (equal (thrift.test.thrift-test:test-list thrift-cross::*prot* '(42 -42 0 5)) '(42 -42 0 5))))
160 (is (null (thrift.test.thrift-test:test-set thrift-cross::*prot* nil)))
161 (is (equal (sort (thrift.test.thrift-test:test-set thrift-cross::*prot* (list 42 -42 0 5)) #'<)
175 (is (null (thrift.test.thrift-test:test-map thrift-cross::*prot* nil)))
176 (is (map= (thrift.test.thrift-test:test-map thrift-cross::*prot* '((0 . 1) (42 . -42) (5 . 5)))
178 (is (map= (thrift.test.thrift-test:test-map-map thrift-cross::*prot* 42)
188 …"A helper function to test whether xception is signalled, and whether its fields have the expected…
195 …"A helper function to test whether xception2 is signalled, and whether its fields have the expecte…
204 …(is (test-xception 1001 "Xception" #'thrift.test.thrift-test:test-exception thrift-cross::*prot* "…
209 (is (test-xception 1001
210 "This is an Xception"
215 (is (test-xception2 2002
216 "This is an Xception2"
221 (is (string= "foobar" (thrift.test:xtruct-string-thing
231 (is (null (thrift.test.thrift-test:test-oneway thrift-cross::*prot* 1))))
240 (is (string= "asd" (thrift.test.second-service:secondtest-string thrift-cross::*prot* "asd"))))