src/qbytearray.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/qbytearray.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/qbytearray.lisp 2014-10-30 07:59:48.000000000 +0100
@@ -0,0 +1,17 @@
+(in-package :qt.tests)
+
+(5am:in-suite :qt.suite)
+
+
+(5am:test null-bytearray
+ "Test empty QByteArray."
+ (5am:is (string= ""
+ (cxx:data (make-instance 'qt:byte-array)))))
+
+
+(5am:test make-bytearray
+ "Tests string <-> QByteArray."
+ (5am:for-all ((string (5am:gen-string)))
+ (5am:is (string= string
+ (cxx:data (make-instance 'qt:byte-array
+ :args (list string)))))))