The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    Test::STDmaker - generate test scripts, demo scripts from a test
    description short hand

SYNOPSIS
     #######
     # Procedural (subroutine) interface
     # 
     use Test::STDmake qw(find_t_roots get_data perl_command);

     @t_path = find_t_paths()
     $date = get_date();
     $myperl = perl_command();

     #####
     # Class interface
     #
     use Test::STDmaker

     $std = new Test::STDmaker( @options ); # From File::Maker

     $success = $std->check_db($std_pm);
     @t_path = $std->find_t_paths()
     $date = $std->get_date();
     $myperl = $std->perl_command();

     $std->tmake( @targets, \%options ); 
     $std->tmake( @targets ); 
     $std->tmake( \%options  );

     ######
     # Internal (Private) Methods
     #
     $success = $std->build($std_driver_class);
     $success = $std->generate();
     $success = $std->print($file_out);

DESCRIPTION
    The "Test::STDmaker" program module provides the following capabilities:

    1   Automate Perl related programming needed to create a test script
        resulting in reduction of time and cost.

    2   Translate a short hand Software Test Description (STD) file into a
        Perl test script that eventually makes use of the Test module.

    3   Translate the sort hand STD data file into a Perl demo script that
        demonstrates the features of the the module under test.

    4   Provide in the POD of a STD file information required by a
        Military/Federal Government Software Test Description (the STD
        manpage) document that may easily be index and accessed by automated
        Test software. ISO, British Military require most of the same
        information, US agencies such as the FAA. The difference is that
        ISO, British Military do not dictate detail format. US agencies such
        as FAA will generally tailor down the DOD required formats. Thus,
        there is an extremely wide variation in the format of the same
        information among ISO certified comericial activities and militaries
        other than US. Once the information is in a POD, different
        translators may format nearly exactly as dictated by the end user,
        whether it is the US DOD, ISO certified commericial activity,
        British Military or whoever. By being able to provide the most
        demanding, which is usually US DOD, the capabilities are there for
        all the others.

    The "Test::STDmaker" package relieves the designer and developer from
    the burden of filling out word processor boiler plate templates (whether
    run-off, Word, or vi), counting oks, providing documentation examples,
    tracing tests to test requirments, making sure it is in the proper
    corporate, ISO or military format, and other such extremely time
    consuming, boring, development support tasks. Instead the designers and
    developers need only to fill in a form using a test description short
    hand. The "Test::STDmaker" will take it from there and automatically and
    quickly generate the desired test scripts, demo scripts, and test
    description documents.

    Look at the economics. It does not make economically sense to have
    expensive talent do this work. In does not even make economically sense
    to take a bright 16 year, at mimimum wage and have him manually count
    oks. Perl can count those oks much much cheaper and it is so easily to
    automated with Perl. And something like this were you are doing it year
    in and year out, the saving are enormous. To a program manager or
    contract officer, this is what programming and computers are all about,
    saving money and increasing productivity, not object oriented oriented
    programing, gotos or other such things.

    The "Test::STDmaker" class package automates the generation of Software
    Test Descriptions (STD) Plain Old Documentation (POD), test scripts,
    demonstrations scripts and the execution of the generated test scripts
    and demonstration scripts. It will automatically insert the output from
    the demonstration script into the POD *-headx Demonstration* section of
    the file being tested.

    The inputs for "Test::STDmaker" class package is the "__DATA__" section
    of Software Test Description (STD) program module and a list of targets.
    The __DATA__ section must contain a STD forms text database in the
    Tie::Form format. Most of the targets are the ouputs. Each output has
    its own program module in the "Test::STDmaker::" repository. The targets
    are the name of a program module that process the form database as
    follows:

     target output program module   description
     -------------------------------------------------------
     Check  Test::STDmaker::Check   cleans database, counts oks
     Demo   Test::STDmaker::Demo    generates demo script
     STD    Test::STDmaker::STD     generates STD POD
     Verify Test::STDmaker::Verify  generates test script

    The interface between the "Test::STDmaker" package each of the driver
    packages in the "Test::STDmaker::" repository is the same. New driver
    packages may be added by putting them in the "Test::STDmaker::"
    repository without modifying the "Test::STDmaker" package. The
    "Test::STDmaker" package will find it and add it to is target list.

    The STD program modules that contain the forms database should reside in
    a "'t'" subtree whose root is the same as the "'lib'" subtree. For the
    host site development and debug, the "lib" directory is most convenient
    for test program modules. However, when building the distribution file
    for installation on a target site, test library program modules should
    be placed at the same level as the test script.

    For example, while debugging and development the directory structure may
    look as follows:

     development_dir   
       lib
         MyTopLevel
           MyUnitUnderTest.pm  # code program module
         Data::xxxx.pm  # test library program modules

         File::xxxx.pm  # test library program modules
       t
         MyTopLevel
           MyUnitUnderTest.pm  # STD program module

     # @INC contains the absolute path for development_dir

    while a target site distribution directory for the "MyUnitUnderTest"
    would be as follows:

     devlopment_dir 
       release_dir
         MyUnitUnderTest_dir
           lib
             MyTopLevel
               MyUnitUnderTest.pm  # code program module
           t
             MyTopLevel
               MyUnitUnderTest.pm  # STD program module

               Data::xxxx.pm  # test library program modules

               File::xxxx.pm  # test library program modules

     # @INC contains the absolute path for MyUnitUnderTest_dir 
     # and does not contain the absolute path for devlopment_dir

    When "Test::STDmaker" methods searches for a STD PM, it looks for it
    first under all the directories in @INC This means the STD program
    module name must start with ""t::"". Thus the program module name for
    the Unit Under Test (UUT), "MyTopLevel::MyUnitUNderTest", and the UUT
    STD program module, "t::MyTopLevel::MyUnitUNderTest", are always
    different.

    Use the "tmake.pl" (test make), found in the distribution file, cover
    script for Test::STDmaker to process a STD database module to generate a
    test script for debug and development as follows:

     tmake -verbose -nounlink -pm=t::MyTopLevel::MyUnitUnderTest

    The "tmake" script creates a "$std" object and runs the "tmake" method

     my $std = new Test::STDmaker(\%options);
     $std->tmake(@ARGV);

    which replaces the POD in "t::MyTopLevel::MyUnitUNderTest" STD program
    module and creates the following files

     development_dir
       t
         MyTopLevel
           MyUnitUNderTest.t  # test script
           MyUnitUNderTest.d  # demo script
           temp.pl            # calculates test steps and so forth

    The names for these three files are determined by fields in the
    "__DATA__" section of the "t::MyTopLevel::MyUnitUNderTest" STD program
    module. All geneated scripts will contain Perl code to change the
    working directory to the same directory as the test script and add this
    directory to "@INC" so the Perl can find any test library program
    modules placed in the same directory as the test script.

    The first step is to debug temp.pl in the "development_dir"

     perl -d temp.pl

    Make any correction to the STD program module
    "t::MyTopLevel::MyUnitUNderTest" not to "temp.pl" and repeat the above
    steps. After debugging "temp.pl", use the same procedure to debug
    "MyUnitUnderTest.t", "MyUnitUnderTest.d"

      perl -d MyUnitUnderTest.t
      perl -d MyUnitUnderTest.d

    Again make any correction to the STD program module
    "t::MyTopLevel::MyUnitUNderTest" not to "MyUnitUnderTest.t"
    "MyUnitUnderTest.d"

    Once this is accomplished, develop and debug the UUT using the test
    script as follows:

     perl -d MyUnitUnderTest.t

    Finally, when the "MyTopLevel::MyUnitUNderTest" is working replace the
    "=head1 DEMONSTRATION" in the "MyTopLevel::MyUnitUNderTest" with the
    output from "MyUnitUnderTest.d" and run the "MyUnitUnderTest.t" under
    "Test::Harness" with the following:

     tmake -verbose -test_verbose -demo -report -run -pm=t::MyTopLevel::MyUnitUnderTest

    Since there is no "-unlink" option, "tmake" removes the "temp.pl" file.

    Keep the "t" subtree under the "development library" for regression
    testing of the development library.

    Use ExtUtils::SVDmaker to automatically build a release directory from
    the development directory, run the test script using only the files in
    the release directory, bump revisions for files that changed since the
    last distribution, and package the UUT program module, test script and
    test library program modules and other files for distrubtion.

STD Program Module
    The input(s) for the "Test::STDmaker" package are Softare Test
    Description Program Modules (STM PM).

    A STD PM consists of three sections as follows:

    Perl Code Section
        The code section contains the following Perl scalars: $VERSION,
        $DATE, and $FILE. STDmaker automatically generates this section.

    STD POD Section
        The STD POD section is either a tailored Detail STD format or a
        tailored STD2167 format described below. STDmaker automatically
        generates this section.

    STD Form Database Section
        This section contains a STD Form Database that STDmaker uses (only
        when directed by specifying STD as the output option) to generate
        the Perl code section and the STD POD section.

  POD Section

    The POD sectin contains the detail STD for the program module under
    test. US DOD 490A 3.1.2 allows for general/detail separation of
    requirement for a group of configuration items with a set of common
    requirements. Perl program modules qualify as such. This avoids
    repetition of common requirements in detail specifications. The detail
    specification and the referenced general specification then constitute
    the total requirements.

  Form Database Section

    The "Test::STDmaker" module uses the Tie::Form lenient format to access
    the data in the Data Section.

    The requirements of Tie::Form lenient format govern in case of a
    conflict with the description herein.

    In accordance with Tie::Form, STD PM data consists of series of *field
    name* and *field data* pairs.

    The Tie::Form format separator strings are as follows:

     End of Field Name:  [^:]:[^:]
     ENd of Field Data:  [^\^]\^[^\^]
     End of Record    :  ~-~

    In other words, the separator strings have a string format of the
    following:

     (not_the_char) . (char) . (not_the_char)

    The following are valid *FormDB* fields:

     name: data^

     name:
     data
      ..
     data
     ^

    Separator strings are escaped by added an extra chacater. For example,

    DIR:::Module: $data ^
          unescaped field name:  DIR::MOdule

    DIR::Module:: : $data ^
          unescaped field name: DIR:Module:

        Since the field name ends in a colon the format requires a space
        between the field name and the *end of field name colon*. Since the
        *FormDB* format ignores leading and trailing white space for field
        names, this space is not part of the field name. space.

    This is customary form that all of us have been forced to fill out
    through out our lives with the addition of ending field punctuation.
    Since the separator sequences are never part of the field name and data,
    the code to read it is trivial. For being computer friendly it is hard
    to beat. And, altough most of us are adverse to forms, it makes good try
    of being people friendly.

    An example of a STD Form follows:

     File_Spec: Unix^
     UUT: Test::STDmaker::tg1^
     Revision: -^
     End_User: General Public^
     Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
     STD2167_Template: ^
     Detail_Template: ^
     Classification: None^
     Demo: TestGen1.d^
     Verify: TestGen1.t^

      T: 0^

      C: use Test::t::TestGen1^

      R: L<Test::t::TestGen1/Description> [1]^

      C: 
         my $x = 2
         my $y = 3
     ^

      A: $x + $y^
     SE: 5^

      N: Two Additions 
      A: ($x+$y,$y-$x)^
      E: (5,1)^

      N: Two Requirements^

      R: 
         L<Test::t::TestGen1/Description> [2]
         L<Test::t::TestGen1/Description> [3]
      ^

      A: ($x+4,$x*$y)^
      E: (6,5)^

      U:  Test under development ^ 
      S: 1^
      A: $x*$y*2^
      E: 6^

      S: 0^
      A: $x*$y*2^
      E: 6^

     See_Also: http://perl.SoftwareDiamonds.com^
     Copyright: copyright © 2003 Software Diamonds.^

    This is a very compact database form. The actual test code is Perl
    snippets that will be passed to the appropriate build-in, behind the
    scenes Perl subroutines.

