@@ -29,6 +29,8 @@ char *test1(test_action action);

 char *socklib_connect(test_action action);

 char *socklib_sselect(test_action action);

 char *sbuf_memory(test_action action);

+char *webkernel_basic(test_action action);

+

 struct {

         char *(*test)(/* test_action action */);

@@ -36,6 +38,7 @@ struct {

            {socklib_connect},

            {socklib_sselect},

            {sbuf_memory},

+           {webkernel_basic},

           };

 int

@@ -75,6 +78,7 @@ main(int argc, char *argv[])

         return((totalfail!=0)?1:0);

 }

+/* test1 */

 char *

 test1(test_action action)

 {

@@ -86,6 +90,7 @@ test1(test_action action)

         return("ok");

 }

+/* socklib_connect */

 char *

 socklib_connect(test_action action)

 {

@@ -128,6 +133,7 @@ socklib_connect(test_action action)

         return(STRING_OK);

 }

+/* socklib_sselect */

 char *

 test_socketsinit(int *server, int *client, char **host, long *hostsize, int *port)

 {

@@ -275,6 +281,7 @@ socklib_sselect(test_action action)

         return(STRING_OK);

 }

+/* sbuf_memory */

 char *

 sbuf_memory(test_action action)

 {

@@ -341,3 +348,132 @@ sbuf_memory(test_action action)

         return(STRING_OK);

 }

+/* webkernel_basic */

+wk_action

+webkernel_basichttp(wk *web, int connid, wk_uri *uri, void *userptr)

+{

+

+        *((int *)userptr)=0;

+        char reply_ok[]={"Ok"};

+        if(strcmp(uri->path,"/test.cgi")==0) {

+                *((int *)userptr)=1;

+                wk_serve_buffer_as_file(web,connid,reply_ok,sizeof(reply_ok)-1,mime_getdefault("test.txt",NULL));

+        }

+        return(wkact_finished);

+}

+

+void

+webkernel_basicclose(int *client,sselect **ssel, char **host, wk **web)

+{

+        if(*client!=-1)

+                close(*client),*client=-1;

+        if(*host!=NULL)

+                free(*host),*host=NULL;

+        if(*web!=NULL)

+                wk_free(*web),*web=NULL;

+        if(*ssel!=NULL)

+                sselect_free(*ssel),*ssel=NULL;

+}

+

+char *

+webkernel_basic(test_action action)

+{

+        wk *web;

+        int port;

+        int off;

+        int check;

+        sselect *ssel;

+        int client;

+        char *host;

+        long hostsize;

+        int timeout;

+        int fds[2];

+        char buf;

+        char test_request[]={"\

+GET /test.cgi HTTP/1.0\r\n\

+Host: localhost\r\n\

+Connection: keep-alive\r\n\

+\r\n\

+"};

+        if(action==test_name)

+                return("webkernel_basic");

+        else if(action==test_description)

+                return("webkernel basic usage");

+        client=-1;

+        ssel=NULL;

+        host=NULL;

+        web=NULL;

+        timeout=100;

+        check=0;

+        if((ssel=sselect_init())==NULL)

+                return(STRING_FAIL ": couln't alloc a sselect structure");

+        for(port=19747,off=0,check=0;(web=wk_init(port,ssel,NULL,webkernel_basichttp,NULL,&check))==NULL;off++,port++)

+                ;

+        if(web==NULL) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": couln't find a free port to init webkernel");

+        }

+        if((host=ipv4_genip("localhost",&hostsize))==NULL) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": couldn't resove localhost");

+        }

+        if((client=ipv4_preconnect(host,hostsize,port))==-1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": couldn't connect to server\n");

+        }

+        if(ipv4_connect(client,timeout)==-1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": timeout on connect\n");

+        }

+        ipv4_postconnect(client);

+        /* accept the connection */

+        if(sselect_wait(ssel,timeout)!=1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": timeout on sselect_wait\n");

+        }

+        wk_service(web);

+        if(sselect_getread(ssel,fds,sizeof(fds)/sizeof(fds[0]))==1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": wk_service hasn't serviced the server connection\n");

+        }

+        /* client does request into socket */

+        write(client,test_request,sizeof(test_request)-1);

+        /* socket-> callback_http -> reply_in_wk */

+        if(sselect_wait(ssel,timeout)!=1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": timeout on sselect_wait (after client request)\n");

+        }

+        wk_service(web);

+        if(check!=1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": http callback was not called\n");

+        }

+        /* reply_in_wk -> socket */

+        if(sselect_wait(ssel,timeout)!=1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": timeout on sselect_wait (after client request)\n");

+        }

+        wk_service(web);

+        /* client read availability */

+        sselect_addread(ssel,client,NULL);

+        if(sselect_wait(ssel,timeout)!=1) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": timeout on sselect_wait (to read client reply)\n");

+        }

+        wk_service(web);

+        if(sselect_getread(ssel,fds,sizeof(fds)/sizeof(fds[0]))!=1 || *fds!=client) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": client read not detected\n");

+        }

+        /* read data */

+        if(read(client,buf,2)!=2 || memcmp(buf,"Ok",2)!=0) {

+                webkernel_basicclose(&client,&ssel,&host,&web);

+                return(STRING_FAIL ": corrupted data in read on client\n");

+        }

+        close(client),client=-1;

+        wk_free(web),web=NULL;

+        sselect_free(ssel),ssel=NULL;

+        free(host),host=NULL;

+        return(STRING_OK);

+}

+