4 * Copyright (C) 2009 Red Hat Inc.
7 * Luiz Capitulino <lcapitulino@redhat.com>
9 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
10 * See the COPYING.LIB file in the top-level directory.
15 #include "qemu-common.h"
18 * Public Interface test-cases
20 * (with some violations to access 'private' data)
23 START_TEST(qint_from_int_test
)
26 const int value
= -42;
28 qi
= qint_from_int(value
);
29 fail_unless(qi
!= NULL
);
30 fail_unless(qi
->value
== value
);
31 fail_unless(qi
->base
.refcnt
== 1);
32 fail_unless(qobject_type(QOBJECT(qi
)) == QTYPE_QINT
);
34 // destroy doesn't exit yet
39 START_TEST(qint_destroy_test
)
41 QInt
*qi
= qint_from_int(0);
46 START_TEST(qint_from_int64_test
)
49 const int64_t value
= 0x1234567890abcdefLL
;
51 qi
= qint_from_int(value
);
52 fail_unless((int64_t) qi
->value
== value
);
58 START_TEST(qint_get_int_test
)
61 const int value
= 123456;
63 qi
= qint_from_int(value
);
64 fail_unless(qint_get_int(qi
) == value
);
70 START_TEST(qobject_to_qint_test
)
74 qi
= qint_from_int(0);
75 fail_unless(qobject_to_qint(QOBJECT(qi
)) == qi
);
81 static Suite
*qint_suite(void)
84 TCase
*qint_public_tcase
;
86 s
= suite_create("QInt test-suite");
88 qint_public_tcase
= tcase_create("Public Interface");
89 suite_add_tcase(s
, qint_public_tcase
);
90 tcase_add_test(qint_public_tcase
, qint_from_int_test
);
91 tcase_add_test(qint_public_tcase
, qint_destroy_test
);
92 tcase_add_test(qint_public_tcase
, qint_from_int64_test
);
93 tcase_add_test(qint_public_tcase
, qint_get_int_test
);
94 tcase_add_test(qint_public_tcase
, qobject_to_qint_test
);
106 sr
= srunner_create(s
);
108 srunner_run_all(sr
, CK_NORMAL
);
109 nf
= srunner_ntests_failed(sr
);
112 return (nf
== 0) ? EXIT_SUCCESS
: EXIT_FAILURE
;