STD PM Form Database Fields
    The following database file fields are information needed to generate
    the documentation files and not information about the tests themselves:

  Author field

    The *prepare for* STD title page entry.

  Classification field

    Security classification.

  Copyright field

    Any copyright and license requirements. This is integrated into the Demo
    Script, Test Script and the STD module.

  Detail_Template field

    This field contains a template program module that the "Test::STDmaker"
    package method uses to generate the STD POD section of the STD PM.
    Normally this field is left blank and the "Test::STDmaker" package
    methods uses its built-in detail template.

    The "Test::STDmaker" package methods merges the following variables with
    the template in generating the "STD" file:

    Date UUT_PM Revision End_User Author Classification Test_Script SVD
    Tests STD_PM Test_Descriptions See_Also Trace_Requirement_Table
    Trace_Test_Table Copyright

  Demo field

    The file for the "Demo output" relative to the STD PM directory.

  End_User field

    The *prepare for* STD title page entry.

  File_Spec field

    the operating system file specification used for the following fields:

     Verify Demo

    Valid values are Unix MacOS MSWin32 os2 VMS epoc. The scope of this
    value is very limited. It does not apply to any file specification used
    in the test steps nor the files used for input to the "Test::STDmaker"
    package method.

  Revision field

    Enter the revision for the STD POD. Revision numbers, in accordance with
    standard engineering drawing practices are letters A .. B AA .. ZZ
    except for the orginal revision which is -.

  STD2167_Template field

    Similar to the Detail_Template field except that the template is a
    tailored STD2167 template.

  See_Also field

    This section provides links to other resources.

  Test Description Fields

    The Test Description Fields are described in the next section.

  UUT field

    The Unit Under Test (UUT).

  Verify field

    The file for the "Verify output" relative to the STD PM directory.

STD PM Form Database Test Description Fields
    The test description fields are order sensitive data as follows:

  A

     A: actual-expression 

    This is the actual Perl expression under test and used for the STD
    4.x.y.3 Test inputs.

  E

     E: expected-expression 

    This is the expected results. This should be raw Perl values and used
    for the <STD 4.x.y.4 Expected test results.|Docs::US_DOD::STD/4.x.y.4
    Expected test results.>

    This field triggers processing of the previous fields as a test. It must
    always be the last field of a test. On failure, testing continues.

  C

      C: code

    The "code" field data is free form Perl code. This field is generally
    used for STD 4.x.y.2 Prerequisite conditions.

  DO

     DO: comment

    This field tags all the fields up to the next "A: actual-expression" for
    use only in generating a Demo output

  DM

     DM: msg

    This field assigns a diagnostic message to the test step. The test
    software prints out this message on test failure.

  N

     N: name_data

    This field provides a name for the test. This is usually the same name
    as the base name for the STD file.

  ok

     ok: test_number

    The "ok: test_number" is a the test number that results from the
    execution of "&TEST::ok" by the previous "E: data" or "SE: data"
    expression. A STD file does not require any "ok:" fields since The
    "Test::STDmaker" package methods will automatically generate the "ok:
    test_number" fields.

  QC

     QC: code

    This field is the same as a "C: code" field except that for the demo
    script. The demo script will exectue the code, but will not print it
    out.

  R

     R: requirement_data

    The *requirement_data* cites a binding requirement that is verified by
    the test. The test software uses the *requirement_data* to automatically
    generate tracebility information that conforms to STD 4.x.y.1
    Requirements addressed.

    Many times the relationship between binding requirements and the a test
    is vague and can even stretch the imagination. Perhaps by tracing the
    binding requirement down to an actual test number, will help force
    requirements that have clean cut tests in qualitative terms that can
    verify and/or validate a requirement.

  S

     S: expression

    The mode "S: expression" provides means to conditionally preform a test.
    The condition is usually platform dependent. In other words, a feature
    may be provided, say for a VMS platform that is not available on a
    Microsoft platform.

  SF

     SF: value,msg

    This field assigns a value to the skip flag and optional message to the
    skip flag. A zero turns it off; otherwise, it is turned on. The test
    software prints out the msg for each file skipped.

  SE

     SE: expected-expression

    This field is the same as E: expected-expression except that testing
    stops on failure. The test software implements the stop by turning on
    the skip flag. When the skip flag is on, every test will be skip.

  T

     T: number_of_tests - todo tests

    This field provides the number of tests and the number of the todo
    tests. The "Test::STDmaker" package methods will automatically fill in
    this field.

  TS

     TS: \&subroutine

    This field provides a subroutine used to determine if an actual result
    is within expected parameters with the following synopsis:

     $success = &subroutine($acutal_result,$expected_paramters)

  U

     U: comment

    This tags a test as testing a feature or capability under development.
    The test is added to the *todo* list.

  VO

     VO: comment

    This field tags all the fields up to the next "E: expected-expression"
    for use only in generating a Verify output

METHODS
    The "STDmaker" class inherits the all the methods from the File::Maker
    class. The additional "STDmaker" methods are follows.

  check_std

     $success = $std->load_std($std_pm);

    The "load_std" loads a STD database in the Tie::Form format from the
    "__DATA__" section of "$std_pm". The subroutine adds the following to
    the object hash, "$std":

     hash
     key     description 
     ----------------------------------------------------------
     std_db  ordered name,data pairs from the $std_pm database
     Record  complete $std_pm database record
     std_pm  $std_pm;
     Date    date using $std->get_date()
     file    base file of $std_pm
     vol     volume of $std_pm
     dir     directory of $std_pm

    It changes the class of object "$std" to "Test::STDmaker::Check",
    keeping the same data hash as the incoming object. Since the class is
    now "Test::STD:Check" and this class inherits methods from
    "Test::STDmaker" and the methods of both classes are now visible.

    The "$std" then executes the incoming object data using first the
    "generate" method and then the "print" method herein which in turn use
    the methods from the "Test::STDmaker::Check" class.

  find_t_roots

     @t_path = find_t_paths()

    The "find_t_roots" subroutine operates on the assumption that the test
    files are a subtree to a directory named *t* and the *t* directories are
    on the same level as the last directory of each directory tree specified
    in *@INC*. If this assumption is not true, this method most likely will
    not behave very well.

  get_date

     $date = $std->get_date();

    The "get_date" subroutine returns the "$date" in the yyyy/mm/dd format.

  tmake

     $std->tmake( @targets, \%options ); 
     $std->tmake( @targets ); 
     $std->tmake( \%options  );

    The "tmake" method reads the data from the form database (FormDB)
    section of a Software Test Description program module (STD PM), clean
    it, and use the cleaned data to generate the output file(s) based on the
    targets as follows:

     target    description 
     ----------------------------------------
     all       generates all outputs
     Demo      generates demo script
     Verify    generates a test script
     STD       generates and replaces the STD PM POD
     Check     checks test description database

    No target is the same as the "all" target.

    The "@options" are as follows:

    demo option
         demo => 1

        run the all demo scripts and use thier output to replace the Unit
        Under Test (UUT) =headx Demonstration POD section. The STD PM UUT
        field specifies the UUT file.

    nosemi
        Do not automatically add ';' at the end of the "C", code, test
        description short hand field.

    nounlink
         nounlink => 1

        do not delete the check test script (typically "temp.pl")

    pm
         pm => $program_module

        The STD PM is a Perl program module specified using the Perl '::'
        notation. The module must be in one of the directories in the @INC
        array. For example, the STD PM for this program module is

         pm => t::Test::STDmaker::STDmaker

        If there is no pm option, the "tmake" subroutine uses "t::STD"

    report option
         report => 1

        run the all test scripts and use thier output to replace the Unit
        Under Test (UUT) =headx Test Report POD section. The STD PM UUT
        field specifies the UUT file.

    run option
         run => 1

        run all generated test scripts using the Test::Harness

    test_verbose option
         test_verbose => 1           

        use verbose mode when using the Test::Harness

    verbose option
         verbose => 1           

        print out informative messages about processing steps and such

INTERNAL METHODS
    The methods in this section are methods internal to the
    "Test::STDmaker". The are more of design in nature and not part of the
    functional interface for the package. Typically they will never be used
    outside of the "Test::STDmaker". They do provide some insight on the
    form data processing and the exchange between the c<Test::STDmaker>
    package and the driver packages in the "Test::STDmaker::" repository.

  build

     $success = $std->build($std_driver_class);

    The "$output_type" is the name of a driver in the "Test::STDmaker"
    repository. The "build" subroutine takes "$output_type" and recast the
    "$std" class to "Test::STDmaker::$std_driver_class" driver class The
    "bless" subroutine does do class recasting as follows:

     $std_driver = bless $std, Test::STDmaker::$output_type

    Typically the recasted class is one of the following:

    Test::STDmaker::Check
    Test::STDmaker::Demo
    Test::STDmaker::STD
    Test::STDmaker::Verify
    New drivers class may be added by including them in the
    "Test::STDmaker::" repository and thus expand the above list. The
    "Test::STDmaker" methods will automatically find the new driver classes.

    The "build" subroutine then uses the recast object to call the
    "generate" method followed by the "print" methods described below. Since
    the object is now of the "Test::STDmaker::$std_driver_class" class which
    inherits the "Test::STDmaker" class, it used the
    "&Test::STDmaker::generate" and "&Test::STDmaker::print" methods to
    communicate with the methods in the "Test::STDmaker::$output_type"
    class.

  generate

     $sucess = $std_driver->generate();

    The c<generate> subroutine is the work horse. It takes each ordered
    "$name,$data" pair from the "@{$std-"{std_pm}}> array and executes the
    method "$name" with "$name,$data" as arguments. The "$name" variable is
    the test description short hands "A" "E" and so on, STD PM Form Database
    Test Description Fields.

  perl_command

     $myperl = perl_command();

    When running under some CPAN testers setup, the test harness perl
    executable may not be the same as the one for the backtick `perl
    $command` and crash and burn with errors such as

    Perl lib version (v5.8.4) doesn't match executable version (v5.6.1) at
    /usr/local/perl-5.8.4/lib/5.8.4/sparc-linux/Config.pm line 32.

    The "perl_command" uses "$^X" to return the current executable Perl that
    may be used in backticks without crashing and burning.

  print

     $success = $std_driver->print($file_out);

    The "print" method prints any data accumulated in "$std" hash to
    "$file_out". The method initiates the "post_print" method, provided it
    exists as a "Test::STDmaker::$output_type" method.

