#include <config.h>
#include <unistd.h>

#include <check.h>

#include <parted/parted.h>

#include "common.h"
#include "progname.h"

#define STREQ(a, b) (strcmp (a, b) == 0)

static char* temporary_disk;

static void
create_disk (void)
{
        temporary_disk = _create_disk (80 * 1024 * 1024);
        fail_if (temporary_disk == NULL, "Failed to create temporary disk");
}

static void
destroy_disk (void)
{
        unlink (temporary_disk);
        free (temporary_disk);
}

/* TEST: Test partition type flag on gpt disklabel */
START_TEST (test_gpt_flag)
{
        PedDevice* dev = ped_device_get (temporary_disk);
        if (dev == NULL)
                return;

        PedDisk* disk = ped_disk_new_fresh (dev, ped_disk_type_get ("gpt"));
        PedConstraint *constraint = ped_constraint_any (dev);
        PedPartition *part = ped_partition_new (disk, PED_PARTITION_NORMAL,
            ped_file_system_type_get("ext4"), 2048, 4096);
        ped_partition_set_flag(part, PED_PARTITION_BIOS_GRUB, 1);
        // Type should remain set to BIOS_GRUB
        ped_partition_set_system(part, ped_file_system_type_get("ext4"));

        ped_disk_add_partition (disk, part, constraint);
        ped_disk_commit (disk);
        ped_constraint_destroy (constraint);

        // Check flag to confirm it is still set
        part = ped_disk_get_partition (disk, 1);
        fail_if (ped_partition_get_flag(part, PED_PARTITION_BIOS_GRUB) != 1, "BIOS_GRUB flag not set");

        ped_disk_destroy (disk);
        ped_device_destroy (dev);
}
END_TEST

int
main (int argc, char **argv)
{
        set_program_name (argv[0]);
        int number_failed;
        Suite* suite = suite_create ("Partition Flags");
        TCase* tcase_gpt = tcase_create ("GPT");

        /* Fail when an exception is raised */
        ped_exception_set_handler (_test_exception_handler);

        tcase_add_checked_fixture (tcase_gpt, create_disk, destroy_disk);
        tcase_add_test (tcase_gpt, test_gpt_flag);
        /* Disable timeout for this test */
        tcase_set_timeout (tcase_gpt, 0);
        suite_add_tcase (suite, tcase_gpt);

        SRunner* srunner = srunner_create (suite);
        srunner_run_all (srunner, CK_VERBOSE);

        number_failed = srunner_ntests_failed (srunner);
        srunner_free (srunner);

        return (number_failed == 0) ? EXIT_SUCCESS : EXIT_FAILURE;
}