From: Andreas König <a.koenig@mind.de>
Date: Tue, 12 Sep 2000 06:42:01 +0000 (+0200)
Subject: Test for the #7049.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c5b79b01f8e6c1031467a3a40641cc6b53b5cdb;p=p5sagit%2Fp5-mst-13.2.git

Test for the #7049.

Subject: Re: [PATCH] Re: [ID 20000910.001] Not OK: perl v5.7.0 +DEVEL7044 on    i686-linux 2.2.16-raid (UNINSTALLED)
Message-ID: <m3k8cigr1i.fsf@ak-71.mind.de>

p4raw-id: //depot/perl@7059
---

diff --git a/t/op/my.t b/t/op/my.t
index 1777e88..601e1d6 100755
--- a/t/op/my.t
+++ b/t/op/my.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: my.t,v $
 
-print "1..30\n";
+print "1..31\n";
 
 sub foo {
     my($a, $b) = @_;
@@ -92,3 +92,10 @@ print +(@x ? "not " : ""), "ok 29\n";
 { @x = my %y }
 print +(@x ? "not " : ""), "ok 30\n";
 
+# Found in HTML::FormatPS
+my %fonts = qw(nok 31);
+for my $full (keys %fonts) {
+    $full =~ s/^n//;
+    # Supposed to be copy-on-write via force_normal after a THINKFIRST check.
+    print "$full $fonts{nok}\n";
+}