static GList *
real_get_file_list (NautilusDirectory *directory)
{
GList *tentative_files, *non_tentative_files;
tentative_files = eel_g_list_partition
(g_list_copy (directory->details->file_list),
is_tentative, NULL, &non_tentative_files);
g_list_free (tentative_files);
nautilus_file_list_ref (non_tentative_files);
return non_tentative_files;
}
void
eel_self_check_glib_extensions (void)
{
GList *compare_list_1;
GList *compare_list_2;
GList *compare_list_3;
GList *compare_list_4;
GList *compare_list_5;
GList *list_to_partition;
GList *expected_passed;
GList *expected_failed;
GList *actual_passed;
GList *actual_failed;
/* eel_g_str_list_equal */
/* We g_strdup because identical string constants can be shared. */
compare_list_1 = NULL;
compare_list_1 = g_list_append (compare_list_1, g_strdup ("Apple"));
compare_list_1 = g_list_append (compare_list_1, g_strdup ("zebra"));
compare_list_1 = g_list_append (compare_list_1, g_strdup ("!@#!@$#@$!"));
compare_list_2 = NULL;
compare_list_2 = g_list_append (compare_list_2, g_strdup ("Apple"));
compare_list_2 = g_list_append (compare_list_2, g_strdup ("zebra"));
compare_list_2 = g_list_append (compare_list_2, g_strdup ("!@#!@$#@$!"));
compare_list_3 = NULL;
compare_list_3 = g_list_append (compare_list_3, g_strdup ("Apple"));
compare_list_3 = g_list_append (compare_list_3, g_strdup ("zebra"));
compare_list_4 = NULL;
compare_list_4 = g_list_append (compare_list_4, g_strdup ("Apple"));
compare_list_4 = g_list_append (compare_list_4, g_strdup ("zebra"));
compare_list_4 = g_list_append (compare_list_4, g_strdup ("!@#!@$#@$!"));
compare_list_4 = g_list_append (compare_list_4, g_strdup ("foobar"));
compare_list_5 = NULL;
compare_list_5 = g_list_append (compare_list_5, g_strdup ("Apple"));
compare_list_5 = g_list_append (compare_list_5, g_strdup ("zzzzzebraaaaaa"));
compare_list_5 = g_list_append (compare_list_5, g_strdup ("!@#!@$#@$!"));
EEL_CHECK_BOOLEAN_RESULT (eel_g_str_list_equal (compare_list_1, compare_list_2), TRUE);
EEL_CHECK_BOOLEAN_RESULT (eel_g_str_list_equal (compare_list_1, compare_list_3), FALSE);
EEL_CHECK_BOOLEAN_RESULT (eel_g_str_list_equal (compare_list_1, compare_list_4), FALSE);
EEL_CHECK_BOOLEAN_RESULT (eel_g_str_list_equal (compare_list_1, compare_list_5), FALSE);
g_list_free_full (compare_list_1, g_free);
g_list_free_full (compare_list_2, g_free);
g_list_free_full (compare_list_3, g_free);
g_list_free_full (compare_list_4, g_free);
g_list_free_full (compare_list_5, g_free);
/* eel_g_list_partition */
list_to_partition = NULL;
list_to_partition = g_list_append (list_to_partition, "Cadillac");
list_to_partition = g_list_append (list_to_partition, "Pontiac");
list_to_partition = g_list_append (list_to_partition, "Ford");
list_to_partition = g_list_append (list_to_partition, "Range Rover");
expected_passed = NULL;
expected_passed = g_list_append (expected_passed, "Cadillac");
expected_passed = g_list_append (expected_passed, "Ford");
expected_failed = NULL;
expected_failed = g_list_append (expected_failed, "Pontiac");
expected_failed = g_list_append (expected_failed, "Range Rover");
actual_passed = eel_g_list_partition (list_to_partition,
eel_test_predicate,
"m",
&actual_failed);
EEL_CHECK_BOOLEAN_RESULT (eel_g_str_list_equal (expected_passed, actual_passed), TRUE);
EEL_CHECK_BOOLEAN_RESULT (eel_g_str_list_equal (expected_failed, actual_failed), TRUE);
/* Don't free "list_to_partition", since it is consumed
* by eel_g_list_partition.
*/
g_list_free (expected_passed);
g_list_free (actual_passed);
g_list_free (expected_failed);
g_list_free (actual_failed);
}