# A very simple perl test program to verify perl interpreter works

[p5pRT]

Migrated from rt.perl.org#1903 (status was 'resolved')

Searchable as RT1903$

[p5pRT]

From ikirmer@bofasecurities.com

[Please enter your report here]

Site configuration information for perl 5.002​:

Configured by mrm at Tue Aug 27 18​:54​:53 PDT 1996.

Summary of my perl5 (5.0 patchlevel 2) configuration​:
  Platform​:
  osname=solaris, osver=2.6, archname=sun4-solaris
  uname='sunos mrm-ss20 5.4 generic_101945-37 sun4m sparc '
  hint=recommended, useposix=true
  Compiler​:
  cc='gcc', optimize='-O', gccversion=2.95.2
  cppflags='-I/usr/local/include'
  ccflags ='-I/usr/local/include'
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  voidflags=15, castflags=0, d_casti32=define, d_castneg=define
  intsize=4, alignbytes=8, usemymalloc=y, randbits=15
  Linker and Libraries​:
  ld='gcc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -ldl -lm -lc
  libc=/lib/libc.so, so=so
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
  cccdlflags='-Kpic', lddlflags='-G -L/usr/local/lib'

[p5pRT]

From [Unknown Contact. See original ticket]

ikirmer@​bofasecurities.com wrote​:

...
[Please enter your report here]

Site configuration information for perl 5.002​:

...

Whoa ! This is really the simpliest perl program I've ever seen !

François Désarménien

[p5pRT]

From [Unknown Contact. See original ticket]

In article <38582191.7D15255B@​club-internet.fr>, Francois Desarmenien​:

ikirmer@​bofasecurities.com wrote​:

[Please enter your report here]

Site configuration information for perl 5.002​:

Whoa ! This is really the simpliest perl program I've ever seen !

Oddly enough, it does uncover a bug in the test harness​:

$ perl5.00563 t/TEST /dev/null

/dev/nul..FAILED at test 0

Illegal division by zero at t/TEST line 156.
$

That's because the test harness only counts test files that manage
to output at least the "1..$N" header; /dev/null doesn't do that.

This patch makes the harness report "Failed 1 test script out of 0, 0.00% okay."​:

*** t/TEST.orig Mon Sep 6 22​:09​:09 1999
--- t/TEST Thu Dec 16 00​:41​:11 1999
@​@​ -153,7 +153,7 @​@​
  }
  }
  else {
- $pct = sprintf("%.2f", ($files - $bad) / $files * 100);
+ $pct = $files ? sprintf("%.2f", ($files - $bad) / $files * 100) : "0.00";
  if ($bad == 1) {
  warn "Failed 1 test script out of $files, $pct% okay.\n";
  }

-- HansM