Make unit tests work & run tests on darcs record
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
2009-07-01 tobias 5
2009-04-02 tobias 6 (5am:test null-bytearray
22:17:02 ' 7 "Test empty QByteArray."
2009-07-01 tobias 8 (5am:is (string= ""
11:02:20 ' 9 (cxx:data (make-instance 'qt:byte-array)))))
' 10
2009-04-02 tobias 11
2009-04-06 tobias 12 (5am:test bytearray
2009-07-01 tobias 13 "Tests string <-> QByteArray."
2009-04-02 tobias 14 (5am:for-all ((string (5am:gen-string)))
22:17:02 ' 15 (5am:is (string= string
' 16 (cxx:data (make-instance 'qt:byte-array
2009-12-13 tobias 17 :args (list string)))))))