From 9a0b88bf7777c153dc46ace22db74ef24d51583a Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Tue, 29 Apr 2008 12:55:25 +0000
Subject: update release date to actual date

git-svn-id: svn+q:///qpdf/trunk@599 71b93d88-0707-0410-a8cf-f5a4172ac649
---
 qtest/QTC/perl/QTC.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 qtest/QTC/perl/QTC.pm

(limited to 'qtest/QTC')

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
+#
-- 
cgit v1.2.3-70-g09d2