REQUIREMENTS
    This section establishes the functional requirements for the
    "Test::STDmaker" module and the "Test::STDmaker" package package
    methods. All other subroutines in the Test::STDmaker module and modules
    used by the "Test::STDmaker" module support the "Test::STDmaker" package
    methods. Their requirements are of a design nature and not included. All
    design requirements may change at any time without notice to improve
    performance as long as the change does not impact the functional
    requirements and the test results of the functional requirements.

    Binding functional requirements, in accordance with DOD STD 490A, are
    uniquely identified with the pharse 'shall[dd]' where dd is an unique
    number for each section. The phrases such as *will, should, and may* do
    not identified binding requirements. They provide clarifications of the
    requirements and hints for the module design.

    The general "Test::STDmaker" Perl module requirements are as follows:

    load [1]
        shall[1] load without error and

    pod check [2]
        shall[2] passed the Pod::Checker check without error.

  Clean "Form Database Section" requirements

    Before generating any output from a "Form Database Section" read from a
    STD PM, the "Test::STDmaker" package methods fill clean the data. The
    requirements for cleaning the data are as follows:

    clean "Form Database Section" [1]
        The "Test::STDmaker" package methods shall[1] ensure there is a test
        step number field "ok: $test_number^" after each " E: $expected ^"
        and each "E: $expected^" field. The "$test_number" will apply to all
        fields preceding the "ok: $test_number^" to the previous "ok:
        $test_number^" or <T: $total_tests^> field

    clean "Form Database Section" [2]
        The "Test::STDmaker" package methods shall[2] ensure all test
        numbers in the "ok: test_number^" fields are numbered the same as
        when executed by the test script.

    clean "Form Database Section" [3]
        The "Test::STDmaker" package methods shall[3] ensure the first test
        field is "T: $total_tests^" where "$total_tests" is the number of
        "ok: $test_number^" fields.

    clean "Form Database Section" [4]
        The "Test::STDmaker" package methods shall[4] include a "$todo_list"
        in the "T: $total_tests - $todo_list^" field where each number in
        the list is the $test_number for a "U: ^" field.

    The "Test::STDmaker" package methods will perform this processing as
    soon as it reads in the STD PM. All file generation will use the
    processed, cleaned internal test data instead of the raw data directly
    from the STD PM.

  Verify output file

    When the "tmake" subroutine c<@targets> contains "verify", "all" (case
    insensitive) or is empty, the "Test::STDmaker" package methods, for each
    input STD PM, will produce an verify ouput file. The functional
    requirements specify the results of executing the verify output file.
    The contents of the verify output file are of a design nature and
    function requirements are not applicable.

    The requirements for the generated verify output file are as follow:

    verify file [1]
        The "Test::STDmaker" package methods shall[1] obtained the name for
        the verify output file from the "Verify" field in the STD PM and
        assume it is a UNIX file specification relative to STD PM.

    verify file [2]
        The "Test::STDmaker" package methods shall[2] generate a test script
        that when executed will, for each test, execute the "C: $code"
        fields and compared the results obtained from the "A: $actual^"
        actual expression with the results from the "E: $epected^" expected
        expression and produce an output compatible with the
        <"Test::Harness" module. A test is the fields between the "ok:
        $test_number" fields of a cleaned STD PM. The generated test script
        will provide skip test functionality by processing the "S:
        $skip-condition", "DO: comment" and "U: comment" test fields and
        producing suitable Test::Harness output.

    verify file [3]
        The "Test::STDmaker" package methods shall[3] output the "N: $name^"
        field data as a <"Test::Harness" compatible comment.

    The "Test::STDmaker" package methods will properly compare complex data
    structures produce by the "A: $actual^" and "E: $epected^" expressions
    by utilizing modules such as Data::Secs2 subroutines.

  Demo output file

    When the "tmake" subroutine c<@targets> contains "demo", "all" (case
    insensitive) or is empty, the "Test::STDmaker" package methods, for each
    input STD PM, will produce a demo ouput file. The functional
    requirements specify the results of executing the demo output file. The
    contents of the demo output file are of a design nature and function
    requirements are not applicable.

    The requirements for the generated demo output file are as follow:

    demo file [1]
        The "Test::STDmaker" package methods shall[1] obtained the name for
        the demo output file from the "Demo" field in the STD PM and assume
        it is a UNIX file specification relative to STD PM.

    demo file [2]
        The "Test::STDmaker" package methods shall[2] generate the a demo
        script that when executed will produce an output that appears as if
        the actual "C: ^" and "A: ^" where typed at a console followed by
        the results of the execution of the "A: ^" field. The purpose of the
        demo script is to provide automated, complete examples, of the using
        the Unit Under Test. The generated demo script will provide skip
        test functionality by processing the "S: $skip-condition", "VO:
        comment" and "U: comment" test fields.

  STD PM POD

    When the "tmake" subroutine c<@targets> contains "STD", "all" (case
    insensitive) or is empty, the "Test::STDmaker" package methods, for each
    input STD PM, will generate the code and POD sections of the STD PM from
    the "Form Database Section" section. The requirements for the generated
    STD output file are as follow:

    STD PM POD [1]
        The "Test::STDmaker" package methods shall[2] produce the STD output
        file by taking the merging STD template file from either the
        "Detail_Template" field "STD2167_Template" field in the STD PM or a
        built-in template with the

        "Copyright Revision End_User Author SVD Classification"

        fields from the "Form Database Section " and the generated

        "Date UUT_PM STD_PM Test_Descriptions Test_Script Tests
        Trace_Requirement_Table Trace_Requirement_Table"

        fields.

    The "Test::STDmaker" package methods will generate fields for merging
    with the template file as follows:

    Date
        The current data

    UUT_PM
        The Perl :: module specfication for the UUT field in the "Form
        Database Section " database

    STD_PM
        The Perl :: module specification for the "Form Database Section "
        Unix file specification

    Test_Script
        The the "Verify" field in the "Form Database Section " database

    Tests
        The number of tests in the "Form Database Section " database

    Test_Descriptions
        A description of a test defined by the fields between "ok:" fields
        in the "Form Database Section " database. The test descriptions will
        be in a STD format as tailored by STDtailor

    Trace_Requirement_Table
        A table that relates the "R:" requirement fields to the test number
        in the "Form Database Section " database.

    Trace_Test_Table
        A table that relates the test number in the "Form Database Section "
        database to the "R:" requirement fields.

    The usual template file is the "STD/STD001.fmt" file. This template is
    in the STD format as tailored by STDtailor.

  Options requirements

    The "tmake" option processing requirements are as follows:

    file_out option [1]
        When the c<@targets> has only target, specifying the option

         { file_out => $file_out }

        shall[1] cause the "tmake" method to print the ouput to the file
        "$file_out" instead of the file specified in the STD PM. The
        $file_out specification will be in the UNIX specification relative
        to the STD PM.

    replace option [2]
        Specifying the option

         { replace => 1 } or { demo => 1 }

        with c<@targets> containing "Demo", shall[2] cause the c<tmake>
        method to execute the demo script that it generates and replace the
        "/(\n=head\d\s+Demonstration).*?\n=/i" section in the module named
        by the "UUT" field in "Form Database Section" with the output from
        the demo script.

    run option [3]
        Specifying the option

         { run => 1 }

        with the c<@targets> list containing "Verify", shall[3] cause the
        c<tmake> method to run the "Test::Harness" with the test script in
        non-verbose mode.

    verbose option [4]
        Specifying the options

         { run => 1, test_verbose => 1 }

        with the c<@targets> containg "Verify", shall[4] cause the "tmake"
        method to run the "Test::Harness" with the test script in verbose
        mode.

    fspec_out option [5]
        Specifying the option

         { fspec_out => I<$file_spec> }

        shall[5] cause the "Test::STDmaker" methods to translate the file
        names in the "STD" file output to the file specification
        *$file_spec*.

    fspec_in option [6]
        Specifying the option

         { fspec_in => I<$file_spec> }

        shall[6] cause the "Test::STDmaker" methods to use file
        specification *$file_spec* for the files in the STD PM database.

