r23792: convert Samba4 to GPLv3
[samba.git] / source4 / torture / nbench / nbench.c
index 748ff90467462255c82fc59f1b042d179ae528ac..5cfa7dce1047aa591c4d3f95e2d7e376c306e6a8 100644 (file)
@@ -5,7 +5,7 @@
    
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2 of the License, or
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "includes.h"
+#include "libcli/libcli.h"
+#include "torture/ui.h"
+#include "torture/util.h"
+#include "torture/torture.h"
 #include "system/filesys.h"
+#include "system/locale.h"
 #include "pstring.h"
 
+#include "torture/nbench/proto.h"
+
 int nbench_line_count = 0;
 static int timelimit = 600;
 static int warmup;
 static const char *loadfile;
+static int read_only;
 
-#define ival(s) strtol(s, NULL, 0)
+#define ival(s) strtoll(s, NULL, 0)
 
 /* run a test that simulates an approximate netbench client load */
-static BOOL run_netbench(struct smbcli_state *cli, int client)
+static BOOL run_netbench(struct torture_context *tctx, struct smbcli_state *cli, int client)
 {
+       int torture_nprocs = lp_parm_int(-1, "torture", "nprocs", 4);
        int i;
        pstring line;
        char *cname;
        FILE *f;
-       fstring params[20];
-       const char *p;
        BOOL correct = True;
+       double target_rate = lp_parm_double(-1, "torture", "targetrate", 0);    
+
+       if (target_rate != 0 && client == 0) {
+               printf("Targetting %.4f MByte/sec\n", target_rate);
+       }
+
+       if (torture_nprocs == 1) {
+               if (!read_only && !torture_setup_dir(cli, "\\clients")) {
+                       return False;
+               }
+       }
 
        nb_setup(cli, client);
 
@@ -51,9 +68,13 @@ static BOOL run_netbench(struct smbcli_state *cli, int client)
                return False;
        }
 
+
 again:
+       nbio_time_reset();
+
        while (fgets(line, sizeof(line)-1, f)) {
                NTSTATUS status;
+               const char **params0, **params;
 
                nbench_line_count++;
 
@@ -61,12 +82,21 @@ again:
 
                all_string_sub(line,"client1", cname, sizeof(line));
                
-               p = line;
-               for (i=0; 
-                    i<19 && next_token(&p, params[i], " ", sizeof(fstring));
-                    i++) ;
-
-               params[i][0] = 0;
+               params = params0 = str_list_make_shell(NULL, line, " ");
+               i = str_list_length(params);
+
+               if (i > 0 && isdigit(params[0][0])) {
+                       double targett = strtod(params[0], NULL);
+                       if (target_rate != 0) {
+                               nbio_target_rate(target_rate);
+                       } else {
+                               nbio_time_delay(targett);
+                       }
+                       params++;
+                       i--;
+               } else if (target_rate != 0) {
+                       nbio_target_rate(target_rate);
+               }
 
                if (i < 2 || params[0][0] == '#') continue;
 
@@ -75,12 +105,19 @@ again:
                        exit(1);
                }
 
-               if (strncmp(params[i-1], "NT_STATUS_", 10) != 0) {
+               if (strncmp(params[i-1], "NT_STATUS_", 10) != 0 &&
+                   strncmp(params[i-1], "0x", 2) != 0) {
                        printf("Badly formed status at line %d\n", nbench_line_count);
+                       talloc_free(params);
                        continue;
                }
 
-               status = nt_status_string_to_code(params[i-1]);
+               /* accept numeric or string status codes */
+               if (strncmp(params[i-1], "0x", 2) == 0) {
+                       status = NT_STATUS(strtoul(params[i-1], NULL, 16));
+               } else {
+                       status = nt_status_string_to_code(params[i-1]);
+               }
 
                DEBUG(9,("run_netbench(%d): %s %s\n", client, params[0], params[1]));
 
@@ -89,15 +126,15 @@ again:
                                   ival(params[4]), status);
                } else if (!strcmp(params[0],"Close")) {
                        nb_close(ival(params[1]), status);
-               } else if (!strcmp(params[0],"Rename")) {
+               } else if (!read_only && !strcmp(params[0],"Rename")) {
                        nb_rename(params[1], params[2], status);
-               } else if (!strcmp(params[0],"Unlink")) {
+               } else if (!read_only && !strcmp(params[0],"Unlink")) {
                        nb_unlink(params[1], ival(params[2]), status);
-               } else if (!strcmp(params[0],"Deltree")) {
+               } else if (!read_only && !strcmp(params[0],"Deltree")) {
                        nb_deltree(params[1]);
-               } else if (!strcmp(params[0],"Rmdir")) {
+               } else if (!read_only && !strcmp(params[0],"Rmdir")) {
                        nb_rmdir(params[1], status);
-               } else if (!strcmp(params[0],"Mkdir")) {
+               } else if (!read_only && !strcmp(params[0],"Mkdir")) {
                        nb_mkdir(params[1], status);
                } else if (!strcmp(params[0],"QUERY_PATH_INFORMATION")) {
                        nb_qpathinfo(params[1], ival(params[2]), status);
@@ -105,16 +142,16 @@ again:
                        nb_qfileinfo(ival(params[1]), ival(params[2]), status);
                } else if (!strcmp(params[0],"QUERY_FS_INFORMATION")) {
                        nb_qfsinfo(ival(params[1]), status);
-               } else if (!strcmp(params[0],"SET_FILE_INFORMATION")) {
+               } else if (!read_only && !strcmp(params[0],"SET_FILE_INFORMATION")) {
                        nb_sfileinfo(ival(params[1]), ival(params[2]), status);
                } else if (!strcmp(params[0],"FIND_FIRST")) {
                        nb_findfirst(params[1], ival(params[2]), 
                                     ival(params[3]), ival(params[4]), status);
-               } else if (!strcmp(params[0],"WriteX")) {
+               } else if (!read_only && !strcmp(params[0],"WriteX")) {
                        nb_writex(ival(params[1]), 
                                  ival(params[2]), ival(params[3]), ival(params[4]),
                                  status);
-               } else if (!strcmp(params[0],"Write")) {
+               } else if (!read_only && !strcmp(params[0],"Write")) {
                        nb_write(ival(params[1]), 
                                 ival(params[2]), ival(params[3]), ival(params[4]),
                                 status);
@@ -135,6 +172,8 @@ again:
                } else {
                        printf("[%d] Unknown operation %s\n", nbench_line_count, params[0]);
                }
