diff options
author | Jay Berkenbilt <ejb@ql.org> | 2008-04-29 14:55:25 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2008-04-29 14:55:25 +0200 |
commit | 9a0b88bf7777c153dc46ace22db74ef24d51583a (patch) | |
tree | f567ac1cf2bf5071a611eb49323a935b6ac938ff /qtest/QTC/perl/QTC.pm | |
download | qpdf-9a0b88bf7777c153dc46ace22db74ef24d51583a.tar.zst |
update release date to actual daterelease-qpdf-2.0
git-svn-id: svn+q:///qpdf/trunk@599 71b93d88-0707-0410-a8cf-f5a4172ac649
Diffstat (limited to 'qtest/QTC/perl/QTC.pm')
-rw-r--r-- | qtest/QTC/perl/QTC.pm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/qtest/QTC/perl/QTC.pm b/qtest/QTC/perl/QTC.pm new file mode 100644 index 00000000..2f78b3a6 --- /dev/null +++ b/qtest/QTC/perl/QTC.pm @@ -0,0 +1,26 @@ +# -*- perl -*- + +require 5.005; +use strict; +use FileHandle; + +package QTC; + +sub TC +{ + my ($scope, $case, $n) = @_; + local $!; + $n = 0 unless defined $n; + return unless ($scope eq ($ENV{'TC_SCOPE'} || "")); + my $filename = $ENV{'TC_FILENAME'} || return; + my $fh = new FileHandle(">>$filename") or + die "open test coverage file: $!\n"; + print $fh "$case $n\n"; + $fh->close(); +} + +1; + +# +# END OF QTC +# |