DEMONSTRATION
     #########
     # perl basic.d
     ###

    ~~~~~~ Demonstration overview ~~~~~

    The results from executing the Perl Code follow on the next lines as
    comments. For example,

     2 + 2
     # 4

    ~~~~~~ The demonstration follows ~~~~~

         use vars qw($loaded);
         use File::Glob ':glob';
         use File::Copy;
         use File::Package;
         use File::SmartNL;
         use Text::Scrub;

         my $fp = 'File::Package';
         my $snl = 'File::SmartNL';
         my $s = 'Text::Scrub';

         my $test_results;
         my $loaded = 0;
         my @outputs;

         my ($success, $diag);

     ##################
     # Load UUT
     # 

     my $errors = $fp->load_package( 'Test::STDmaker' )
     $errors

     # ''
     #

     ##################
     # Test::STDmaker Version 1.2
     # 

     $Test::STDmaker::VERSION

     # '1.2'
     #
     $snl->fin('tgA0.pm')

     # '#!perl
     ##
     ## The copyright notice and plain old documentation (POD)
     ## are at the end of this file.
     ##
     #package  t::Test::STDmaker::tgA1;

     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION $DATE $FILE );
     #$VERSION = '0.08';
     #$DATE = '2004/05/23';
     #$FILE = __FILE__;

     #__DATA__

     #Name: t::Test::STDmaker::tgA1^
     #File_Spec: Unix^
     #UUT: Test::STDmaker::tg1^
     #Revision: -^
     #Version: 0.01^
     #End_User: General Public^
     #Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
     #STD2167_Template: ^
     #Detail_Template: ^
     #Classification: None^
     #Demo: tgA1.d^
     #Verify: tgA1.t^

     # T: 0^

     # C: 
     #    #########
     #    # For "TEST" 1.24 or greater that have separate std err output,
     #    # redirect the TESTERR to STDOUT
     #    #
     #    tech_config( 'Test.TESTERR', \*STDOUT );   
     #^  

     #QC: my $expected1 = 'hello world'; ^

     # N: Quiet Code^
     # A: 'hello world'^
     # E: $expected1^

     # N: Pass test^
     # R: L<Test::STDmaker::tg1/capability-A [1]>^
     # C: my $x = 2^
     # C: my $y = 3^
     # A: $x + $y^
     #SE: 5^

     # N: Todo test that passes^
     # U: xy feature^
     # A: $y-$x^
     # E: 1^

     # N: Test that fails^
     # R: 
     #    L<Test::STDmaker::tg1/capability-A [2]>
     #    L<Test::STDmaker::tg1/capability-B [1]>
     # ^
     # A: $x+4^
     # E: 7^

     # N: Skipped tests^
     # S: 1^
     # A: $x*$y*2^
     # E: 6^

     # N: Todo Test that Fails^
     # U: zyw feature^
     # S: 0^
     # A: $x*$y*2^
     # E: 6^

     #DO: ^
     # N: demo only^
     # A: $x^

     #VO: ^
     # N: verify only^
     # A: $x^
     # E: $x^

     # N: Failed test that skips the rest^
     # R: L<Test::STDmaker::tg1/capability-B [2]>^
     # A: $x + $y^
     #SE: 6^

     # N: A test to skip^
     # A: $x + $y + $x^
     # E: 9^

     # N: A not skip to skip^
     # S: 0^
     # R: L<Test::STDmaker::tg1/capability-B [3]>^
     # A: $x + $y + $x + $y^
     # E: 10^

     # N: A skip to skip^
     # S: 1^
     # R: L<Test::STDmaker::tg1/capability-B [3]>^
     # A: $x + $y + $x + $y + $x^
     # E: 10^

     #See_Also: L<Test::STDmaker::tg1> ^

     #Copyright: This STD is public domain.^

     #HTML: ^

     #~-~'
     #

     ##################
     # tmake('STD', {pm => 't::Test::STDmaker::tgA1'})
     # 

         copy 'tgA0.pm', 'tgA1.pm';
         my $tmaker = new Test::STDmaker(pm =>'t::Test::STDmaker::tgA1', nounlink => 1);
         my $perl_executable = $tmaker->perl_command();
         $success = $tmaker->tmake( 'STD' );
         $diag = "\n~~~~~~~\nFormDB\n\n" . join "\n", @{$tmaker->{FormDB}};
         $diag .= "\n~~~~~~~\nstd_db\n\n" . join "\n", @{$tmaker->{std_db}};
         $diag .= (-e 'temp.pl') ? "\n~~~~~~~\ntemp.pl\n\n" . $snl->fin('temp.pl') : 'No temp.pl';
         $diag .= (-e 'tgA1.pm') ? "\n~~~~~~~\ntgA1.pm\n\n" . $snl->fin('tgA1.pm') : 'No tgA1.pm';
     $success

     # 1
     #

     ##################
     # Clean STD pm with a todo list
     # 

     $s->scrub_date_version($snl->fin('tgA1.pm'))

     # '#!perl
     ##
     ## The copyright notice and plain old documentation (POD)
     ## are at the end of this file.
     ##
     #package  t::Test::STDmaker::tgA1;

     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION $DATE $FILE );
     #$VERSION = '0.00';
     #$DATE = 'Feb 6, 1969';
     #$FILE = __FILE__;

     #########
     ## The Test::STDmaker module uses the data after the __DATA__ 
     ## token to automatically generate the this file.
     ##
     ## Do not edit anything before __DATA_. Edit instead
     ## the data after the __DATA__ token.
     ##
     ## ANY CHANGES MADE BEFORE the  __DATA__ token WILL BE LOST
     ##
     ## the next time Test::STDmaker generates this file.
     ##
     ##

     #=head1 NAME

     #t::Test::STDmaker::tgA1 - Software Test Description for Test::STDmaker::tg1

     #=head1 TITLE PAGE

     # Detailed Software Test Description (STD)

     # for

     # Perl Test::STDmaker::tg1 Program Module

     # Revision: -

     # Version: 0.01

     # $DATE: Feb 6, 1969

     # Prepared for: General Public 

     # Prepared by:  http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com

     # Classification: None

     ########
     ##  
     ##  1. SCOPE
     ##
     ##
     #=head1 SCOPE

     #This detail STD and the 
     #L<General Perl Program Module (PM) STD|Test::STD::PerlSTD>
     #establishes the tests to verify the
     #requirements of Perl Program Module (PM) L<Test::STDmaker::tg1|Test::STDmaker::tg1>
     #The format of this STD is a tailored L<2167A STD DID|Docs::US_DOD::STD>.

     ########
     ##  
     ##  3. TEST PREPARATIONS
     ##
     ##
     #=head1 TEST PREPARATIONS

     #Test preparations are establishes by the L<General STD|Test::STD::PerlSTD>.

     ########
     ##  
     ##  4. TEST DESCRIPTIONS
     ##
     ##
     #=head1 TEST DESCRIPTIONS

     #The test descriptions uses a legend to
     #identify different aspects of a test description
     #in accordance with
     #L<STD PM Form Database Test Description Fields|Test::STDmaker/STD PM Form Database Test Description Fields>.

     #=head2 Test Plan

     # T: 11 - 3,6^

     #=head2 ok: 1

     #  C:
     #     #########
     #     # For "TEST" 1.24 or greater that have separate std err output,
     #     # redirect the TESTERR to STDOUT
     #     #
     #     tech_config( 'Test.TESTERR', \*STDOUT );
     # ^
     # QC: my $expected1 = 'hello world';^
     #  N: Quiet Code^
     #  A: 'hello world'^
     #  E: $expected1^
     # ok: 1^

     #=head2 ok: 2

     #  N: Pass test^
     #  R: L<Test::STDmaker::tg1/capability-A [1]>^
     #  C: my $x = 2^
     #  C: my $y = 3^
     #  A: $x + $y^
     # SE: 5^
     # ok: 2^

     #=head2 ok: 3

     #  N: Todo test that passes^
     #  U: xy feature^
     #  A: $y-$x^
     #  E: 1^
     # ok: 3^

     #=head2 ok: 4

     #  N: Test that fails^

     #  R:
     #     L<Test::STDmaker::tg1/capability-A [2]>
     #     L<Test::STDmaker::tg1/capability-B [1]>
     # ^
     #  A: $x+4^
     #  E: 7^
     # ok: 4^

     #=head2 ok: 5

     #  N: Skipped tests^
     #  S: 1^
     #  A: $x*$y*2^
     #  E: 6^
     # ok: 5^

     #=head2 ok: 6

     #  N: Todo Test that Fails^
     #  U: zyw feature^
     #  S: 0^
     #  A: $x*$y*2^
     #  E: 6^
     # ok: 6^

     #=head2 ok: 7

     # DO: ^
     #  N: demo only^
     #  A: $x^

     #VO: ^
     #  N: verify only^
     #  A: $x^
     #  E: $x^
     # ok: 7^

     #=head2 ok: 8

     #  N: Failed test that skips the rest^
     #  R: L<Test::STDmaker::tg1/capability-B [2]>^
     #  A: $x + $y^
     # SE: 6^
     # ok: 8^

     #=head2 ok: 9

     #  N: A test to skip^
     #  A: $x + $y + $x^
     #  E: 9^
     # ok: 9^

     #=head2 ok: 10

     #  N: A not skip to skip^
     #  S: 0^
     #  R: L<Test::STDmaker::tg1/capability-B [3]>^
     #  A: $x + $y + $x + $y^
     #  E: 10^
     # ok: 10^

     #=head2 ok: 11

     #  N: A skip to skip^
     #  S: 1^
     #  R: L<Test::STDmaker::tg1/capability-B [3]>^
     #  A: $x + $y + $x + $y + $x^
     #  E: 10^
     # ok: 11^

     ########
     ##  
     ##  5. REQUIREMENTS TRACEABILITY
     ##
     ##

     #=head1 REQUIREMENTS TRACEABILITY

     #  Requirement                                                      Test
     # ---------------------------------------------------------------- ----------------------------------------------------------------
     # L<Test::STDmaker::tg1/capability-A [1]>                          L<t::Test::STDmaker::tgA1/ok: 2>
     # L<Test::STDmaker::tg1/capability-A [2]>                          L<t::Test::STDmaker::tgA1/ok: 4>
     # L<Test::STDmaker::tg1/capability-B [1]>                          L<t::Test::STDmaker::tgA1/ok: 4>
     # L<Test::STDmaker::tg1/capability-B [2]>                          L<t::Test::STDmaker::tgA1/ok: 8>
     # L<Test::STDmaker::tg1/capability-B [3]>                          L<t::Test::STDmaker::tgA1/ok: 10>
     # L<Test::STDmaker::tg1/capability-B [3]>                          L<t::Test::STDmaker::tgA1/ok: 11>

     #  Test                                                             Requirement
     # ---------------------------------------------------------------- ----------------------------------------------------------------
     # L<t::Test::STDmaker::tgA1/ok: 10>                                L<Test::STDmaker::tg1/capability-B [3]>
     # L<t::Test::STDmaker::tgA1/ok: 11>                                L<Test::STDmaker::tg1/capability-B [3]>
     # L<t::Test::STDmaker::tgA1/ok: 2>                                 L<Test::STDmaker::tg1/capability-A [1]>
     # L<t::Test::STDmaker::tgA1/ok: 4>                                 L<Test::STDmaker::tg1/capability-A [2]>
     # L<t::Test::STDmaker::tgA1/ok: 4>                                 L<Test::STDmaker::tg1/capability-B [1]>
     # L<t::Test::STDmaker::tgA1/ok: 8>                                 L<Test::STDmaker::tg1/capability-B [2]>

     #=cut

     ########
     ##  
     ##  6. NOTES
     ##
     ##

     #=head1 NOTES

     #This STD is public domain.

     ########
     ##
     ##  2. REFERENCED DOCUMENTS
     ##
     ##
     ##

     #=head1 SEE ALSO

     #L<Test::STDmaker::tg1>

     #=back

     #=for html

     #=cut

     #__DATA__

     #Name: t::Test::STDmaker::tgA1^
     #File_Spec: Unix^
     #UUT: Test::STDmaker::tg1^
     #Revision: -^
     #Version: 0.01^
     #End_User: General Public^
     #Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
     #STD2167_Template: ^
     #Detail_Template: ^
     #Classification: None^
     #Temp: temp.pl^
     #Demo: tgA1.d^
     #Verify: tgA1.t^

     # T: 11 - 3,6^

     # C:
     #    #########
     #    # For "TEST" 1.24 or greater that have separate std err output,
     #    # redirect the TESTERR to STDOUT
     #    #
     #    tech_config( 'Test.TESTERR', \*STDOUT );
     #^

     #QC: my $expected1 = 'hello world';^
     # N: Quiet Code^
     # A: 'hello world'^
     # E: $expected1^
     #ok: 1^

     # N: Pass test^
     # R: L<Test::STDmaker::tg1/capability-A [1]>^
     # C: my $x = 2^
     # C: my $y = 3^
     # A: $x + $y^
     #SE: 5^
     #ok: 2^

     # N: Todo test that passes^
     # U: xy feature^
     # A: $y-$x^
     # E: 1^
     #ok: 3^

     # N: Test that fails^

     # R:
     #    L<Test::STDmaker::tg1/capability-A [2]>
     #    L<Test::STDmaker::tg1/capability-B [1]>
     #^

     # A: $x+4^
     # E: 7^
     #ok: 4^

     # N: Skipped tests^
     # S: 1^
     # A: $x*$y*2^
     # E: 6^
     #ok: 5^

     # N: Todo Test that Fails^
     # U: zyw feature^
     # S: 0^
     # A: $x*$y*2^
     # E: 6^
     #ok: 6^

     #DO: ^
     # N: demo only^
     # A: $x^

     #VO: ^
     # N: verify only^
     # A: $x^
     # E: $x^
     #ok: 7^

     # N: Failed test that skips the rest^
     # R: L<Test::STDmaker::tg1/capability-B [2]>^
     # A: $x + $y^
     #SE: 6^
     #ok: 8^

     # N: A test to skip^
     # A: $x + $y + $x^
     # E: 9^
     #ok: 9^

     # N: A not skip to skip^
     # S: 0^
     # R: L<Test::STDmaker::tg1/capability-B [3]>^
     # A: $x + $y + $x + $y^
     # E: 10^
     #ok: 10^

     # N: A skip to skip^
     # S: 1^
     # R: L<Test::STDmaker::tg1/capability-B [3]>^
     # A: $x + $y + $x + $y + $x^
     # E: 10^
     #ok: 11^

     #See_Also: L<Test::STDmaker::tg1>^
     #Copyright: This STD is public domain.^
     #HTML: ^

     #~-~
     #'
     #

     ##################
     # Cleaned tgA1.pm
     # 

     $s->scrub_date_version($snl->fin('tgA1.pm'))

     # '#!perl
     ##
     ## The copyright notice and plain old documentation (POD)
     ## are at the end of this file.
     ##
     #package  t::Test::STDmaker::tgA1;

     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION $DATE $FILE );
     #$VERSION = '0.00';
     #$DATE = 'Feb 6, 1969';
     #$FILE = __FILE__;

     #########
     ## The Test::STDmaker module uses the data after the __DATA__ 
     ## token to automatically generate the this file.
     ##
     ## Do not edit anything before __DATA_. Edit instead
     ## the data after the __DATA__ token.
     ##
     ## ANY CHANGES MADE BEFORE the  __DATA__ token WILL BE LOST
     ##
     ## the next time Test::STDmaker generates this file.
     ##
     ##

     #=head1 NAME

     #t::Test::STDmaker::tgA1 - Software Test Description for Test::STDmaker::tg1

     #=head1 TITLE PAGE

     # Detailed Software Test Description (STD)

     # for

     # Perl Test::STDmaker::tg1 Program Module

     # Revision: -

     # Version: 0.01

     # $DATE: Feb 6, 1969

     # Prepared for: General Public 

     # Prepared by:  http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com

     # Classification: None

     ########
     ##  
     ##  1. SCOPE
     ##
     ##
     #=head1 SCOPE

     #This detail STD and the 
     #L<General Perl Program Module (PM) STD|Test::STD::PerlSTD>
     #establishes the tests to verify the
     #requirements of Perl Program Module (PM) L<Test::STDmaker::tg1|Test::STDmaker::tg1>
     #The format of this STD is a tailored L<2167A STD DID|Docs::US_DOD::STD>.

     ########
     ##  
     ##  3. TEST PREPARATIONS
     ##
     ##
     #=head1 TEST PREPARATIONS

     #Test preparations are establishes by the L<General STD|Test::STD::PerlSTD>.

     ########
     ##  
     ##  4. TEST DESCRIPTIONS
     ##
     ##
     #=head1 TEST DESCRIPTIONS

     #The test descriptions uses a legend to
     #identify different aspects of a test description
     #in accordance with
     #L<STD PM Form Database Test Description Fields|Test::STDmaker/STD PM Form Database Test Description Fields>.

     #=head2 Test Plan

     # T: 11 - 3,6^

     #=head2 ok: 1

     #  C:
     #     #########
     #     # For "TEST" 1.24 or greater that have separate std err output,
     #     # redirect the TESTERR to STDOUT
     #     #
     #     tech_config( 'Test.TESTERR', \*STDOUT );
     # ^
     # QC: my $expected1 = 'hello world';^
     #  N: Quiet Code^
     #  A: 'hello world'^
     #  E: $expected1^
     # ok: 1^

     #=head2 ok: 2

     #  N: Pass test^
     #  R: L<Test::STDmaker::tg1/capability-A [1]>^
     #  C: my $x = 2^
     #  C: my $y = 3^
     #  A: $x + $y^
     # SE: 5^
     # ok: 2^

     #=head2 ok: 3

     #  N: Todo test that passes^
     #  U: xy feature^
     #  A: $y-$x^
     #  E: 1^
     # ok: 3^

     #=head2 ok: 4

     #  N: Test that fails^

     #  R:
     #     L<Test::STDmaker::tg1/capability-A [2]>
     #     L<Test::STDmaker::tg1/capability-B [1]>
     # ^
     #  A: $x+4^
     #  E: 7^
     # ok: 4^

     #=head2 ok: 5

     #  N: Skipped tests^
     #  S: 1^
     #  A: $x*$y*2^
     #  E: 6^
     # ok: 5^

     #=head2 ok: 6

     #  N: Todo Test that Fails^
     #  U: zyw feature^
     #  S: 0^
     #  A: $x*$y*2^
     #  E: 6^
     # ok: 6^

     #=head2 ok: 7

     # DO: ^
     #  N: demo only^
     #  A: $x^

     #VO: ^
     #  N: verify only^
     #  A: $x^
     #  E: $x^
     # ok: 7^

     #=head2 ok: 8

     #  N: Failed test that skips the rest^
     #  R: L<Test::STDmaker::tg1/capability-B [2]>^
     #  A: $x + $y^
     # SE: 6^
     # ok: 8^

     #=head2 ok: 9

     #  N: A test to skip^
     #  A: $x + $y + $x^
     #  E: 9^
     # ok: 9^

     #=head2 ok: 10

     #  N: A not skip to skip^
     #  S: 0^
     #  R: L<Test::STDmaker::tg1/capability-B [3]>^
     #  A: $x + $y + $x + $y^
     #  E: 10^
     # ok: 10^

     #=head2 ok: 11

     #  N: A skip to skip^
     #  S: 1^
     #  R: L<Test::STDmaker::tg1/capability-B [3]>^
     #  A: $x + $y + $x + $y + $x^
     #  E: 10^
     # ok: 11^

     ########
     ##  
     ##  5. REQUIREMENTS TRACEABILITY
     ##
     ##

     #=head1 REQUIREMENTS TRACEABILITY

     #  Requirement                                                      Test
     # ---------------------------------------------------------------- ----------------------------------------------------------------
     # L<Test::STDmaker::tg1/capability-A [1]>                          L<t::Test::STDmaker::tgA1/ok: 2>
     # L<Test::STDmaker::tg1/capability-A [2]>                          L<t::Test::STDmaker::tgA1/ok: 4>
     # L<Test::STDmaker::tg1/capability-B [1]>                          L<t::Test::STDmaker::tgA1/ok: 4>
     # L<Test::STDmaker::tg1/capability-B [2]>                          L<t::Test::STDmaker::tgA1/ok: 8>
     # L<Test::STDmaker::tg1/capability-B [3]>                          L<t::Test::STDmaker::tgA1/ok: 10>
     # L<Test::STDmaker::tg1/capability-B [3]>                          L<t::Test::STDmaker::tgA1/ok: 11>

     #  Test                                                             Requirement
     # ---------------------------------------------------------------- ----------------------------------------------------------------
     # L<t::Test::STDmaker::tgA1/ok: 10>                                L<Test::STDmaker::tg1/capability-B [3]>
     # L<t::Test::STDmaker::tgA1/ok: 11>                                L<Test::STDmaker::tg1/capability-B [3]>
     # L<t::Test::STDmaker::tgA1/ok: 2>                                 L<Test::STDmaker::tg1/capability-A [1]>
     # L<t::Test::STDmaker::tgA1/ok: 4>                                 L<Test::STDmaker::tg1/capability-A [2]>
     # L<t::Test::STDmaker::tgA1/ok: 4>                                 L<Test::STDmaker::tg1/capability-B [1]>
     # L<t::Test::STDmaker::tgA1/ok: 8>                                 L<Test::STDmaker::tg1/capability-B [2]>

     #=cut

     ########
     ##  
     ##  6. NOTES
     ##
     ##

     #=head1 NOTES

     #This STD is public domain.

     ########
     ##
     ##  2. REFERENCED DOCUMENTS
     ##
     ##
     ##

     #=head1 SEE ALSO

     #L<Test::STDmaker::tg1>

     #=back

     #=for html

     #=cut

     #__DATA__

     #Name: t::Test::STDmaker::tgA1^
     #File_Spec: Unix^
     #UUT: Test::STDmaker::tg1^
     #Revision: -^
     #Version: 0.01^
     #End_User: General Public^
     #Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
     #STD2167_Template: ^
     #Detail_Template: ^
     #Classification: None^
     #Temp: temp.pl^
     #Demo: tgA1.d^
     #Verify: tgA1.t^

     # T: 11 - 3,6^

     # C:
     #    #########
     #    # For "TEST" 1.24 or greater that have separate std err output,
     #    # redirect the TESTERR to STDOUT
     #    #
     #    tech_config( 'Test.TESTERR', \*STDOUT );
     #^

     #QC: my $expected1 = 'hello world';^
     # N: Quiet Code^
     # A: 'hello world'^
     # E: $expected1^
     #ok: 1^

     # N: Pass test^
     # R: L<Test::STDmaker::tg1/capability-A [1]>^
     # C: my $x = 2^
     # C: my $y = 3^
     # A: $x + $y^
     #SE: 5^
     #ok: 2^

     # N: Todo test that passes^
     # U: xy feature^
     # A: $y-$x^
     # E: 1^
     #ok: 3^

     # N: Test that fails^

     # R:
     #    L<Test::STDmaker::tg1/capability-A [2]>
     #    L<Test::STDmaker::tg1/capability-B [1]>
     #^

     # A: $x+4^
     # E: 7^
     #ok: 4^

     # N: Skipped tests^
     # S: 1^
     # A: $x*$y*2^
     # E: 6^
     #ok: 5^

     # N: Todo Test that Fails^
     # U: zyw feature^
     # S: 0^
     # A: $x*$y*2^
     # E: 6^
     #ok: 6^

     #DO: ^
     # N: demo only^
     # A: $x^

     #VO: ^
     # N: verify only^
     # A: $x^
     # E: $x^
     #ok: 7^

     # N: Failed test that skips the rest^
     # R: L<Test::STDmaker::tg1/capability-B [2]>^
     # A: $x + $y^
     #SE: 6^
     #ok: 8^

     # N: A test to skip^
     # A: $x + $y + $x^
     # E: 9^
     #ok: 9^

     # N: A not skip to skip^
     # S: 0^
     # R: L<Test::STDmaker::tg1/capability-B [3]>^
     # A: $x + $y + $x + $y^
     # E: 10^
     #ok: 10^

     # N: A skip to skip^
     # S: 1^
     # R: L<Test::STDmaker::tg1/capability-B [3]>^
     # A: $x + $y + $x + $y + $x^
     # E: 10^
     #ok: 11^

     #See_Also: L<Test::STDmaker::tg1>^
     #Copyright: This STD is public domain.^
     #HTML: ^

     #~-~
     #'
     #

     ##################
     # Internal Storage
     # 

         use Data::Dumper;
         my $probe = 3;
         my $actual_results = Dumper([0+$probe]);
         my $internal_storage = 'undetermine';
         if( $actual_results eq Dumper([3]) ) {
             $internal_storage = 'number';
         }
         elsif ( $actual_results eq Dumper(['3']) ) {
             $internal_storage = 'string';
         }

         my $expected_results;
     $internal_storage

     # 'string'
     #

     ##################
     # tmake('demo', {pm => 't::Test::STDmaker::tgA1', demo => 1})
     # 

     $snl->fin( 'tg0.pm'  )

     # '#!perl
     ##
     ## Documentation, copyright and license is at the end of this file.
     ##
     #package  Test::STDmaker::tg1;

     #use 5.001;
     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION);

     #$VERSION = '0.03';

     #1

     #__END__

     #=head1 Requirements

     #=head2 Capability-A 

     #The requriements are as follows:

     #=over 4

     #=item capability-A [1]

     #This subroutine shall[1] have feature 1. 

     #=item capability-A [2]

     #This subroutine shall[2] have feature 2.

     #=back

     #=head2 Capability-B
     # 
     #=over 4

     #=item Capability-B [1]

     #This subroutine shall[1] have feature 1.

     #=item Capability-B [2]

     #This subroutine shall[2] have feature 2.

     #=item Capability-B [3]

     #This subroutine shall[3] have feature 3.

     #=back

     #=head1 DEMONSTRATION
     #  
     #=head1 SEE ALSO

     #http://perl.SoftwareDiamonds.com

     #'
     #

     ##################
     # tmake('demo', {pm => 't::Test::STDmaker::tgA1', demo => 1})
     # 

         #########
         #
         # Individual generate outputs using options
         #
         ########

         skip_tests(0);

         #####
         # Make sure there is no residue outputs hanging
         # around from the last test series.
         #
         @outputs = bsd_glob( 'tg*1.*' );
         unlink @outputs;
         copy 'tg0.pm', 'tg1.pm';
         copy 'tgA0.pm', 'tgA1.pm';
         my @cwd = File::Spec->splitdir( cwd() );
         pop @cwd;
         pop @cwd;
         unshift @INC, File::Spec->catdir( @cwd );  # put UUT in lib path
         $success = $tmaker->tmake('demo', { pm => 't::Test::STDmaker::tgA1', demo => 1});
         shift @INC;

         #######
         # expected results depend upon the internal storage from numbers 
         #
         if( $internal_storage eq 'string') {
             $expected_results = 'tg2B.pm';
         }
         else {
             $expected_results = 'tg2A.pm';
         }
         $diag = "\n~~~~~~~\nFormDB\n\n" . join "\n", @{$tmaker->{FormDB}};
         $diag .= "\n~~~~~~~\nstd_db\n\n" . join "\n", @{$tmaker->{std_db}};
         $diag .= (-e 'tgA1.pm') ? "\n~~~~~~~\ntgA1.pm\n\n" . $snl->fin('tgA1.pm') : 'No tgA1.pm';
         $diag .= (-e 'tgA1.d') ? "\n~~~~~~~\ntgA1.d\n\n" . $snl->fin('tgA1.d') : 'No tgA1.d';
     $success

     # 1
     #

     ##################
     # Generate and replace a demonstration
     # 

     $s->scrub_date_version($snl->fin('tg1.pm'))

     # '#!perl
     ##
     ## Documentation, copyright and license is at the end of this file.
     ##
     #package  Test::STDmaker::tg1;

     #use 5.001;
     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION);

     #$VERSION = '0.00';

     #1

     #__END__

     #=head1 Requirements

     #=head2 Capability-A 

     #The requriements are as follows:

     #=over 4

     #=item capability-A [1]

     #This subroutine shall[1] have feature 1. 

     #=item capability-A [2]

     #This subroutine shall[2] have feature 2.

     #=back

     #=head2 Capability-B
     # 
     #=over 4

     #=item Capability-B [1]

     #This subroutine shall[1] have feature 1.

     #=item Capability-B [2]

     #This subroutine shall[2] have feature 2.

     #=item Capability-B [3]

     #This subroutine shall[3] have feature 3.

     #=back

     #=head1 DEMONSTRATION

     # #########
     # # perl tgA1.d
     # ###

     #~~~~~~ Demonstration overview ~~~~~

     #The results from executing the Perl Code 
     #follow on the next lines as comments. For example,

     # 2 + 2
     # # 4

     #~~~~~~ The demonstration follows ~~~~~

     #     #########
     #     # For "TEST" 1.24 or greater that have separate std err output,
     #     # redirect the TESTERR to STDOUT
     #     #
     #     tech_config( 'Test.TESTERR', \*STDOUT );

     # ##################
     # # Quiet Code
     # # 

     # 'hello world'

     # # 'hello world'
     # #

     # ##################
     # # Pass test
     # # 

     # my $x = 2
     # my $y = 3
     # $x + $y

     # # '5'
     # #

     # ##################
     # # Todo test that passes
     # # 

     # $y-$x

     # # '1'
     # #

     # ##################
     # # Test that fails
     # # 

     # $x+4

     # # '6'
     # #

     # ##################
     # # Skipped tests
     # # 

     # ##################
     # # Todo Test that Fails
     # # 

     # $x*$y*2

     # # '12'
     # #

     # ##################
     # # demo only
     # # 

     # $x

     # # 2
     # #

     # ##################
     # # Failed test that skips the rest
     # # 

     # $x + $y

     # # '5'
     # #

     # ##################
     # # A test to skip
     # # 

     # $x + $y + $x

     # # '7'
     # #

     # ##################
     # # A not skip to skip
     # # 

     # $x + $y + $x + $y

     # # '10'
     # #

     # ##################
     # # A skip to skip
     # # 

     #=head1 SEE ALSO

     #http://perl.SoftwareDiamonds.com

     #'
     #

     ##################
     # tmake('verify', {pm => 't::Test::STDmaker::tgA1', run => 1, test_verbose => 1})
     # 

         skip_tests(0);

         no warnings;
         open SAVEOUT, ">&STDOUT";
         use warnings;
         open STDOUT, ">tgA1.txt";
         $success = $tmaker->tmake('verify', { pm => 't::Test::STDmaker::tgA1', run => 1, test_verbose => 1});
         close STDOUT;
         open STDOUT, ">&SAVEOUT";

         ######
         # For some reason, test harness puts in a extra line when running u
         # under the Active debugger on Win32. So just take it out.
         # Also the script name is absolute which is site dependent.
         # Take it out of the comparision.
         #
         $test_results = $snl->fin('tgA1.txt');
         $test_results =~ s/.*?1..9/1..9/; 
         $test_results =~ s/------.*?\n(\s*\()/\n $1/s;
         $snl->fout('tgA1.txt',$test_results);
     $success

     # 1
     #

     ##################
     # Generate and verbose test harness run test script
     # 

     $s->scrub_probe($s->scrub_test_file($s->scrub_file_line($test_results)))

     # '~~~~
     #ok 1 - Quiet Code 
     #ok 2 - Pass test 
     #ok 3 - Todo test that passes  # (xxxx.t at line 000 TODO?!)
     #not ok 4 - Test that fails 
     ## Test 4 got: '6' (xxxx.t at line 000)
     ##   Expected: '7'
     #ok 5 - Skipped tests  # skip
     #not ok 6 - Todo Test that Fails 
     ## Test 6 got: '12' (xxxx.t at line 000 *TODO*)
     ##   Expected: '6'
     #ok 7 - verify only 
     #not ok 8 - Failed test that skips the rest 
     ## Test 8 got: '5' (xxxx.t at line 000)
     ##   Expected: '6'
     #ok 9 - A test to skip  # skip - Test not performed because of previous failure.
     #ok 10 - A not skip to skip  # skip - Test not performed because of previous failure.
     #ok 11 - A skip to skip  # skip - Test not performed because of previous failure.
     ## Skipped: 5 9 10 11
     ## Failed : 4 6 8
     ## Passed : 4/7 57%
     #FAILED tests 4, 8
     #      Failed 2/11 tests, 81.82% okay (less 4 skipped tests: 5 okay, 45.45%)
     #Failed Test                       Stat Wstat Total Fail  Failed  List of Failed

     #  (1 subtest UNEXPECTEDLY SUCCEEDED), 4 subtests skipped.
     #Failed 1/1 test scripts, 0.00% okay. 2/11 subtests failed, 81.82% okay.
     #~~~~
     #Finished running Tests

     #'
     #

     ##################
     # Generate and test harness run test script
     # 

     $test_results

     # '~~~~
     #Running Tests

     #E:\User\SoftwareDiamonds\installation\t\Test\STDmaker\tgA1....1..11 todo 3 6;
     ## Running under perl version 5.006001 for MSWin32
     ## Win32::BuildNumber 635
     ## Current time local: Mon May 24 00:44:23 2004
     ## Current time GMT:   Mon May 24 04:44:23 2004
     ## Using Test.pm version 1.24
     ## Test::Tech     : 1.26
     ## Data::Secs2    : 1.26
     ## Data::Startup  : 0.07
     ## Data::Str2Num  : 0.08
     ## Number of tests: 11
     ## =cut 
     #ok 1 - Quiet Code 
     #ok 2 - Pass test 
     #ok 3 - Todo test that passes  # (E:\User\SoftwareDiamonds\installation\t\Test\STDmaker\tgA1.t at line 149 TODO?!)
     #not ok 4 - Test that fails 
     ## Test 4 got: '6' (E:\User\SoftwareDiamonds\installation\t\Test\STDmaker\tgA1.t at line 164)
     ##   Expected: '7'
     #ok 5 - Skipped tests  # skip
     #not ok 6 - Todo Test that Fails 
     ## Test 6 got: '12' (E:\User\SoftwareDiamonds\installation\t\Test\STDmaker\tgA1.t at line 182 *TODO*)
     ##   Expected: '6'
     #ok 7 - verify only 
     #not ok 8 - Failed test that skips the rest 
     ## Test 8 got: '5' (E:\User\SoftwareDiamonds\installation\t\Test\STDmaker\tgA1.t at line 203)
     ##   Expected: '6'
     #ok 9 - A test to skip  # skip - Test not performed because of previous failure.
     #ok 10 - A not skip to skip  # skip - Test not performed because of previous failure.
     #ok 11 - A skip to skip  # skip - Test not performed because of previous failure.
     ## Skipped: 5 9 10 11
     ## Failed : 4 6 8
     ## Passed : 4/7 57%
     #FAILED tests 4, 8
     #      Failed 2/11 tests, 81.82% okay (less 4 skipped tests: 5 okay, 45.45%)
     #Failed Test                       Stat Wstat Total Fail  Failed  List of Failed

     #  (1 subtest UNEXPECTEDLY SUCCEEDED), 4 subtests skipped.
     #Failed 1/1 test scripts, 0.00% okay. 2/11 subtests failed, 81.82% okay.
     #~~~~
     #Finished running Tests

     #'
     #
     $snl->fin('tgB0.pm')

     # '#!perl
     ##
     ## The copyright notice and plain old documentation (POD)
     ## are at the end of this file.
     ##
     #package  t::Test::STDmaker::tgB1;

     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION $DATE $FILE );
     #$VERSION = '0.02';
     #$DATE = '2004/05/18';
     #$FILE = __FILE__;

     #########
     ## The Test::STDmaker module uses the data after the __DATA__ 
     ## token to automatically generate the this file.
     ##
     ## Don't edit anything before __DATA_. Edit instead
     ## the data after the __DATA__ token.
     ##
     ## ANY CHANGES MADE BEFORE the  __DATA__ token WILL BE LOST
     ##
     ## the next time Test::STDmaker generates this file.
     ##
     ##

     #__DATA__

     #Name: t::Test::STDmaker::tgB1^
     #File_Spec: Unix^
     #UUT: Test::STDmaker::tg1^
     #Revision: -^
     #End_User: General Public^
     #Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
     #Detail_Template: ^
     #STD2167_Template: ^
     #Version: 0.01^
     #Classification: None^
     #Temp: temp.pl^
     #Demo: tgB1.d^
     #Verify: tgB1.t^

     # T: 2^

     # C: 
     #    #########
     #    # For "TEST" 1.24 or greater that have separate std err output,
     #    # redirect the TESTERR to STDOUT
     #    #
     #    tech_config( 'Test.TESTERR', \*STDOUT );   
     #^  

     # R: L<Test::STDmaker::tg1/capability-A [1]>^
     # C: my $x = 2^
     # C: my $y = 3^
     # A: $x + $y^
     #SE: 5^
     #ok: 1^

     # A: [($x+$y,$y-$x)]^
     # E: [5,2]^
     #ok: 2^

     #See_Also: L<Test::STDmaker::tg1>^
     #Copyright: This STD is public domain^

     #HTML:
     #<hr>
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="NOTICE" -->
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="OPT-IN" -->
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="LOG_CGI" -->
     #<!-- /BLK -->
     #<p><br>
     #^

     #~-~
     #'
     #
         skip_tests(0);
         copy 'tgB0.pm', 'tgB1.pm';
         $success = $tmaker->tmake('STD', 'verify', {pm => 't::Test::STDmaker::tgB1', nounlink => 1} );
         $diag = "\n~~~~~~~\nFormDB\n\n" . join "\n", @{$tmaker->{FormDB}};
         $diag .= "\n~~~~~~~\nstd_db\n\n" . join "\n", @{$tmaker->{std_db}};
         $diag .= (-e 'temp.pl') ? "\n~~~~~~~\ntemp.pl\n\n" . $snl->fin('temp.pl') : 'No temp.pl';
         $diag .= (-e 'tgB1.pm') ? "\n~~~~~~~\ntgB1.pm\n\n" . $snl->fin('tgB1.pm') : 'No tgB1.pm';
         $diag .= (-e 'tgB1.t') ? "\n~~~~~~~\ntgB1.t\n\n" . $snl->fin('tgB1.t') : 'No tgB1.t';

     ##################
     # tmake('STD', 'verify', {pm => 't::Test::STDmaker::tgB1'})
     # 

     $success

     # 1
     #

     ##################
     # Clean STD pm without a todo list
     # 

     $s->scrub_date_version($snl->fin('tgB1.pm'))

     # '#!perl
     ##
     ## The copyright notice and plain old documentation (POD)
     ## are at the end of this file.
     ##
     #package  t::Test::STDmaker::tgB1;

     #use strict;
     #use warnings;
     #use warnings::register;

     #use vars qw($VERSION $DATE $FILE );
     #$VERSION = '0.00';
     #$DATE = 'Feb 6, 1969';
     #$FILE = __FILE__;

     #########
     ## The Test::STDmaker module uses the data after the __DATA__ 
     ## token to automatically generate the this file.
     ##
     ## Do not edit anything before __DATA_. Edit instead
     ## the data after the __DATA__ token.
     ##
     ## ANY CHANGES MADE BEFORE the  __DATA__ token WILL BE LOST
     ##
     ## the next time Test::STDmaker generates this file.
     ##
     ##

     #=head1 NAME

     #t::Test::STDmaker::tgB1 - Software Test Description for Test::STDmaker::tg1

     #=head1 TITLE PAGE

     # Detailed Software Test Description (STD)

     # for

     # Perl Test::STDmaker::tg1 Program Module

     # Revision: -

     # Version: 0.01

     # $DATE: Feb 6, 1969

     # Prepared for: General Public 

     # Prepared by:  http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com

     # Classification: None

     ########
     ##  
     ##  1. SCOPE
     ##
     ##
     #=head1 SCOPE

     #This detail STD and the 
     #L<General Perl Program Module (PM) STD|Test::STD::PerlSTD>
     #establishes the tests to verify the
     #requirements of Perl Program Module (PM) L<Test::STDmaker::tg1|Test::STDmaker::tg1>
     #The format of this STD is a tailored L<2167A STD DID|Docs::US_DOD::STD>.

     ########
     ##  
     ##  3. TEST PREPARATIONS
     ##
     ##
     #=head1 TEST PREPARATIONS

     #Test preparations are establishes by the L<General STD|Test::STD::PerlSTD>.

     ########
     ##  
     ##  4. TEST DESCRIPTIONS
     ##
     ##
     #=head1 TEST DESCRIPTIONS

     #The test descriptions uses a legend to
     #identify different aspects of a test description
     #in accordance with
     #L<STD PM Form Database Test Description Fields|Test::STDmaker/STD PM Form Database Test Description Fields>.

     #=head2 Test Plan

     # T: 2^

     #=head2 ok: 1

     #  C:
     #     #########
     #     # For "TEST" 1.24 or greater that have separate std err output,
     #     # redirect the TESTERR to STDOUT
     #     #
     #     tech_config( 'Test.TESTERR', \*STDOUT );
     # ^
     #  R: L<Test::STDmaker::tg1/capability-A [1]>^
     #  C: my $x = 2^
     #  C: my $y = 3^
     #  A: $x + $y^
     # SE: 5^
     # ok: 1^

     #=head2 ok: 2

     #  A: [($x+$y,$y-$x)]^
     #  E: [5,2]^
     # ok: 2^

     ########
     ##  
     ##  5. REQUIREMENTS TRACEABILITY
     ##
     ##

     #=head1 REQUIREMENTS TRACEABILITY

     #  Requirement                                                      Test
     # ---------------------------------------------------------------- ----------------------------------------------------------------
     # L<Test::STDmaker::tg1/capability-A [1]>                          L<t::Test::STDmaker::tgB1/ok: 1>

     #  Test                                                             Requirement
     # ---------------------------------------------------------------- ----------------------------------------------------------------
     # L<t::Test::STDmaker::tgB1/ok: 1>                                 L<Test::STDmaker::tg1/capability-A [1]>

     #=cut

     ########
     ##  
     ##  6. NOTES
     ##
     ##

     #=head1 NOTES

     #This STD is public domain

     ########
     ##
     ##  2. REFERENCED DOCUMENTS
     ##
     ##
     ##

     #=head1 SEE ALSO

     #L<Test::STDmaker::tg1>

     #=back

     #=for html
     #<hr>
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="NOTICE" -->
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="OPT-IN" -->
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="LOG_CGI" -->
     #<!-- /BLK -->
     #<p><br>

     #=cut

     #__DATA__

     #Name: t::Test::STDmaker::tgB1^
     #File_Spec: Unix^
     #UUT: Test::STDmaker::tg1^
     #Revision: -^
     #Version: 0.01^
     #End_User: General Public^
     #Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
     #STD2167_Template: ^
     #Detail_Template: ^
     #Classification: None^
     #Temp: temp.pl^
     #Demo: tgB1.d^
     #Verify: tgB1.t^

     # T: 2^

     # C:
     #    #########
     #    # For "TEST" 1.24 or greater that have separate std err output,
     #    # redirect the TESTERR to STDOUT
     #    #
     #    tech_config( 'Test.TESTERR', \*STDOUT );
     #^

     # R: L<Test::STDmaker::tg1/capability-A [1]>^
     # C: my $x = 2^
     # C: my $y = 3^
     # A: $x + $y^
     #SE: 5^
     #ok: 1^

     # A: [($x+$y,$y-$x)]^
     # E: [5,2]^
     #ok: 2^

     #See_Also: L<Test::STDmaker::tg1>^
     #Copyright: This STD is public domain^

     #HTML:
     #<hr>
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="NOTICE" -->
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="OPT-IN" -->
     #<!-- /BLK -->
     #<p><br>
     #<!-- BLK ID="LOG_CGI" -->
     #<!-- /BLK -->
     #<p><br>
     #^

     #~-~
     #'
     #

     ##################
     # Generated and execute the test script
     # 

         $test_results = `$perl_executable tgB1.t`;
         $snl->fout('tgB1.txt', $test_results);
     $s->scrub_probe($s->scrub_file_line($test_results))

     # '1..2
     #ok 1
     #not ok 2
     ## Test 2 got: 'U1[1] 80
     #N[2] 5 1
     #' (xxxx.t at line 000)
     ##   Expected: 'U1[1] 80
     #N[2] 5 2
     #'
     ## Failed : 2
     ## Passed : 1/2 50%
     #'
     #
         #####
         # Make sure there is no residue outputs hanging
         # around from the last test series.
         #
         @outputs = bsd_glob( 'tg*1.*' );
         unlink @outputs;
         unlink 'tgA1.pm';
         unlink 'tgB1.pm';
         unlink 'tgC1.pm';

         #####
         # Suppress some annoying warnings
         #
         sub __warn__ 
         { 
            my ($text) = @_;
            return $text =~ /STDOUT/;
            CORE::warn( $text );
         };

