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 (executable)
--- 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";
+}