NAME

CTest - Perl extension for testing local 'C' routines

SYNOPSIS

  use CTest;

DESCRIPTION

This module consists of various test routines to exercise the subroutines in the the 'C' pieces for dbtarpit

• $pid = t_pidrun();

    input:        none
    output:       pid found in pid file
  
    see t_chk4pid below

• t_savpid(path2pidfile)

    input:        path to pid file
    output:       none
  
    saves the pid of the current process
    in the pid file (path2pidfile)

• $pidpath = t_chk4pid(path)

    input:        path to pid file
    output:       undef or path to pid file
  
    checks for a process running with the pid
    found in "path". If the process is running
    return undef, otherwise return the "path".
    Always places the "pid" found in pid file
    into the variable "pidrun".

• $pidpath = t_pidpath();

    input:        none
    output:       current pidpath/file

• $rv=t_main(qw(program_name args, arg2,..., argN);

    input:        program name
                  -d
                  -f etc... see readme
    output:       number of arguments passed

• t_setsig();

    set the signal handler. 
    test routine should issue SIGINT 
    to child and catch resulting text

• ($size,$seed) = t_inirand(test);

    input:        0 = seed with time
                  n = seed with "n"
    output:       size of random array
                  random number seed value
  
    Initialize the random number generator

• @random = t_fillrand();

    input:        none (use t_inirand above)
    output:       random array of $size

• $IPPROTO_TCP = t_ret_IPPTCP();

    input:        none
    output:       numeric value of IPPROTO_TCP

• $rv = t_chk_trace();

    input:        none
    output:       conditional return value 
                  of "trace_tarpit" (below)
  
    conditionally called by check_4_tarpit(m)
    int
    tarpit(void * v)
    {
      extern int trace_tarpit;
      extern int dummy_tarpit;
      trace_tarpit = dummy_tarpit;
      return(trace_tarpit);
    }

• t_Lflag(ell);

  Set the value of Lflag;

    input:        integer
     output:      none

• t_NF_ACCEPT();

  Return the value of NF_ACCEPT.

• t_NF_DROP();

  Return the value of NF_DROP.

• $rv = t_check(addr,ts,xf,prot,tarpitresp);

    input:        ip address (dot quad)
                  timestamp
                  xflag
                  protocol
                  tarpit response
    output:       rv of check_4_tarpit(m)

• $err = t_init(home,...);

    input:        dbhome
                  db file name
                  secondary db file name (optional)
    output:       0 or error code

• $err = t_dump(which);

    input:        0  = primary db
                  nz = secondary db
    output:       0 or error code
  
    prints database to STDOUT in the format
          dot.quad.addr => timestamp

• t_close();

    input:        none
    output:       none
  
    close the database files and environment

• $rv = t_findaddr(addr,timestamp);

    input:        packed network address
                  timestamp
    output:       true if address found
                  in primary database
  
    updates timestamp in database if addr found

• t_saveaddr(addr, timestamp);

    input:        packed network address
                  timestamp
    output:       none
  
    inserts address (if absent) in secondary
    database, updates timestamp

• t_statn(name);

    input:        database name
    output:       number of keys
                  or zero on error

• ($errno,$fd)=t_LogPrint(dbhome,fifoname,message,oflag,Oflag,[fd])

  Directly call the LogPrint routine.

    input:        pointer to home path,
                  pointer to fifo name,
                  pointer to message,
                  oflag,
                  Oflag,
                  fd value [optional]
                  (defaults to 0)
    output:       error number,
                  file descriptor
  
      in scalar context returns errno only
  
      prints somewhere dependent on
  
          fifoname
          oflag
          Oflag
  
    don't print to a closed syslog!

• t_fifo_close();

  Close the fifo fd opened by LogPrint if it exists;

• @errors = t_errors();

  Returns an array of error numbers used for test.

  EPIPE,ENOSPC,EEXIST,ENOENT,ENOTDIR,ENXIO,ENODEV

• t_get(ai,addr,notstring)

  Same functionality as Tools::t_get but uses readOne

• t_getrecno(ai,cursor,notstring)

  Same functionality as Tools::t_getrecno but uses readOne

• t_libversion(ai)

  Similar functionality to Tools::t_libversion() and Tools::t_nkeys;

    input:        index to database
    returns:      number of keys,
                  major version,
                  minor version,
                  patch

  In scalar context returns only number of keys

EXPORT

None

AUTHOR

Michael Robinton <michael@bizsystems.com>

See also: files in subdirectory ./t