NAME
Text::Scrub - used to wild card out text used for comparison
SYNOPSIS
#########
# Subroutine Interface
#
use Text::Scrub qw(scrub_date scrub_date_ticket scrub_date_version scrub_file_line
scrub_probe scrub_test_file);
$scrubbed_text = scrub_architect($script_text)
$scrubbed_text = scrub_file_line($script_text)
$scrubbed_text = scrub_date($script_text)
$scrubbed_text = scrub_date_ticket($script_text)
$scrubbed_text = scrub_date_version($script_text)
$scrubbed_text = scrub_probe($script_text)
$scrubbed_text = scrub_test_file($script_text)
#########
# Class Interface
#
use Text::Scrub
$scrubbed_text = Text::Scrub->scrub_architect($script_text)
$scrubbed_text = Text::Scrub->scrub_file_line($script_text)
$scrubbed_text = Text::Scrub->scrub_date($script_text)
$scrubbed_text = Text::Scrub->scrub_date_ticket($script_text)
$scrubbed_text = Text::Scrub->scrub_date_version($script_text)
$scrubbed_text = Text::Scrub->scrub_probe($script_text)
$scrubbed_text = Text::Scrub->scrub_test_file($script_text)DESCRIPTION
The methods in the Test::STD:Scrub package are designed to support the Test::STDmaker and the ExtUtils::SVDmaker package. This is the focus and no other focus. Since Test::STD::Scrub is a separate package, the methods may be used elsewhere. They are used to wild card out parts of two documents before they are compared by making these snippets the same. In all likehood, any revisions will maintain backwards compatibility with previous revisions. However, support and the performance of the Test::STDmaker and ExtUtils::SVDmaker packages has priority over backwards compatibility.
scrub_architect
$scrubbed_text = Test::STD::Scrub->scrub_architect($script_text)When comparing the contents of two Perl program modules, the architect should not be used in the comparision. The scrub_architect method will replace the architect with a generic value. Applying the scrub_architect to the contents of both files before the comparision will eliminate the date and version as factors in the comparision.
scrub_date_ticket
$scrubbed_text = Test::STD::Scrub->scrub_date_ticket($script_text)When comparing the contents of email messages, the date and email ticket should not be used in the comparision. The scrub_date_ticket method will replace the date and email ticket with a generic value. Applying the scrub_date_ticket to the contents of both files before the comparision will eliminate the data and ticket as factors in the comparision.
scrub_date_version
$scrubbed_text = Test::STD::Scrub->scrub_date_version($script_text)When comparing the contents of two Perl program modules, the date and version should not be used in the comparision. The scrub_date_versiont method will replace the date and version with a generic value. Applying the scrub_date_version to the contents of both files before the comparision will eliminate the date and version as factors in the comparision.
scrub_file_line
$scrubbed_text = Test::STD::Scrub->scrub_file_line($script_text)When comparing the ouput of Test module the file and line number should not be used in the comparision. The scrub_file_line method will replace the file and line with a generic value. The subroutine changes any double quotes around numbers to single quotes. Applying the scrub_file_line to the contents of both files before the comparision will eliminate the file and line as factors in the comparision.
scrub_test_file
$scrubbed_text = Test::STD::Scrub->scrub_test_file($script_text)When comparing the ouput of Test:Harness module the test file should not be used in the comparision. The scrub_test_file method will replace the test file with a generic value. Applying the scrub_test_file to the contents of both files before the comparision will eliminate the test file as a factor in the comparision.
REQUIREMENTS
Someday.
DEMONSTRATION
#########
# perl Scrub.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 File::Spec;
use File::Package;
my $fp = 'File::Package';
my $uut = 'Text::Scrub';
my $loaded = '';
my $template = '';
my %variables = ();
my $expected = '';
##################
# Load UUT
#
my $errors = $fp->load_package($uut)
$errors
# ''
#
##################
# scrub_file_line
#
my $text = 'ok 2 # (E:/User/SoftwareDiamonds/installation/t/Test/STDmaker/tgA1.t at line 123 TODO?!)'
$uut->scrub_file_line($text)
# 'ok 2 # (xxxx.t at line 000 TODO?!)'
#
##################
# scrub_test_file
#
$text = 'Running Tests\n\nE:/User/SoftwareDiamonds/installation/t/Test/STDmaker/tgA1.1..16 todo 2 5;'
$uut->scrub_test_file($text)
# 'Running Tests xxx.t 1..16 todo 2 5;'
#
##################
# scrub_date_version
#
$text = '$VERSION = \'0.01\';\n$DATE = \'2003/06/07\';'
$uut->scrub_date_version($text)
# '$VERSION = '0.00';\n$DATE = 'Feb 6, 1969';'
#
##################
# scrub_date_ticket
#
$text = <<'EOF';
Date: Apr 12 00 00 00 2003 +0000
Subject: 20030506, This Week in Health'
X-SDticket: 20030205
X-eudora-date: Feb 6 2000 00 00 2003 +0000
X-SDmailit: dead Feb 5 2000 00 00 2003
Sent email 20030205-20030506 to support.softwarediamonds.com
EOF
my $expected_text = <<'EOF';
Date: Feb 6 00 00 00 1969 +0000
Subject: XXXXXXXXX-X, This Week in Health'
X-SDticket: XXXXXXXXX-X
X-eudora-date: Feb 6 00 00 00 1969 +0000
X-SDmailit: dead Sat Feb 6 00 00 00 1969 +0000
Sent email XXXXXXXXX-X to support.softwarediamonds.com
EOF
# end of EOF
$uut->scrub_date_ticket($text)
# 'Date: Feb 6 00 00 00 1969 +0000
#Subject: XXXXXXXXX-X, This Week in Health'
#X-SDticket: XXXXXXXXX-X
#X-eudora-date: Feb 6 00 00 00 1969 +0000
#X-SDmailit: dead Sat Feb 6 00 00 00 1969 +0000
#Sent email XXXXXXXXX-X to support.softwarediamonds.com
#'
#
##################
# scrub_date
#
$text = 'Going to happy valley 2003/06/07'
$uut->scrub_date($text)
# 'Going to happy valley 1969/02/06'
#
##################
# scrub_probe
#
$text = <<'EOF';
1..8 todo 2 5;
# OS : MSWin32
# Perl : 5.6.1
# Local Time : Thu Jun 19 23:49:54 2003
# GMT Time : Fri Jun 20 03:49:54 2003 GMT
# Number Storage: string
# Test::Tech : 1.06
# Test : 1.15
# Data::Dumper : 2.102
# =cut
# Pass test
ok 1
EOF
$expected_text = <<'EOF';
1..8 todo 2 5;
# Pass test
ok 1
EOF
# end of EOF
$uut->scrub_probe($text)
# '1..8 todo 2 5;
## Pass test
#ok 1
#'
#
##################
# scrub_architect
#
$text = 'ARCHITECTURE NAME="MSWin32-x86-multi-thread-5.5"'
$uut->scrub_architect($text)
# 'ARCHITECTURE NAME="Perl"'
#
unlink 'actual.txt'QUALITY ASSURANCE
Running the test script Scrub.t verifies the requirements for this module. The tmake.pl cover script for Test::STDmaker automatically generated the Scrub.t test script, Scrub.d demo script, and t::Text::Scrub program module POD, from the t::Text::Scrub program module contents. The tmake.pl cover script automatically ran the Scrub.d demo script and inserted the results into the 'DEMONSTRATION' section above. The t::Text::Scrub program module is in the distribution file Text-Scrub-$VERSION.tar.gz.
NOTES
Author
The holder of the copyright and maintainer is
<support@SoftwareDiamonds.com>
Copyright
Copyrighted (c) 2002 Software Diamonds
All Rights Reserved
Binding Requirements
Binding requirements are indexed with the pharse 'shall[dd]' where dd is an unique number for each header section. This conforms to standard federal government practices, STD490A 3.2.3.6. In accordance with the License, Software Diamonds is not liable for any requirement, binding or otherwise.
License
Software Diamonds permits the redistribution and use in source and binary forms, with or without modification, provided that the following conditions are met:
Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
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.
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.