This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: h2xs [was Re: HEAR YE, HEAR YE!]
authorNicholas Clark <nick@ccl4.org>
Sat, 5 May 2001 14:46:39 +0000 (15:46 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 May 2001 13:24:21 +0000 (13:24 +0000)
Message-ID: <20010505144639.O53513@plum.flirble.org>

Add a test for the constants (if any) being processed correctly.

p4raw-id: //depot/perl@9995

utils/h2xs.PL

index 55356ab..4333c0f 100644 (file)
@@ -1853,24 +1853,46 @@ unless (-d "$testdir") {
   mkdir "$testdir" or die "Cannot mkdir $testdir: $!\n";
 }
 warn "Writing $ext$modpname/$testfile\n";
+my $tests = @const_names ? 2 : 1;
+
 open EX, ">$testfile" or die "Can't create $ext$modpname/$testfile: $!\n";
-print EX <<'_END_';
+print EX <<_END_;
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 1.t'
 
 #########################
 
-# change 'tests => 1' to 'tests => last_test_to_print';
+# change 'tests => $tests' to 'tests => last_test_to_print';
 
 use Test;
-BEGIN { plan tests => 1 };
-_END_
-print EX <<_END_;
+BEGIN { plan tests => $tests };
 use $module;
-_END_
-print EX <<'_END_';
 ok(1); # If we made it this far, we're ok.
 
+_END_
+if (@const_names) {
+  my $const_names = join " ", @const_names;
+  print EX <<_END_;
+
+my \$fail;
+foreach my \$constname qw($const_names) {
+  next if (eval "my \\\$a = \$constname; 1");
+  if (\$\@ =~ /^Your vendor has not defined $module macro \$constname/) {
+    print "# pass: \$\@";
+  } else {
+    print "# fail: \$\@";
+    \$fail = 1;    
+  }
+}
+if (\$fail) {
+  print "not ok 2\\n";
+} else {
+  print "ok 2\\n";
+}
+
+_END_
+}
+print EX <<'_END_';
 #########################
 
 # Insert your test code below, the Test module is use()ed here so read