/*****************************************************************************
 * Test cases for libxlsxwriter.
 *
 * Test to compare output against Excel files.
 *
 * Copyright 2014-2017, John McNamara, jmcnamara@cpan.org
 *
 */

#include "xlsxwriter.h"

int main() {

    lxw_workbook  *workbook  = new_workbook("test_chart_bar11.xlsx");
    lxw_worksheet *worksheet = workbook_add_worksheet(workbook, NULL);
    lxw_chart     *chart1 = workbook_add_chart(workbook, LXW_CHART_BAR);
    lxw_chart     *chart2 = workbook_add_chart(workbook, LXW_CHART_BAR);
    lxw_chart     *chart3 = workbook_add_chart(workbook, LXW_CHART_BAR);

    /* For testing, copy the randomly generated axis ids in the target file. */
    chart1->axis_id_1 = 40274944;
    chart1->axis_id_2 = 40294272;
    chart2->axis_id_1 = 62355328;
    chart2->axis_id_2 = 62356864;
    chart3->axis_id_1 = 79538816;
    chart3->axis_id_2 = 65422464;


    uint8_t data[5][3] = {
        {1, 2,  3},
        {2, 4,  6},
        {3, 6,  9},
        {4, 8,  12},
        {5, 10, 15}
    };

    int row, col;
    for (row = 0; row < 5; row++)
        for (col = 0; col < 3; col++)
            worksheet_write_number(worksheet, row, col, data[row][col], NULL);

    worksheet_write_url(worksheet, CELL("A7"), "http://www.perl.com/", NULL);
    worksheet_write_url(worksheet, CELL("A8"), "http://www.perl.org/", NULL);
    worksheet_write_url(worksheet, CELL("A9"), "http://www.perl.net/", NULL);

    chart_add_series(chart1, NULL, "=Sheet1!$A$1:$A$5");
    chart_add_series(chart1, NULL, "=Sheet1!$B$1:$B$5");
    chart_add_series(chart1, NULL, "=Sheet1!$C$1:$C$5");

    chart_add_series(chart2, NULL, "=Sheet1!$A$1:$A$5");
    chart_add_series(chart2, NULL, "=Sheet1!$B$1:$B$5");

    chart_add_series(chart3, NULL, "=Sheet1!$A$1:$A$5");

    worksheet_insert_chart(worksheet, CELL("E9"), chart1);
    worksheet_insert_chart(worksheet, CELL("D25"), chart2);
    worksheet_insert_chart(worksheet, CELL("L32"), chart3);

    return workbook_close(workbook);
}
