use strict;
use warnings;

use Inline C => <<'EOC';

SV * foo( SV * in ) {
   /*  printf("# %s\n", SvPV_nolen(in)); */
   return newSVpv(SvPV_nolen(in), 0);
}

EOC

my $ok = 1;

print "1..1\n";

for(1 .. 1000) {
  my $n = int(rand(10000000));
  $ok = 0 if foo("$n") ne "$n";
}

if($ok) { print "ok 1\n" }
else {
  print "not ok 1\n";
}

__END__

##</code><code>##

$ perl -MTAP::Harness -e '$h = TAP::Harness->new(); $h->runtests("./try.pl");'
./try.pl .. ok
All tests successful.
Files=1, Tests=1,  0 wallclock secs ( 0.04 usr  0.01 sys +  0.06 cusr  0.01 csys =  0.12 CPU)
Result: PASS

##</code><code>##

 $ perl -MTAP::Harness -e '$h = TAP::Harness->new(); $h->runtests("./try.pl");'
./try.pl .. All 1 subtests passed

Test Summary Report
-------------------
./try.pl (Wstat: 0 Tests: 1 Failed: 0)
  Parse errors: No plan found in TAP output
Files=1, Tests=1,  1 wallclock secs ( 0.11 usr  0.01 sys +  0.05 cusr  0.02 csys =  0.19 CPU)
Result: FAIL