Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

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 bdbaccess

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

    input: program name
    -d
    -f etc... see readme
    output: number of arguments passed
  • t_setport(pnum);

    set the port value to pnum
    input: integer port number
    output: none
  • t_setsig();

    set the signal handler.
    test routine should issue SIGINT
    to child and catch resulting text
  • t_set_parent(val);

    set the value of "parent"
    return the previous value
  • $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
  • $err = t_init(home,...);

    input: dbhome, arg1...argN
    output: 0 or error code
  • $err = t_dump(which, name);

    input: 0 = primary db
    or nz = secondary db,
    database name
    this only works for specific
    test sequence used in the
    test suite.
    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
  • $data = t_get(which,addr,name);

    input: 0 = primary db
    or nz = secondary db
    database name
    output: data (long)
    or undef if not there
  • ($key,$data)=t_getrecno(which,name,cursor);

    input: 0 = primary db
    or nz = secondary db
    database name,
    cursor (starting at 1)
    output: key, data
  • $string = t_bdberror(status);

    input: BDB status code
    output: string representing the code
  • $version_string=t_bdbversion();

    input: none
    output: BDB version
  • $nrecords = t_bdbcount(name);

    input: name of database
    output: number of records in db

    NOTE: database must be open

EXPORT

None

AUTHOR

Michael Robinton <michael@bizsystems.com>

See also: files in subdirectory ./t