QUALITY ASSURANCE
    The module "t::Test::STDmaker::STDmaker" is the Software Test
    Description file (STD) for the "Test::STDmaker". module. This module
    contains all the information necessary for this module to verify that
    this module meets its requirements. In other words, this module will
    verify itself. This is valid because if something is wrong with this
    module, it will not be able to verify itself. And if it cannot verify
    itself, it cannot verify that another module meets its requirements.

    To generate all the test output files, run the generated test script,
    run the demonstration script, execute the following in any directory:

     tmake -verbose -demo -report -run -pm=t::Test::STDmaker::STDmaker

    Note that tmake.pl must be in the execution path "$ENV{PATH}" and the
    "t" directory on the same level as the "lib" that contains the
    "Test::STDmaker" module. The distribution file contains a copy of the
    tmake.pl test make script.

    And yes, the <Test::STDmaker> program module generates the test script
    to test the <Test::STDmaker> program module which is perfectly legal. If
    <Test::STDmaker> is not working, <Test::STDmaker> will fail to generate
    a valid test script.

NOTES
  Binding Requirements

    In accordance with the License, Software Diamonds is not liable for any
    requirement, binding or otherwise.

  Author

    The author, holder of the copyright and maintainer is

    <support@SoftwareDiamonds.com>

  Copyright

    copyright © 2003 SoftwareDiamonds.com

  License

    Software Diamonds permits the redistribution and use in source and
    binary forms, with or without modification, provided that the following
    conditions are met:

    1   Redistributions of source code, modified or unmodified must retain
        the above copyright notice, this list of conditions and the
        following disclaimer.

    2   Redistributions in binary form must reproduce the above copyright
        notice, this list of conditions and the following disclaimer in the
        documentation and/or other materials provided with the distribution.

    3   Commercial installation of the binary or source must visually
        present to the installer the above copyright notice, this list of
        conditions intact, that the original source is available at
        http://softwarediamonds.com and provide means for the installer to
        actively accept the list of conditions; otherwise, a license fee
        must be paid to Softwareware Diamonds.

    SOFTWARE DIAMONDS, http://www.SoftwareDiamonds.com, PROVIDES THIS
    SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT
    NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
    FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SOFTWARE
    DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
    SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
    TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,DATA, OR
    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING USE
    OF THIS SOFTWARE, EVEN IF ADVISED OF NEGLIGENCE OR OTHERWISE) ARISING IN
    ANY WAY OUT OF THE POSSIBILITY OF SUCH DAMAGE.

