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__