repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
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
'
6
(5am:test null-bytearray
'
7
"Test empty QByteArray."
'
8
(5am:is (string= ""
'
9
(cxx:data (make-instance 'qt:byte-array)))))
'
10
'
11
'
12
(5am:test make-bytearray
'
13
"Tests string <-> QByteArray."
'
14
(5am:for-all ((string (5am:gen-string)))
'
15
(5am:is (string= string
'
16
(cxx:data (make-instance 'qt:byte-array
'
17
:args (list string)))))))