SEE ALSO
    Test::Tech
    Test
    Data::Secs2
    Data::Str2Num
    Test::Harness
    Test::STD::PerlSTD
    Test::STDmaker::STD
    Test::STDmaker::Verify
    Test::STDmaker::Demo
    Test::STDmaker::Check
    Software Test Description
    Specification Practices
    Software Development
NAME
    Docs::Site_SVD::Test_STDmaker - generate test scripts, demo scripts from
    a test description short hand

Title Page
     Software Version Description

     for

     Docs::Site_SVD::Test_STDmaker - generate test scripts, demo scripts from a test description short hand

     Revision: U

     Version: 0.23

     Date: 2004/05/24

     Prepared for: General Public 

     Prepared by:  SoftwareDiamonds.com E<lt>support@SoftwareDiamonds.comE<gt>

     Copyright: copyright © 2003 Software Diamonds

     Classification: NONE

1.0 SCOPE
    This paragraph identifies and provides an overview of the released
    files.

  1.1 Identification

    This release, identified in 3.2, is a collection of Perl modules that
    extend the capabilities of the Perl language.

  1.2 System overview

    The system is the Perl programming language software. As established by
    the Perl referenced documents, the "Test::STDmaker" program module
    extends the Perl language.

    The input to "Test::STDmaker" is the __DATA__ section of Software Test
    Description (STD) program module. The __DATA__ section must contain STD
    forms text database in the DataPort::FileType::DataDB format.

    Using the data in the database, the "Test::STDmaker" module provides the
    following:

    1   Automate Perl related programming needed to create a test script
        resulting in reduction of time and cost.

    2   Translate a short hand Software Test Description (STD) file into a
        Perl test script that eventually makes use of the "Test" module via
        added capabilities of the "Test::Tech module.

    3   Translate the sort hand STD data file into a Perl demo script that
        demonstrates the features of the the module under test.

    4   Replace the POD of a the STD file with the __DATA__ formDB text
        database, information required by a US Department of Defense (DOD)
        Software Test Description (STD) Data Item Description (DID).

    The "Test::STDmaker" package relieves the designer and developer from
    the burden of filling out templates, counting oks, providing
    documentation examples, tracing tests to test requirments, and other
    such time consuming, boring, development tasks. Instead the designers
    and developrs need only to fill in an a form. The "Test::STDmaker" will
    take it from there and automatically and quickly generate the desired
    test scripts, demo scripts, and test description documents.

    See the Test::STDmaker POD for further detail on the text database
    fields and the processing.

  1.3 Document overview.

    This document releases Test::STDmaker version 0.23 providing description
    of the inventory, installation instructions and other information
    necessary to utilize and track this release.

