Test for the #7049.
authorAndreas König <a.koenig@mind.de>
Tue, 12 Sep 2000 06:42:01 +0000 (08:42 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 12 Sep 2000 14:05:04 +0000 (14:05 +0000)
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

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