repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
ASDF & modular smoke.
Annotate for file /src/qbytearray.lisp
2009-04-02 tobias
1
(in-package :qt.tests)
22:17:02 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(5am:test null-bytearray
'
6
"Test empty QByteArray."
2009-07-01 tobias
7
(5am:is (string= "" (cxx:data (make-instance 'qt:byte-array)))))
2009-04-02 tobias
8
2009-04-06 tobias
9
(5am:test bytearray
2009-07-01 tobias
10
"Test string <-> QByteArray."
2010-01-10 tobias
11
(5am:for-all ((string (5am:gen-one-element "" "Foo" "bar" "öäü" "1234")))
08:57:03 '
12
(5am:is (string= string
'
13
(cxx:data (make-instance 'qt:byte-array
'
14
:arg0 string)))))
'
15
#-openmcl ;; FIXME utf-8 problems with Clozure cl?
2009-04-02 tobias
16
(5am:for-all ((string (5am:gen-string)))
22:17:02 '
17
(5am:is (string= string
'
18
(cxx:data (make-instance 'qt:byte-array
2009-12-13 tobias
19
:arg0 string))))))
2009-08-27 tobias
20
(5am:test const-bytearray
08:41:11 '
21
"Test const QByteArray."
2009-12-13 tobias
22
;; Const operator[] returns a char, but the non const version a QByteRef.
12:45:36 '
23
;; Using this to test constnes overload resolution.
'
24
(let ((const-array (qt:operator+ (make-instance 'qt:byte-array :arg0 "a")
'
25
(make-instance 'qt:byte-array :arg0 "b"))))
'
26
(5am:is (typep (cxx:operator[] (make-instance 'qt:byte-array :arg0 "a") 0)
2009-08-27 tobias
27
'qt:byte-ref))
2009-12-13 tobias
28
(5am:is (eql #\a (cxx:operator[] const-array 0)))))
2009-08-27 tobias
29