37 if (strcmp(
op->arch->name, arch_name) == 0) {
60 fail_unless(map1 != NULL,
"cannot load map /world/world_103_128");
63 fail_unless(scroll_arch != NULL,
"cannot find archetype scroll_new");
66 fail_unless(food_arch != NULL,
"cannot find archetype food");
69 fail_unless(scroll1 != NULL,
"cannot create object scroll_new");
72 fail_unless(scroll2 != NULL,
"cannot create object scroll_new");
75 fail_unless(food1 != NULL,
"cannot create object food");
78 fail_unless(food2 != NULL,
"cannot create object food");
84 fail_unless(
find_arch_at(map1, 4, 3,
"scroll_new") == NULL,
"map initially contains a scroll");
85 fail_unless(
find_arch_at(map1, 4, 3,
"food") == NULL,
"map initially contains a food");
88 fail_unless(scroll1 != NULL,
"scroll could not be added to the map");
90 fail_unless(
find_arch_at(map1, 4, 3,
"scroll_new") == scroll1,
"scroll disappeared");
91 fail_unless(
find_arch_at(map1, 4, 3,
"food") == NULL,
"map contains a food");
94 fail_unless(scroll2 != NULL,
"scroll could not be added to the map");
96 fail_unless(
find_arch_at(map1, 4, 3,
"scroll_new") == scroll2,
"scroll disappeared");
97 fail_unless(
find_arch_at(map1, 4, 3,
"food") == NULL,
"map contains a food");
99 fail_unless(scroll2->
nrof == 2,
"scrolls didn't merge");
105 Suite *s = suite_create(
"bug");
106 TCase *tc_core = tcase_create(
"Core");
110 suite_add_tcase(s, tc_core);
111 tcase_add_test(tc_core, test_merge);
112 tcase_set_timeout(tc_core, 0);
120 SRunner *sr = srunner_create(s);
122 srunner_set_fork_status(sr, CK_NOFORK);
126 srunner_set_xml(sr, LOGDIR
"/bugs/bugtrack/free_objects.xml");
127 srunner_set_log(sr, LOGDIR
"/bugs/bugtrack/free_objects.out");
128 srunner_run_all(sr, CK_ENV);
129 nf = srunner_ntests_failed(sr);
131 return nf == 0 ? EXIT_SUCCESS : EXIT_FAILURE;