3.0 VERSION DESCRIPTION
    All file specifications in this SVD use the Unix operating system file
    specification.

  3.1 Inventory of materials released.

    This document releases the file

     Test-STDmaker-0.23.tar.gz

    found at the following repository(s):

      http://www.softwarediamonds/packages/
      http://www.perl.com/CPAN/authors/id/S/SO/SOFTDIA/

    Restrictions regarding duplication and license provisions are as
    follows:

    Copyright.
        copyright © 2003 Software Diamonds

    Copyright holder contact.
         603 882-0846 E<lt>support@SoftwareDiamonds.comE<gt>

    License.
        Software Diamonds permits the redistribution and use in source and
        binary forms, with or without modification, provided that the
        following conditions are met:

        1   Redistributions of source code, modified or unmodified must
            retain the above copyright notice, this list of conditions and
            the following disclaimer.

        2   Redistributions in binary form must reproduce the above
            copyright notice, this list of conditions and the following
            disclaimer in the documentation and/or other materials provided
            with the distribution.

        3   Commercial installation of the binary or source must visually
            present to the installer the above copyright notice, this list
            of conditions intact, that the original source is available at
            http://softwarediamonds.com and provide means for the installer
            to actively accept the list of conditions; otherwise, a license
            fee must be paid to Softwareware Diamonds.

        SOFTWARE DIAMONDS, http://www.SoftwareDiamonds.com, PROVIDES THIS
        SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
        BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
        FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
        SOFTWARE DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
        SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
        LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
        USE,DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
        ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
        OR TORT (INCLUDING USE OF THIS SOFTWARE, EVEN IF ADVISED OF
        NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE POSSIBILITY
        OF SUCH DAMAGE.

  3.2 Inventory of software contents

    The content of the released, compressed, archieve file, consists of the
    following files:

     file                                                         version date       comment
     ------------------------------------------------------------ ------- ---------- ------------------------
     lib/Docs/Site_SVD/Test_STDmaker.pm                           0.23    2004/05/24 revised 0.22
     MANIFEST                                                     0.23    2004/05/24 generated, replaces 0.22
     Makefile.PL                                                  0.23    2004/05/24 generated, replaces 0.22
     README                                                       0.23    2004/05/24 generated, replaces 0.22
     lib/Test/STDmaker.pm                                         1.21    2004/05/24 unchanged
     lib/Test/STDmaker/Check.pm                                   1.15    2004/05/23 unchanged
     lib/Test/STDmaker/Demo.pm                                    1.14    2004/05/21 unchanged
     lib/Test/STDmaker/STD.pm                                     1.12    2004/05/23 unchanged
     lib/Test/STDmaker/Verify.pm                                  1.15    2004/05/22 unchanged
     lib/Test/STD/PerlSTD.pm                                      1.08    2004/05/19 unchanged
     t/Test/STDmaker/advance.d                                    0.01    2004/05/24 unchanged
     t/Test/STDmaker/advance.pm                                   0.01    2004/05/24 unchanged
     t/Test/STDmaker/advance.t                                    0.01    2004/05/24 unchanged
     t/Test/STDmaker/basic.d                                      0.01    2004/05/24 unchanged
     t/Test/STDmaker/basic.pm                                     0.01    2004/05/24 unchanged
     t/Test/STDmaker/basic.t                                      0.01    2004/05/24 unchanged
     t/Test/STDmaker/tg0.pm                                       0.03    2004/04/09 unchanged
     t/Test/STDmaker/tg2A.pm                                      0.06    2004/05/23 unchanged
     t/Test/STDmaker/tg2B.pm                                      0.07    2004/05/23 unchanged
     t/Test/STDmaker/tgA0.pm                                      0.08    2004/05/23 unchanged
     t/Test/STDmaker/tgA2.pm                                      0.09    2004/05/23 unchanged
     t/Test/STDmaker/tgA2A2.txt                                   0.13    2004/05/23 unchanged
     t/Test/STDmaker/tgA2A3.txt                                   0.13    2004/05/23 unchanged
     t/Test/STDmaker/tgA2B.txt                                    0.1     2004/05/24 revised 0.09
     t/Test/STDmaker/tgA2C.txt                                    0.1     2004/05/22 unchanged
     t/Test/STDmaker/tgB0.pm                                      0.02    2004/05/18 unchanged
     t/Test/STDmaker/tgB2.pm                                      0.04    2004/05/23 unchanged
     t/Test/STDmaker/tgB2.txt                                     0.1     2004/05/23 unchanged
     t/Test/STDmaker/tgC0.pm                                      0.04    2004/05/18 unchanged
     t/Test/STDmaker/tgC2.pm                                      0.06    2004/05/23 unchanged
     t/Test/STDmaker/tgD0.pm                                      0.06    2004/05/22 unchanged
     t/Test/STDmaker/tmake.pl                                     1.06    2004/05/24 unchanged
     t/Test/STDmaker/Text/Scrub.pm                                1.16    2004/05/24 revised 1.15
     t/Test/STDmaker/Test/Tech.pm                                 1.26    2004/05/24 unchanged
     t/Test/STDmaker/Data/Secs2.pm                                1.26    2004/05/24 unchanged
     t/Test/STDmaker/Data/Str2Num.pm                              0.08    2004/05/24 unchanged
     t/Test/STDmaker/Data/Startup.pm                              0.07    2004/05/24 unchanged

  3.3 Changes

    Changes are as follows:

    STD-STDgen-0.01
        This is the original release. There are no previous releases to
        change.

    STD-STDgen-0.02
        t/STD/tgA0.std changes
            Added test for DO: field

            Added test for VO: field

            Added a loop around two A: and E: fields.

        STD/TestGen.pm changes
            Added requirements for DO: VO: and looping a test

        STD/Check.pm changes
            Added and revise code to make DO: VO: and looping work

        STD/Verify.pm changes
            Added and revise code to make DO: VO: and looping work

    Test-STDmaker-0.01
        *   Low level subroutines are broken out as separate distribution
            modules: Test::TestUtil Test::Tech DataPort::FileType::FormDB
            DataPort::DataFile

        *   The STD::STDgen was renamed Test::STDmaker to comply with CPAN
            directives to use existing top levels whenever possible.

    Test-STDmaker-0.02
        Replaced using Test::TestUtil with File::FileUtil, Test::STD::Scrub,
        Test::STD::STDutil

        Added tests to deal with the fact that Data::Dumper produces
        different results on different Perls

        Added "Test" and "Data::Dumper" modules to the t directory so there
        are no surprises because of Test versions.

        Changed the generated test script to use subroutine interface of
        "Test::Tech" The object interface was removed.

    Test-STDmaker-0.03
        Make the same additions to @INC for "Test::STDtype::Demo" and
        "Test::STD::Check" as for "Test::STDtype::Verify".

        Changed from using "File::FileUtil" (disappeared) to the File::*
        modules broken out from "File::FileUtil"

    Test-STDmaker-0.04
        Changed from using "Test::STD::STDutil" (disappeared) to the File::*
        modules broken out from "Test::STD::STDutil"

        Added the -options_pm option and the ability to make multiple tests
        from a file list.

    Test-STDmaker-0.05
        Chnage name of Test::Table to Test::Column. Test::Table taken.

    Test-STDmaker-0.06
        Added DM Diagnostic Message tag

        Change the test so that test support program modules resides in
        distribution directory tlib directory instead of the lib directory.
        Because they are no longer in the lib directory, test support files
        will not be installed as a pre-condition for the test of this
        module. The test of this module will precede immediately. The test
        support files in the tlib directory will vanish after the
        installtion.

    Test-STDmaker-0.07
        Change the location where of Test::STDmaker expects the test library
        from tlib to the the same directory as the test script. Eliminated
        the need for File::TestPath. which adds the tlib directory to the
        @INC directory of lists with the below Perl build-ins:

         use FindBIN 
         use lib $FindBin::Bin;

        Replace the obsoleted File::PM2File program module with File::Where.

        Eliminated detecting broken Perl where Data::Dumper treats arrays of
        number as strings on some Perl and numbers on others. If something
        is broken, replace it with a fixed version in order to pass the
        tests for the Test::STDmaker program module.

    Test-STDmaker-0.08
         Subject: FAIL Test-Tech-0.18 i586-linux 2.4.22-4tr 
         From: cpansmoke@alternation.net 
         Date: Thu,  8 Apr 2004 15:09:35 -0300 (ADT) 

         PERL_DL_NONLAZY=1 /usr/bin/perl5.8.0 "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/Test/Tech/Tech.t
         t/Test/Tech/Tech....Can't locate FindBIN.pm

         Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
           Platform:
             osname=linux, osvers=2.4.22-4tr, archname=i586-linux

        This is a capitalization problem. The program module name is
        'FindBin' not 'FindBIN' which is part of Perl. Microsoft does not
        care about capitalization differences while linux does. This error
        is in the test script automatically generated by "Test::STDmaker"
        and was just introduced when moved test script libraries from "tlib"
        to the directory of the test script. Repaired "Test::STDmaker" and
        regenerated the distribution.

    Test-STDmaker-0.09
        Added the generated xxxx.d demo script prints out the test name as a
        comment.

        Added the "report" option that automatically runs all tests scripts
        and replaces the UUT program module "=headx Test Report" section
        with the output.

        The test software uses the lastest version of "Test::Tech". This
        impacted the expected values of the old tests slightly. Made the
        adjustments.

    Test-STDmaker-0.10
        Added the "&Test::Tech::is_skip" subroutine.

        Added a left edge space column to the =\headx test report
        automatically generated section so that POD formats it as code.

        Changed the look of the "demo" subroutine output to better resemble
        Perl code. Print the code straight forward without leading '=>'. Put
        a Perl comment '# ' in front of each result line instead of printing
        it straing forward.

        Added the "QC:" that is same for the "C:" field except for the demo
        script. The demo script silently executes a "QC:", quiet code, data.

        Recoded so that none of the modules uses "File::Data" program
        module.

    Test-STDmaker-0.11
        CPAN is picking up the templates as PODs. Escape out the template
        POD commands with a '\'.

        Under certain test conditions, the Software Test Description (STD)
        program module (PM) cannot be found.

        From: "Thurn, Martin" <martin.thurn@ngc.com> Subject: FAIL
        Test-STDmaker-0.10 sun4-solaris 2.8

        Can't locate t/Test/STDmaker/tgA1.pm in @INC (@INC contains: .
        /disk1/src/PERL/.cpanplus/5.9.1/5.9.1/build/Test-STDmaker-0.10/t/Tes
        t

        Added code that will add the appropriate directory to @INC for these
        test conditions.

        For regression tests, the POD describes the relationship between the
        'lib' and the 't' directories so that the "Test::STDmaker" package
        can find the STD PM.

    Test-STDmaker-0.12
        Problems with CPAN picking up wrong NAME for
        "Test::STDmaker::Verify" and "Test::STD::PerlSTD". Fixed

        Use lastest "Data::Secs2" that does not use "Data::SecsPack" unless
        needed. Some of the sites having trouble loading "Data::SecsPack"
        GMP libraray.

        Changed "Test::STDmaker::Demo" and "Test::STDmaker::Check" so they
        load "Test::Tech" after setting up "@INC". Else missing finding some
        test library modules because they are not in the "INC" path.

    Test-STDmaker-0.13 - Test-STDmaker-0.14
        Test Failure:

         Subject: FAIL Test-STDmaker-0.12 ppc-linux 2.4.19-4a 
         From: alian@cpan.org (CPAN Tester + CPAN++ automate) 

        Perl lib version (v5.8.4) doesn't match executable version (v5.6.0)
        at /usr/local/perl-5.8.4/lib/5.8.4/ppc-linux/Config.pm line 32.
        Compilation failed in require at
        /usr/local/perl-5.8.4/lib/5.8.4/FindBin.pm line 97. BEGIN
        failed--compilation aborted at
        /usr/local/perl-5.8.4/lib/5.8.4/FindBin.pm line 97. Compilation
        failed in require at temp.pl line 8.

        Analysis:

        Line 8 is a backtick `perl $command`. To get to line 8 everything
        must going well. Thus, suspect that the test harness perl executable
        is different than the command line perl executable.

        Corrective Action

        Introduced the "perl_command" subroutine that uses "$^X" to return
        the current executable Perl. Use the results of this subroutine
        instead of 'perl' in backticks. See how it goes.

        Opps. Have "`perl $commands`" not only in the Unit Under Test (UUT)
        but also the test scripts. Looks like using `"$^X" $command` fixed
        the UUT so change the ones in the test script also.

    Test-STDmaker-0.15
        Test Failure:

         Subject: FAIL Test-STDmaker-0.14 sparc-linux 2.4.21-pre7 
         From: alian@cpan.org (alian) 

         t/Test/STDmaker/STDmaker....Can't locate object method "t edit anything before __DATA_. Edit 
         ...

        Analysis:

        The text begin picked up in method comes from
        "Test::STDmaker::STD.pm"

         # Don't edit anything before __DATA_. Edit instead

        within a <<'EOF' here statement.

        Corrective Action:

        Change the "Don't" to "Do not"

    Test-STDmaker-0.16 - Test-STDmaker-0.18
        Test Failure:

         Subject: FAIL Test-STDmaker-0.15 ppc-linux 2.4.19-4a 
         From: alian@cpan.org (CPAN Tester + CPAN++ automate) 

         t/Test/STDmaker/STDmaker....Missing right curly or square bracket at temp.pl line 331, at end of line
         syntax error at temp.pl line 331, at EOF

        Corrective Action:

        Backed out test descriptions that producde curly brackets except for
        "BEGIN" and "END" blocks of generated scripts. The backed test
        descriptions are added to the "advance.t" test script that will not
        be distributed until get some green PASSES for the "basic.t" test
        script.

    Test-STDmaker-0.19 - Test-STDmaker-0.21
        Test Failure:

         Subject: FAIL Test-STDmaker-0.18 i386-netbsd 1.6 
         From: alian@cpan.org (Cpan Tester - CPAN++ Automate ) 

         "my" variable $expected1 masks earlier declaration in same scope at tgA1.d line 203.
         "my" variable $x masks earlier declaration in same scope at tgA1.d line 228.
         "my" variable $y masks earlier declaration in same scope at tgA1.d line 233.

        Analysis:

        Opening a new "tmaker" for test 9, involked "File::Maker" load
        methods a second time for the same program module "__DATA__"
        section. While these work under Windows, they are completely messed
        up under Unix.

        Corrective Action:

        Changed the order of the test script so "tmaker" never created with
        the "new" subroutine for the same file object. Add making
        "File::Maker" work with loading the "__DATA__" twice after loading
        the program module on the todo list.

    Test-STDmaker-0.22
         Subject: FAIL Test-STDmaker-0.21 sparc-linux 2.4.21-pre7 
         From: alian@cpan.org (alian) 

         t/Test/STDmaker/STDmaker....FAILED tests 20, 22-24

        Analysis:

        No error stack output yet failing tests. There are only 21 tests.

        Corrective Action

        Found where main test script redirecting STDERR output to STDOUT.
        Removed it. This is needed for the test case scripts that are ran by
        the main scripts in order to grab STDERR output to compare with
        expected results.

        Split the test script into "basic.t" and "advance.t" and moved the
        last three tests to the advance.t test script. The focus will be to
        baseline with the "basic.t" test script only. Once have a baseline
        with some Passes, work on getting the "advance.t" to pass on
        multi-platforms.

    Test-STDmaker-0.23
        Some passes, a Failure:

        From: mhoyt@houston.rr.com Subject: FAIL Test-STDmaker-0.22
        darwin-thread-multi-2level 7.0

        t/Test/STDmaker/basic....# Test 9 got: "1..11 todo 3 6; ok 1 - Quiet
        Code ok 2 - Pass test ok 3 - Todo test that passes # (xxxx.t at line
        000 TODO?!) not ok 4 - Test that fails # Test 4 got: \"6\" (xxxx.t
        at line 000) # Expected: \"7\"\nok 5 - Skipped tests # skip not ok 6
        - Todo Test that Fails

        "1..11 todo 3 6; ok 1 - Quiet Code ok 2 - Pass test ok 3 - Todo test
        that passes # (xxxx.t at line 000 TODO?!) not ok 4 - Test that fails
        # Test 4 got: '6' (xxxx.t at line 000) # Expected: '7'\nok 5 -
        Skipped tests # skip not ok 6 - Todo Test that Fails

        Analysis:

        Most Perls return single quotes around numbers; however,
        darwin-thread-multi-2level 7.0, and probably others return double
        quotes. This could be a function of the "Test" module version.

        Corrective Action:

        Added code to "&Test::Scrub::scrub_file_line" to change double
        quotes around numbers to single quotes

  3.4 Adaptation data.

    This installation requires that the installation site has the Perl
    programming language installed. There are no other additional
    requirements or tailoring needed of configurations files, adaptation
    data or other software needed for this installation particular to any
    installation site.

  3.5 Related documents.

    There are no related documents needed for the installation and test of
    this release.

  3.6 Installation instructions.

    Instructions for installation, installation tests and installation
    support are as follows:

    Installation Instructions.
        To installed the release package, use the CPAN module pr PPM module
        in the Perl release or the INSTALL.PL script at the following web
        site:

         http://packages.SoftwareDiamonds.com

        Follow the instructions for the the chosen installation software.

        If all else fails, the file may be manually installed. Enter one of
        the following repositories in a web browser:

          http://www.softwarediamonds/packages/
          http://www.perl.com/CPAN/authors/id/S/SO/SOFTDIA/

        Right click on 'Test-STDmaker-0.23.tar.gz' and download to a
        temporary installation directory. Enter the following where $make is
        'nmake' for microsoft windows; otherwise 'make'.

         gunzip Test-STDmaker-0.23.tar.gz
         tar -xf Test-STDmaker-0.23.tar
         perl Makefile.PL
         $make test
         $make install

        On Microsoft operating system, nmake, tar, and gunzip must be in the
        exeuction path. If tar and gunzip are not install, download and
        install unxutils from

         http://packages.softwarediamonds.com

        VERY IMPORTANT:

        The distribution package contains the cover "bin/tmake.pl" perl
        command script. Manually copy this into the execution path in order
        to use "STDmaker" from the command line. Rename it if there is a
        name conflict or just do not like the name.

    Prerequistes.
         'File::AnySpec' => '1.1',
         'File::Package' => '1.1',
         'File::Where' => '1.16',
         'File::SmartNL' => '1.1',
         'Text::Replace' => '1.08',
         'Text::Column' => '1.08',
         'File::Maker' => '0.03',
         'Tie::Form' => '0.02',
         'Tie::Layers' => '0.04',
         'Test::Harness' => '2.42',
         'Data::Startup' => '0.02',

    Security, privacy, or safety precautions.
        None.

    Installation Tests.
        Most Perl installation software will run the following test
        script(s) as part of the installation:

         t/Test/STDmaker/basic.t

    Installation support.
        If there are installation problems or questions with the
        installation contact

         603 882-0846 E<lt>support@SoftwareDiamonds.comE<gt>

  3.7 Possible problems and known errors

    1   Introduce the "advance.t" test script and get it to pass on Unix
        type machines.

4.0 NOTES
    The following are useful acronyms:

    .d  extension for a Perl demo script file

    .pm extension for a Perl Library Module

    .t  extension for a Perl test script file

    DID Data Item Description

    POD Plain Old Documentation

    STD Software Test Description

    SVD Software Version Description

2.0 SEE ALSO
    Test::STDmaker
    Tie::Form
    Test::Tech
    Test
    Data::Secs2
    Data::Str2Num
    Test::STDmaker::Check
    Test::STDmaker::Demo
    Test::STDmaker::STD
    Test::STDmaker::Verify
    Test::STD::PerlSTD
    US DOD Software Development Standard
    US DOD Specification Practices
    Software Test Description (STD) DID