+
+               talloc_free(params0);
                
                if (nb_tick()) goto done;
        }
@@ -145,6 +184,9 @@ again:
 done:
        fclose(f);
 
+       if (!read_only && torture_nprocs == 1) {
+               smbcli_deltree(cli->tree, "\\clients");
+       }
        if (!torture_close_connection(cli)) {
                correct = False;
        }
@@ -154,31 +196,35 @@ done:
 
 
 /* run a test that simulates an approximate netbench client load */
-BOOL torture_nbench(void)
+BOOL torture_nbench(struct torture_context *torture)
 {
        BOOL correct = True;
-       extern int torture_nprocs;
+       int torture_nprocs = lp_parm_int(-1, "torture", "nprocs", 4);
        struct smbcli_state *cli;
        const char *p;
 
-       p = lp_parm_string(-1, "torture", "timelimit");
+       read_only = lp_parm_bool(-1, "torture", "readonly", False);
+
+       p = torture_setting_string(torture, "timelimit", NULL);
        if (p && *p) {
                timelimit = atoi(p);
        }
 
        warmup = timelimit / 20;
 
-       loadfile =  lp_parm_string(-1, "torture", "loadfile");
+       loadfile = torture_setting_string(torture, "loadfile", NULL);
        if (!loadfile || !*loadfile) {
                loadfile = "client.txt";
        }
 
-       if (!torture_open_connection(&cli)) {
-               return False;
-       }
+       if (torture_nprocs > 1) {
+               if (!torture_open_connection(&cli, 0)) {
+                       return False;
+               }
 
-       if (!torture_setup_dir(cli, "\\clients")) {
-               return False;
+               if (!read_only && !torture_setup_dir(cli, "\\clients")) {
+                       return False;
+               }
        }
 
        nbio_shmem(torture_nprocs, timelimit, warmup);
@@ -186,13 +232,38 @@ BOOL torture_nbench(void)
        printf("Running for %d seconds with load '%s' and warmup %d secs\n", 
               timelimit, loadfile, warmup);
 
+       /* we need to reset SIGCHLD here as the name resolution
+          library may have changed it. We rely on correct signals
+          from childs in the main torture code which reaps
+          children. This is why smbtorture BENCH-NBENCH was sometimes
+          failing */
+       signal(SIGCHLD, SIG_DFL);
+
+
        signal(SIGALRM, nb_alarm);
        alarm(1);
-       torture_create_procs(run_netbench, &correct);
+       torture_create_procs(torture, run_netbench, &correct);
        alarm(0);
 
-       smbcli_deltree(cli->tree, "\\clients");
+       if (!read_only && torture_nprocs > 1) {
+               smbcli_deltree(cli->tree, "\\clients");
+       }
 
        printf("\nThroughput %g MB/sec\n", nbio_result());
        return correct;
 }
+
+NTSTATUS torture_nbench_init(void)
+{
+       struct torture_suite *suite = torture_suite_create(
+                                                                               talloc_autofree_context(),
+                                                                               "BENCH");
+
+       torture_suite_add_simple_test(suite, "NBENCH", torture_nbench);
+
+       suite->description = talloc_strdup(suite, 
+                                                               "Benchmarks");
+
+       torture_register_suite(suite);
+       return NT_STATUS_OK;
+}