#include "gtest/gtest.h"
#include "test_common.h"
extern "C" {
#include "PikaMain.h"
#include "PikaParser.h"
#include "PikaStdLib_MemChecker.h"
#include "PikaVM.h"
#include "dataArgs.h"
#include "dataMemory.h"
#include "dataStrs.h"
#include "pikaScript.h"
#include "pika_config_gtest.h"
#include "time.h"

typedef struct tm _tm;
extern int64_t time_mktime(const _tm* this_tm, int locale);
extern void time_gmtime(double unix_time, _tm* this_tm);
extern void time_asctime(const _tm* this_tm); 
void time_struct_format(const _tm* this_tm, char* str);
}

extern PikaMemInfo pikaMemInfo;
/* the log_buff of printf */
extern char log_buff[LOG_BUFF_MAX][LOG_SIZE];

TEST(unix_time, time) {
    /* init */
    pikaMemInfo.heapUsedMax = 0;
    /* run */
    PikaObj* self = newRootObj("pikaMain", New_PikaMain);
    obj_run(self,
            "mytime = TemplateDevice.Time()\n"
            "t1= mytime.time()\n"
            "t2= mytime.time()\n");
    /* 获取数据比对 */
    float t1 = obj_getFloat(self, "t1");
    float t2 = obj_getFloat(self, "t2");
    /* assert */
    EXPECT_FLOAT_EQ(t1, 0.05);
    EXPECT_FLOAT_EQ(t2, 0.1);
    /* deinit */
    obj_deinit(self);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(unix_time, unix_time) {
    /* init */
    pikaMemInfo.heapUsedMax = 0;
    /* run */
    PikaObj* self = newRootObj("pikaMain", New_PikaMain);
    obj_run(self,
            "mytime = PikaStdDevice.Time()\n"
            "mytime.localtime(0.0)\n");
    /* 获取数据比对 */
    int tm_sec = obj_getInt(self, "mytime.tm_sec");
    int tm_min = obj_getInt(self, "mytime.tm_min");
    int tm_hour = obj_getInt(self, "mytime.tm_hour");
    int tm_mday = obj_getInt(self, "mytime.tm_mday");
    int tm_mon = obj_getInt(self, "mytime.tm_mon");
    int tm_year = obj_getInt(self, "mytime.tm_year");
    int tm_wday = obj_getInt(self, "mytime.tm_wday");
    int tm_yday = obj_getInt(self, "mytime.tm_yday");
    int tm_isdst = obj_getInt(self, "mytime.tm_isdst");
    /* assert */
    EXPECT_EQ(tm_sec, 0);
    EXPECT_EQ(tm_min, 0);
    EXPECT_EQ(tm_hour, 8);
    EXPECT_EQ(tm_mday, 1);
    EXPECT_EQ(tm_mon, 0);  // 1月
    EXPECT_EQ(tm_year, 1970);
    EXPECT_EQ(tm_wday, 4);  //周四
    EXPECT_EQ(tm_yday, 1);
    EXPECT_EQ(tm_isdst, -1);
    /* deinit */
    obj_deinit(self);
    EXPECT_EQ(pikaMemNow(), 0);
}

int compare(const _tm* t1,const _tm* t2)
{
    int size = 8; //只比对前面8个数据
    int *it1 = (int*)t1;
    int *it2 = (int*)t2;
    for(int i=0;i<size;i++)
    {
        //printf("t1=%d,t2=%d\n",it1[i],it2[i]);
        if(it1[i]!=it2[i])
        {
            printf("mytime:  ");
            time_asctime(t1);
            printf("ctime:  ");
            time_asctime(t2);
            return 1;
        }
    }
    return 0;
}

TEST(unix_time, iteration_form_1970_to_2070) {
    /* init */
    _tm temp1,*temp2;
    int64_t tint1;
    int64_t r=123456;
    int flag = 1;
    char str[200];
    /* run */

    /* 获取数据比对 */
    int test_num =365*100;
    int record = test_num;

    while(test_num--)
    {
        //r=randL2();
        r+=24*60*60;
        time_gmtime(r,&temp1);
        tint1 = time_mktime(&temp1,0);
        temp2 = gmtime(&r);
        temp1.tm_yday -=1;
        temp1.tm_isdst =0;
        temp2->tm_year+=1900;
        if(compare(&temp1,temp2))
        {
            printf("error!\n");
            //格式化字符
            time_struct_format(&temp1, str);
            printf("%s\n", str);
            time_struct_format(temp2, str);
            printf("%s\n", str);
            flag=0;
            break;
        }
        if(tint1 != r)
        {
            printf("\n error!tint1 = %ld ,r = %ld \n",tint1,r);
            flag=0;
            break;
        }
        //printf("\n\n");
    }
    printf("Had passed %d times test !\r\n",record-test_num-1);
    /* assert */
    EXPECT_EQ(flag, 1);
    /* deinit */
}